OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
table_mod.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| table_mod ../engine/share/modules/table_mod.F
25!||--- called by ------------------------------------------------------
26!|| alemain ../engine/source/ale/alemain.F
27!|| bforc2 ../engine/source/ale/bimat/bforc2.F
28!|| c3forc3 ../engine/source/elements/sh3n/coque3n/c3forc3.F
29!|| c3forc3_crk ../engine/source/elements/xfem/c3forc3_crk.F
30!|| cbaforc3 ../engine/source/elements/shell/coqueba/cbaforc3.F
31!|| cdk6forc3 ../engine/source/elements/sh3n/coquedk6/cdk6forc3.F
32!|| cdkforc3 ../engine/source/elements/sh3n/coquedk/cdkforc3.F
33!|| cforc3 ../engine/source/elements/shell/coque/cforc3.F
34!|| cforc3_crk ../engine/source/elements/xfem/cforc3_crk.F
35!|| cmain3 ../engine/source/materials/mat_share/cmain3.F
36!|| cmain3pinch ../engine/source/elements/shell/coqueba/cmain3pinch.F
37!|| czforc3 ../engine/source/elements/shell/coquez/czforc3.F
38!|| czforc3_crk ../engine/source/elements/xfem/czforc3_crk.F
39!|| fail_gene1_b ../engine/source/materials/fail/gene1/fail_gene1_b.f90
40!|| fail_gene1_c ../engine/source/materials/fail/gene1/fail_gene1_c.f
41!|| fail_gene1_ib ../engine/source/materials/fail/gene1/fail_gene1_ib.F90
42!|| fail_gene1_s ../engine/source/materials/fail/gene1/fail_gene1_s.F
43!|| fail_inievo_b ../engine/source/materials/fail/inievo/fail_inievo_b.F90
44!|| fail_inievo_c ../engine/source/materials/fail/inievo/fail_inievo_c.F
45!|| fail_inievo_ib ../engine/source/materials/fail/inievo/fail_inievo_ib.F90
46!|| fail_inievo_s ../engine/source/materials/fail/inievo/fail_inievo_s.F
47!|| fail_tab2_b ../engine/source/materials/fail/tabulated/fail_tab2_b.F90
48!|| fail_tab2_c ../engine/source/materials/fail/tabulated/fail_tab2_c.F
49!|| fail_tab2_ib ../engine/source/materials/fail/tabulated/fail_tab2_ib.F90
50!|| fail_tab2_s ../engine/source/materials/fail/tabulated/fail_tab2_s.F
51!|| fail_tab_c ../engine/source/materials/fail/tabulated/fail_tab_c.F
52!|| fail_tab_s ../engine/source/materials/fail/tabulated/fail_tab_s.F
53!|| fail_tab_xfem ../engine/source/materials/fail/tabulated/fail_tab_xfem.F
54!|| forint ../engine/source/elements/forint.F
55!|| forintc ../engine/source/elements/forintc.F
56!|| forintp ../engine/source/elements/forintp.F
57!|| genh3d ../engine/source/output/h3d/h3d_results/genh3d.F
58!|| get_u_numtable ../engine/source/user_interface/utable.F
59!|| h3d_pre_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
60!|| h3d_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
61!|| h3d_skin_vector ../engine/source/output/h3d/h3d_results/h3d_skin_vector.F
62!|| ig3duforc3 ../engine/source/elements/ige3d/ig3duforc3.F
63!|| interface_table_mod ../engine/share/modules/table_mod.F
64!|| law119_membrane ../engine/source/materials/mat/mat119/law119_membrane.F
65!|| lecfun ../engine/source/tools/curve/lecfun.F
66!|| lectur ../engine/source/input/lectur.F
67!|| mat107_newton ../engine/source/materials/mat/mat107/mat107_newton.F
68!|| mat107_nice ../engine/source/materials/mat/mat107/mat107_nice.F
69!|| mat107c_newton ../engine/source/materials/mat/mat107/mat107c_newton.F
70!|| mat107c_nice ../engine/source/materials/mat/mat107/mat107c_nice.F
71!|| mat112_xia_newton ../engine/source/materials/mat/mat112/mat112_xia_newton.F
72!|| mat112_xia_nice ../engine/source/materials/mat/mat112/mat112_xia_nice.F
73!|| mat112c_xia_newton ../engine/source/materials/mat/mat112/mat112c_xia_newton.F
74!|| mat112c_xia_nice ../engine/source/materials/mat/mat112/mat112c_xia_nice.F
75!|| mmain ../engine/source/materials/mat_share/mmain.F90
76!|| mmain8 ../engine/source/materials/mat_share/mmain8.F
77!|| mulaw ../engine/source/materials/mat_share/mulaw.F90
78!|| mulaw8 ../engine/source/materials/mat_share/mulaw8.F90
79!|| mulawc ../engine/source/materials/mat_share/mulawc.F90
80!|| mulawglc ../engine/source/materials/mat_share/mulawglc.F
81!|| mulawglcpinch ../engine/source/elements/shell/coqueba/mulawglcpinch.F
82!|| press_seg3 ../engine/source/loads/general/load_pcyl/press_seg3.F
83!|| pressure_cyl ../engine/source/loads/general/load_pcyl/pressure_cyl.F
84!|| q4forc2 ../engine/source/elements/solid_2d/quad4/q4forc2.F
85!|| qforc2 ../engine/source/elements/solid_2d/quad/qforc2.F
86!|| r23forc3 ../engine/source/elements/spring/r23forc3.F
87!|| r23law108 ../engine/source/elements/spring/r23law108.F
88!|| r23law113 ../engine/source/elements/spring/r23law113.F
89!|| r23law114 ../engine/source/elements/spring/r23law114.F
90!|| r3def3 ../engine/source/elements/spring/r3def3.F
91!|| resol ../engine/source/engine/resol.F
92!|| retractor_table_inv ../engine/source/tools/seatbelts/retractor_table_inv.F90
93!|| retractor_table_inv2 ../engine/source/tools/seatbelts/retractor_table_inv2.F90
94!|| rforc3 ../engine/source/elements/spring/rforc3.F
95!|| s10forc3 ../engine/source/elements/solid/solide10/s10forc3.F
96!|| s16forc3 ../engine/source/elements/thickshell/solide16/s16forc3.F
97!|| s20forc3 ../engine/source/elements/solid/solide20/s20forc3.F
98!|| s4forc3 ../engine/source/elements/solid/solide4/s4forc3.F
99!|| s6cforc3 ../engine/source/elements/thickshell/solide6c/s6cforc3.F
100!|| s6zforc3 ../engine/source/elements/solid/solide6z/s6zforc3.F90
101!|| s8cforc3 ../engine/source/elements/thickshell/solide8c/s8cforc3.F
102!|| s8eforc3 ../engine/source/elements/solid/solide8e/s8eforc3.F
103!|| s8forc3 ../engine/source/elements/solid/solide8/s8forc3.F
104!|| s8sforc3 ../engine/source/elements/solid/solide8s/s8sforc3.F
105!|| s8zforc3 ../engine/source/elements/solid/solide8z/s8zforc3.F
106!|| scforc3 ../engine/source/elements/thickshell/solidec/scforc3.F
107!|| seatbelt_mod ../common_source/modules/seatbelt_mod.F
108!|| sforc3 ../engine/source/elements/solid/solide/sforc3.F
109!|| sigeps107 ../engine/source/materials/mat/mat107/sigeps107.F
110!|| sigeps107c ../engine/source/materials/mat/mat107/sigeps107c.F
111!|| sigeps109 ../engine/source/materials/mat/mat109/sigeps109.F
112!|| sigeps109c ../engine/source/materials/mat/mat109/sigeps109c.F
113!|| sigeps110c ../engine/source/materials/mat/mat110/sigeps110c.F
114!|| sigeps110c_lite_newton ../engine/source/materials/mat/mat110/sigeps110c_lite_newton.F
115!|| sigeps110c_lite_nice ../engine/source/materials/mat/mat110/sigeps110c_lite_nice.F
116!|| sigeps110c_newton ../engine/source/materials/mat/mat110/sigeps110c_newton.F
117!|| sigeps110c_nice ../engine/source/materials/mat/mat110/sigeps110c_nice.F
118!|| sigeps112 ../engine/source/materials/mat/mat112/sigeps112.F
119!|| sigeps112c ../engine/source/materials/mat/mat112/sigeps112c.f
120!|| sigeps119c ../engine/source/materials/mat/mat119/sigeps119c.F
121!|| sigeps120 ../engine/source/materials/mat/mat120/sigeps120.F
122!|| sigeps120_connect_main ../engine/source/materials/mat/mat120/sigeps120_connect_main.F
123!|| sigeps120_connect_tab_dp ../engine/source/materials/mat/mat120/sigeps120_connect_tab_dp.F
124!|| sigeps120_connect_tab_vm ../engine/source/materials/mat/mat120/sigeps120_connect_tab_vm.F
125!|| sigeps120_tab_dp ../engine/source/materials/mat/mat120/sigeps120_tab_dp.F
126!|| sigeps120_tab_vm ../engine/source/materials/mat/mat120/sigeps120_tab_vm.F
127!|| sigeps52 ../engine/source/materials/mat/mat052/sigeps52.F
128!|| sigeps52c ../engine/source/materials/mat/mat052/sigeps52c.F
129!|| sigeps58c ../engine/source/materials/mat/mat058/sigeps58c.F
130!|| sigeps73c ../engine/source/materials/mat/mat073/sigeps73c.F
131!|| sigeps74 ../engine/source/materials/mat/mat074/sigeps74.F
132!|| sigeps80 ../engine/source/materials/mat/mat080/sigeps80.F
133!|| sigeps80c ../engine/source/materials/mat/mat080/sigeps80c.F
134!|| sigeps87c ../engine/source/materials/mat/mat087/sigeps87c.F90
135!|| sortie_main ../engine/source/output/sortie_main.F
136!|| spstres ../engine/source/elements/sph/spstres.F
137!|| suforc3 ../engine/source/user_interface/suforc3.F
138!|| suser43 ../engine/source/elements/solid/sconnect/suser43.F
139!|| szforc3 ../engine/source/elements/solid/solidez/szforc3.F
140!|| table2d_vinterp_log ../engine/source/tools/curve/table2d_vinterp_log.F
141!|| table4d_mod ../common_source/modules/table4d_mod.F
142!|| table_glob_mod ../engine/share/modules/table_glob_mod.F
143!|| table_interp ../engine/source/tools/curve/table_tools.F
144!|| table_interp_dydx ../engine/source/tools/curve/table_tools.F
145!|| table_interp_law76 ../engine/source/tools/curve/table_tools.F
146!|| table_rresti ../engine/source/tools/curve/table_tools.F
147!|| table_rrestr ../engine/source/tools/curve/table_tools.F
148!|| table_vinterp ../engine/source/tools/curve/table_tools.F
149!|| table_wresti ../engine/source/tools/curve/table_tools.F
150!|| table_wrestr ../engine/source/tools/curve/table_tools.F
151!|| table_zero ../engine/source/tools/curve/table_tools.F
152!|| usermat_shell ../engine/source/materials/mat_share/usermat_shell.F
153!|| usermat_solid ../engine/source/materials/mat_share/usermat_solid.F
154!||====================================================================
155 MODULE table_mod
156C-----------------------------------------------
157C m y _ r e a l
158C-----------------------------------------------
159#include "my_real.inc"
160C-----------------------------------------------
161C D e r i v e d T y p e D e f i n i t i o n s
162C-----------------------------------------------
163 TYPE ttable_xy
164 my_real,
165 . DIMENSION(:), POINTER :: values
166 END TYPE ttable_xy
167 TYPE ttable
168C---------
169 INTEGER NOTABLE, NDIM
170C---------
171 TYPE(TTABLE_XY), DIMENSION(:), POINTER :: X
172 TYPE(TTABLE_XY), POINTER :: Y
173 END TYPE ttable
174C-----------------------------------------------
175 END MODULE table_mod
176!||====================================================================
177!|| interface_table_mod ../engine/share/modules/table_mod.F
178!||--- called by ------------------------------------------------------
179!|| fail_gene1_b ../engine/source/materials/fail/gene1/fail_gene1_b.F90
180!|| fail_gene1_c ../engine/source/materials/fail/gene1/fail_gene1_c.F
181!|| fail_gene1_ib ../engine/source/materials/fail/gene1/fail_gene1_ib.F90
182!|| fail_gene1_s ../engine/source/materials/fail/gene1/fail_gene1_s.F
183!|| fail_inievo_b ../engine/source/materials/fail/inievo/fail_inievo_b.F90
184!|| fail_inievo_c ../engine/source/materials/fail/inievo/fail_inievo_c.F
185!|| fail_inievo_ib ../engine/source/materials/fail/inievo/fail_inievo_ib.F90
186!|| fail_inievo_s ../engine/source/materials/fail/inievo/fail_inievo_s.F
187!|| fail_tab2_b ../engine/source/materials/fail/tabulated/fail_tab2_b.F90
188!|| fail_tab2_c ../engine/source/materials/fail/tabulated/fail_tab2_c.F
189!|| fail_tab2_ib ../engine/source/materials/fail/tabulated/fail_tab2_ib.F90
190!|| fail_tab2_s ../engine/source/materials/fail/tabulated/fail_tab2_s.F
191!|| fail_tab_c ../engine/source/materials/fail/tabulated/fail_tab_c.F
192!|| fail_tab_s ../engine/source/materials/fail/tabulated/fail_tab_s.F
193!|| fail_tab_xfem ../engine/source/materials/fail/tabulated/fail_tab_xfem.F
194!|| get_table_value ../engine/source/user_interface/utable.F
195!|| get_table_value_dydx ../engine/source/user_interface/utable.F
196!|| get_u_table ../engine/source/user_interface/utable.F
197!|| get_u_vtable ../engine/source/user_interface/utable.F
198!|| get_vtable_value ../engine/source/user_interface/utable.F
199!|| law119_membrane ../engine/source/materials/mat/mat119/law119_membrane.F
200!|| mat107_newton ../engine/source/materials/mat/mat107/mat107_newton.F
201!|| mat107_nice ../engine/source/materials/mat/mat107/mat107_nice.F
202!|| mat107c_newton ../engine/source/materials/mat/mat107/mat107c_newton.F
203!|| mat107c_nice ../engine/source/materials/mat/mat107/mat107c_nice.F
204!|| mat112_xia_newton ../engine/source/materials/mat/mat112/mat112_xia_newton.F
205!|| mat112_xia_nice ../engine/source/materials/mat/mat112/mat112_xia_nice.F
206!|| mat112c_xia_newton ../engine/source/materials/mat/mat112/mat112c_xia_newton.F
207!|| mat112c_xia_nice ../engine/source/materials/mat/mat112/mat112c_xia_nice.F
208!|| r3def3 ../engine/source/elements/spring/r3def3.F
209!|| resol ../engine/source/engine/resol.F
210!|| sigeps107 ../engine/source/materials/mat/mat107/sigeps107.F
211!|| sigeps107c ../engine/source/materials/mat/mat107/sigeps107c.F
212!|| sigeps109 ../engine/source/materials/mat/mat109/sigeps109.F
213!|| sigeps109c ../engine/source/materials/mat/mat109/sigeps109c.F
214!|| sigeps110c ../engine/source/materials/mat/mat110/sigeps110c.F
215!|| sigeps110c_lite_newton ../engine/source/materials/mat/mat110/sigeps110c_lite_newton.F
216!|| sigeps110c_lite_nice ../engine/source/materials/mat/mat110/sigeps110c_lite_nice.F
217!|| sigeps110c_newton ../engine/source/materials/mat/mat110/sigeps110c_newton.F
218!|| sigeps110c_nice ../engine/source/materials/mat/mat110/sigeps110c_nice.F
219!|| sigeps112 ../engine/source/materials/mat/mat112/sigeps112.f
220!|| sigeps112c ../engine/source/materials/mat/mat112/sigeps112c.F
221!|| sigeps119c ../engine/source/materials/mat/mat119/sigeps119c.F
222!|| sigeps120 ../engine/source/materials/mat/mat120/sigeps120.F
223!|| sigeps120_connect_main ../engine/source/materials/mat/mat120/sigeps120_connect_main.F
224!|| sigeps120_connect_tab_dp ../engine/source/materials/mat/mat120/sigeps120_connect_tab_dp.F
225!|| sigeps120_connect_tab_vm ../engine/source/materials/mat/mat120/sigeps120_connect_tab_vm.F
226!|| sigeps120_tab_dp ../engine/source/materials/mat/mat120/sigeps120_tab_dp.f
227!|| sigeps120_tab_vm ../engine/source/materials/mat/mat120/sigeps120_tab_vm.f
228!|| sigeps52 ../engine/source/materials/mat/mat052/sigeps52.F
229!|| sigeps52c ../engine/source/materials/mat/mat052/sigeps52c.F
230!|| sigeps58c ../engine/source/materials/mat/mat058/sigeps58c.F
231!|| sigeps73c ../engine/source/materials/mat/mat073/sigeps73c.F
232!|| sigeps74 ../engine/source/materials/mat/mat074/sigeps74.F
233!|| sigeps80 ../engine/source/materials/mat/mat080/sigeps80.F
234!|| sigeps80c ../engine/source/materials/mat/mat080/sigeps80c.f
235!|| sigeps87c ../engine/source/materials/mat/mat087/sigeps87c.F90
236!||--- uses -----------------------------------------------------
237!|| table_mod ../engine/share/modules/table_mod.F
238!||====================================================================
240C-----------------------------------------------
241 INTERFACE
242C
243 SUBROUTINE table_interp(TABLE,XX,YY)
244 USE table_mod
245 TYPE(ttable) TABLE
246 my_real,
247 . DIMENSION(:) :: xx
248 my_real
249 . yy
250 END SUBROUTINE table_interp
251C
252 SUBROUTINE table_vinterp(TABLE,DIMX,NEL,IPOS,XX,YY,DYDX)
253 USE table_mod
254 TYPE(ttable) TABLE
255 INTEGER ,INTENT(IN) :: NEL
256 INTEGER ,VALUE ,INTENT(IN) :: DIMX
257 INTEGER ,DIMENSION(DIMX,TABLE%NDIM) :: IPOS
258 my_real ,DIMENSION(DIMX,TABLE%NDIM) :: xx
259 my_real ,DIMENSION(NEL) :: yy, dydx
260 END SUBROUTINE table_vinterp
261C
262 SUBROUTINE table2d_vinterp_log(TABLE,ISMOOTH,DIMX,NEL,IPOS,XX,YY,DYDX1,DYDX2)
263 USE table_mod
264 TYPE(ttable) TABLE
265 INTEGER ,INTENT(IN) :: ISMOOTH
266 INTEGER ,INTENT(IN) :: NEL
267 INTEGER ,INTENT(IN) :: DIMX
268 INTEGER ,DIMENSION(DIMX,TABLE%NDIM) :: IPOS
269 my_real ,DIMENSION(DIMX,TABLE%NDIM) :: xx
270 my_real ,DIMENSION(NEL) :: yy, dydx1, dydx2
271 END SUBROUTINE table2d_vinterp_log
272C
273 SUBROUTINE table_interp_law76(TABLE,IPOS2,XX,R2,DYDX,YY)
274 USE table_mod
275 TYPE(ttable) TABLE
276 my_real,
277 . DIMENSION(:) :: xx
278 my_real
279 . yy, r2,dydx
280 INTEGER IPOS2
281 END SUBROUTINE table_interp_law76
282C
283 END INTERFACE
284 END MODULE interface_table_mod
285
286
#define my_real
Definition cppsort.cpp:32
subroutine fail_gene1_c(nel, nuparam, nuvar, nfunc, ifunc, npf, tf, time, timestep, uparam, ipg, ngl, gbuf_dt, epsp, uvar, off, epsxx, epsyy, epsxy, area, thkn, signxx, signyy, signxy, signyz, signzx, temp, dfmax, aldt, table, tdele, thk0, ipt, foff, thklyl, ntablf, itablf, lf_dammx, niparam, iparam, dt)
subroutine sigeps112(nel, ngl, nuparam, nuvar, time, timestep, uparam, uvar, jthe, off, rho0, rho, pla, dpla, epsd, soundsp, epszz, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, sigy, et, nvartmp, numtabl, vartmp, itable, table)
Definition sigeps112.F:44
subroutine sigeps112c(nel, ngl, nuparam, nuvar, nfunc, ifunc, npf, tf, timestep, time, uparam, uvar, jthe, rho, pla, dpla, soundsp, epsd, off, depsxx, depsyy, depsxy, depsyz, depszx, shf, sigoxx, sigoyy, sigoxy, sigoyz, sigozx, sigy, signxx, signyy, signxy, signyz, signzx, et, numtabl, itable, table, nvartmp, vartmp)
Definition sigeps112c.F:43
subroutine sigeps120_tab_dp(nel, ngl, nuparam, nuvar, time, timestep, uparam, uvar, off, pla, epsd, soundsp, epspxx, epspyy, epspzz, epspxy, epspyz, epspzx, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, numtabl, itable, table, nvartmp, vartmp, temp, inloc, dplanl, dmg, dmg_scale)
subroutine sigeps120_tab_vm(nel, ngl, nuparam, nuvar, time, timestep, uparam, uvar, off, pla, epsd, soundsp, epspxx, epspyy, epspzz, epspxy, epspyz, epspzx, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, numtabl, itable, table, nvartmp, vartmp, temp, inloc, dplanl, dmg, dmg_scale)
subroutine sigeps80c(nel, nuparam, nuvar, mfunc, kfunc, npf, npt0, ipt, iflag, tf, time, timestep, uparam, rho0, area, eint, thkly, epspxx, epspyy, epspxy, epspyz, epspzx, depsxx, depsyy, depsxy, depsyz, depszx, epsxx, epsyy, epsxy, epsyz, epszx, sigoxx, sigoyy, sigoxy, sigoyz, sigozx, signxx, signyy, signxy, signyz, signzx, sigvxx, sigvyy, sigvxy, sigvyz, sigvzx, soundsp, viscmax, thk, pla, uvar, off, ngl, pm, ipm, mat, etse, gs, vol, yld, temp, die, coef, shf, epsp, table, ithk, nvartmp, vartmp, epsthtot, jthe, idt_therm, theaccfact)
Definition sigeps80c.F:56