OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_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!|| h3d_mod ../engine/share/modules/h3d_mod.F
25!||--- called by ------------------------------------------------------
26!|| alemain ../engine/source/ale/alemain.F
27!|| ani_pcont ../engine/source/output/anim/generate/ani_pcont.F
28!|| ani_pcont21 ../engine/source/output/anim/generate/ani_pcont.F
29!|| arret ../engine/source/system/arret.F
30!|| bcs_nrf ../engine/source/boundary_conditions/bcs_nrf.F90
31!|| clusterf ../engine/source/output/cluster/clusterf.F
32!|| create_h3d_1d_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_scalar.F
33!|| create_h3d_1d_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_tensor.F
34!|| create_h3d_1d_torsor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_torsor.F
35!|| create_h3d_1d_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_vector.F
36!|| create_h3d_arg_keyword ../engine/source/output/h3d/h3d_build_fortran/create_h3d_arg_keyword.F
37!|| create_h3d_input ../engine/source/output/h3d/h3d_build_fortran/create_h3d_input.F
38!|| create_h3d_nodal_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_scalar.F
39!|| create_h3d_nodal_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_tensor.F
40!|| create_h3d_nodal_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_vector.F
41!|| create_h3d_output_per_part ../engine/source/output/h3d/h3d_build_fortran/create_h3d_output_per_part.F90
42!|| create_h3d_parts ../engine/source/output/h3d/h3d_build_fortran/create_h3d_parts.F
43!|| create_h3d_parts_all ../engine/source/output/h3d/h3d_build_fortran/create_h3d_parts_all.F
44!|| create_h3d_quad_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_scalar.F
45!|| create_h3d_quad_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_tensor.F
46!|| create_h3d_quad_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_vector.F
47!|| create_h3d_shell_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_scalar.F
48!|| create_h3d_shell_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_tensor.F
49!|| create_h3d_shell_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_vector.F
50!|| create_h3d_skin_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_scalar.F
51!|| create_h3d_skin_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_tensor.F
52!|| create_h3d_skin_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_vector.F
53!|| create_h3d_solid_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_scalar.F
54!|| create_h3d_solid_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_tensor.F
55!|| create_h3d_solid_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_vector.F
56!|| create_h3d_sph_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_sph_scalar.F
57!|| create_h3d_sph_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_sph_tensor.F
58!|| dmi_rbe3 ../engine/source/constraints/general/rbe3/rbe3f.F
59!|| dtnoda ../engine/source/time_step/dtnoda.F
60!|| dtnodams ../engine/source/time_step/dtnodams.F
61!|| dyna_ina ../engine/source/implicit/imp_dyna.F
62!|| dyna_wex ../engine/source/implicit/imp_dyna.F
63!|| ecrit ../engine/source/output/ecrit.F
64!|| eig ../engine/stub/eig.F
65!|| eig1 ../engine/stub/eig1.F
66!|| eigcond ../engine/stub/eigcond.F
67!|| eigp ../engine/stub/eigp.F
68!|| forani1 ../engine/source/output/anim/generate/forani1.F
69!|| forani2 ../engine/source/output/anim/generate/forani2.F
70!|| forani3 ../engine/source/output/anim/generate/forani3.F
71!|| force ../engine/source/loads/general/force.F90
72!|| force_imp ../engine/source/loads/general/force_imp.F
73!|| forcefingeo ../engine/source/loads/general/forcefingeo.F
74!|| forcepinch ../engine/source/loads/general/forcepinch.F
75!|| forint ../engine/source/elements/forint.F
76!|| freform ../engine/source/input/freform.F
77!|| fvbag0 ../engine/source/airbag/fvbag0.F
78!|| fvbag1 ../engine/source/airbag/fvbag1.F
79!|| fvbag2 ../engine/source/airbag/fvbag2.F
80!|| genani ../engine/source/output/anim/generate/genani.F
81!|| genh3d ../engine/source/output/h3d/h3d_results/genh3d.F
82!|| h3d_create_datatype ../engine/source/output/h3d/h3d_build_fortran/h3d_create_datatype.F
83!|| h3d_gene_keyword ../engine/source/output/h3d/input_list/h3d_gene_keyword.F
84!|| h3d_ini ../engine/source/output/h3d/h3d_build_fortran/h3d_ini.F
85!|| h3d_list_1d_scalar ../engine/source/output/h3d/input_list/h3d_list_1d_scalar.F
86!|| h3d_list_1d_tensor ../engine/source/output/h3d/input_list/h3d_list_1d_tensor.F
87!|| h3d_list_1d_torsor ../engine/source/output/h3d/input_list/h3d_list_1d_torsor.F
88!|| h3d_list_1d_vector ../engine/source/output/h3d/input_list/h3d_list_1d_vector.F
89!|| h3d_list_nodal_scalar ../engine/source/output/h3d/input_list/h3d_list_noda_scalar.F
90!|| h3d_list_nodal_tensor ../engine/source/output/h3d/input_list/h3d_list_noda_tensor.F
91!|| h3d_list_nodal_vector ../engine/source/output/h3d/input_list/h3d_list_noda_vector.F
92!|| h3d_list_quad_scalar ../engine/source/output/h3d/input_list/h3d_list_quad_scalar.F
93!|| h3d_list_quad_tensor ../engine/source/output/h3d/input_list/h3d_list_quad_tensor.F
94!|| h3d_list_quad_vector ../engine/source/output/h3d/input_list/h3d_list_quad_vector.F
95!|| h3d_list_shell_scalar ../engine/source/output/h3d/input_list/h3d_list_shell_scalar.F
96!|| h3d_list_shell_tensor ../engine/source/output/h3d/input_list/h3d_list_shell_tensor.F
97!|| h3d_list_shell_vector ../engine/source/output/h3d/input_list/h3d_list_shell_vector.F
98!|| h3d_list_solid_scalar ../engine/source/output/h3d/input_list/h3d_list_solid_scalar.F
99!|| h3d_list_solid_tensor ../engine/source/output/h3d/input_list/h3d_list_solid_tensor.F
100!|| h3d_list_solid_vector ../engine/source/output/h3d/input_list/h3d_list_solid_vector.F
101!|| h3d_list_sph_scalar ../engine/source/output/h3d/input_list/h3d_list_sph_scalar.F
102!|| h3d_list_sph_tensor ../engine/source/output/h3d/input_list/h3d_list_sph_tensor.F
103!|| h3d_nodal_scalar ../engine/source/output/h3d/h3d_results/h3d_nodal_scalar.F
104!|| h3d_pre_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
105!|| h3d_read ../engine/source/output/h3d/h3d_build_fortran/h3d_read.F
106!|| h3d_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
107!|| h3d_skin_vector ../engine/source/output/h3d/h3d_results/h3d_skin_vector.F
108!|| h3d_solid_scalar ../engine/source/output/h3d/h3d_results/h3d_solid_scalar.F
109!|| h3d_solid_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_solid_scalar_1.F
110!|| h3d_solid_vector ../engine/source/output/h3d/h3d_results/h3d_solid_vector.F
111!|| i10for3 ../engine/source/interfaces/int10/i10for3.F
112!|| i10main_tri ../engine/source/interfaces/intsort/i10main_tri.F
113!|| i10mainf ../engine/source/interfaces/int10/i10mainf.F
114!|| i11ass3 ../engine/source/interfaces/int11/i11ass3.F
115!|| i11mainf ../engine/source/interfaces/int11/i11mainf.F
116!|| i14cmp ../engine/source/interfaces/int14/i14cmp.F
117!|| i14frt ../engine/source/interfaces/int14/i14frt.F
118!|| i15ass ../engine/source/interfaces/int15/i15ass.F
119!|| i15cmp ../engine/source/interfaces/int15/i15cmp.F
120!|| i17for3 ../engine/source/interfaces/int17/i17for3.F
121!|| i17lll4_pena ../engine/source/interfaces/int17/i17for3.F
122!|| i17lll_pena ../engine/source/interfaces/int17/i17for3.F
123!|| i17main_pena ../engine/source/interfaces/int17/i17main_pena.F
124!|| i18for3 ../engine/source/interfaces/int18/i18for3.F
125!|| i18kine_s ../engine/source/interfaces/int18/i18main_kine.F
126!|| i18main_kine_1 ../engine/source/interfaces/int18/i18main_kine.F
127!|| i18main_kine_2 ../engine/source/interfaces/int18/i18main_kine.F
128!|| i18main_kine_s ../engine/source/interfaces/int18/i18main_kine.F
129!|| i20buce_crit ../engine/source/interfaces/intsort/i20buce_crit.F
130!|| i20for3 ../engine/source/interfaces/int20/i20for3.F
131!|| i20for3e ../engine/source/interfaces/int20/i20for3.F
132!|| i20main_crit_tri ../engine/source/interfaces/intsort/i20main_crit_tri.F
133!|| i20main_tri ../engine/source/interfaces/intsort/i20main_tri.F
134!|| i20mainf ../engine/source/interfaces/int20/i20mainf.F
135!|| i21ass3 ../engine/source/interfaces/int21/i21ass3.F
136!|| i21mainf ../engine/source/interfaces/int21/i21mainf.F
137!|| i22for3 ../engine/source/interfaces/int22/i22for3.F
138!|| i22main_tri ../engine/source/interfaces/intsort/i22main_tri.F
139!|| i22mainf ../engine/source/interfaces/int22/i22mainf.F
140!|| i23for3 ../engine/source/interfaces/int23/i23for3.F
141!|| i23main_tri ../engine/source/interfaces/intsort/i23main_tri.F
142!|| i23mainf ../engine/source/interfaces/int23/i23mainf.F
143!|| i24dst3e ../engine/source/interfaces/int24/i24dst3e.F
144!|| i24for3 ../engine/source/interfaces/int24/i24for3.F
145!|| i24main_tri ../engine/source/interfaces/intsort/i24main_tri.F
146!|| i24mainf ../engine/source/interfaces/int24/i24main.F
147!|| i25for3 ../engine/source/interfaces/int25/i25for3.F
148!|| i25for3_e2s ../engine/source/interfaces/int25/i25for3_e2s.F
149!|| i25for3e ../engine/source/interfaces/int25/i25for3e.F
150!|| i25main_slid ../engine/source/interfaces/int25/i25main_slid.F
151!|| i25main_tri ../engine/source/interfaces/intsort/i25main_tri.F
152!|| i25mainf ../engine/source/interfaces/int25/i25mainf.F
153!|| i2curvf ../engine/source/interfaces/interf/i2curvf.F
154!|| i2curvfp ../engine/source/interfaces/interf/i2curvfp.F
155!|| i2fomo3 ../engine/source/interfaces/interf/i2for3.F
156!|| i2fomo3p ../engine/source/interfaces/interf/i2for3p.F
157!|| i2for25 ../engine/source/interfaces/interf/i2for25.F
158!|| i2for25p ../engine/source/interfaces/interf/i2for25p.F
159!|| i2for26 ../engine/source/interfaces/interf/i2for26.F
160!|| i2for26p ../engine/source/interfaces/interf/i2for26p.F
161!|| i2for27 ../engine/source/interfaces/interf/i2for27.F
162!|| i2for27_cin ../engine/source/interfaces/interf/i2for27_cin.F
163!|| i2for27_pen ../engine/source/interfaces/interf/i2for27_pen.F
164!|| i2for27p ../engine/source/interfaces/interf/i2for27p.F
165!|| i2for27p_cin ../engine/source/interfaces/interf/i2for27p_cin.F
166!|| i2for27p_pen ../engine/source/interfaces/interf/i2for27p_pen.F
167!|| i2for28 ../engine/source/interfaces/interf/i2for28.F
168!|| i2for28_cin ../engine/source/interfaces/interf/i2for28_cin.F
169!|| i2for28_pen ../engine/source/interfaces/interf/i2for28_pen.F
170!|| i2for28p ../engine/source/interfaces/interf/i2for28p.F
171!|| i2for28p_cin ../engine/source/interfaces/interf/i2for28p_cin.F
172!|| i2for28p_pen ../engine/source/interfaces/interf/i2for28p_pen.F
173!|| i2for3 ../engine/source/interfaces/interf/i2for3.F
174!|| i2for3n ../engine/source/interfaces/interf/i2for3.F
175!|| i2for3o ../engine/source/interfaces/interf/i2for3.F
176!|| i2for3p ../engine/source/interfaces/interf/i2for3p.F
177!|| i2for3pn ../engine/source/interfaces/interf/i2for3p.F
178!|| i2for3po ../engine/source/interfaces/interf/i2for3p.F
179!|| i2forces ../engine/source/interfaces/interf/i2forces.F
180!|| i2forces_2d ../engine/source/interfaces/interf/i2forces_2D.F
181!|| i2mom27_cin ../engine/source/interfaces/interf/i2mom27_cin.F
182!|| i2mom27p_cin ../engine/source/interfaces/interf/i2mom27p_cin.F
183!|| i2mom3n ../engine/source/interfaces/interf/i2for3.F
184!|| i2mom3pn ../engine/source/interfaces/interf/i2for3p.F
185!|| i2rupt ../engine/source/interfaces/interf/int2rupt.F
186!|| i3for2 ../engine/source/interfaces/inter2d/i3for2.F
187!|| i3for3 ../engine/source/interfaces/inter3d/i3for3.F
188!|| i3fri3 ../engine/source/interfaces/inter3d/i3fri3.F
189!|| i5for3 ../engine/source/interfaces/inter3d/i5for3.F
190!|| i5fri3 ../engine/source/interfaces/inter3d/i3fri3.F
191!|| i6ass3 ../engine/source/interfaces/inter3d/i6ass3.F
192!|| i6main ../engine/source/interfaces/inter3d/i6main.F
193!|| i7ass33 ../engine/source/interfaces/int07/i7ass3.F
194!|| i7assigeo0 ../engine/source/interfaces/int07/i7ass3.F
195!|| i7for3 ../engine/source/interfaces/int07/i7for3.F
196!|| i7main_tri ../engine/source/interfaces/intsort/i7main_tri.F
197!|| i7mainf ../engine/source/interfaces/int07/i7mainf.F
198!|| i8for3 ../engine/source/interfaces/inter3d/i8for3.F
199!|| imp_buck ../engine/source/implicit/imp_buck.F
200!|| imp_chkm ../engine/source/implicit/imp_solv.F
201!|| imp_fanie ../engine/source/implicit/imp_solv.F
202!|| imp_fanii ../engine/source/implicit/imp_solv.F
203!|| imp_fout ../engine/source/implicit/imp_solv.F
204!|| imp_inttd0 ../engine/source/implicit/imp_int_k.F
205!|| imp_solv ../engine/source/implicit/imp_solv.F
206!|| imp_tripi ../engine/source/implicit/imp_int_k.F
207!|| iniresa ../engine/source/output/restart/rdresa.F
208!|| int2rupt ../engine/source/interfaces/interf/int2rupt.F
209!|| intal1 ../engine/source/ale/inter/intal1.F
210!|| intal2 ../engine/source/ale/inter/intal2.F
211!|| inter_deallocate_wait ../engine/source/interfaces/generic/inter_deallocate_wait.F
212!|| inter_sort ../engine/source/interfaces/generic/inter_sort.F
213!|| inter_sort_07 ../engine/source/interfaces/int07/inter_sort_07.F
214!|| intfop1 ../engine/source/interfaces/interf/intfop1.F
215!|| intfop2 ../engine/source/interfaces/interf/intfop2.F
216!|| intfop8 ../engine/source/interfaces/interf/intfop8.F
217!|| intti1 ../engine/source/interfaces/interf/intti1.F
218!|| intti2f ../engine/source/interfaces/interf/intti2f.F
219!|| inttri ../engine/source/interfaces/intsort/inttri.F
220!|| intvo2 ../engine/source/interfaces/inter2d/intvo2.F
221!|| intvo3 ../engine/source/interfaces/inter3d/intvo3.F
222!|| intvo8 ../engine/source/interfaces/inter3d/intvo8.F
223!|| iqela1 ../engine/source/ale/inter/iqela1.F
224!|| lag_anith ../engine/source/tools/lagmul/lag_anith.F
225!|| lag_anithp ../engine/source/tools/lagmul/lag_anith.F
226!|| lag_mult ../engine/source/tools/lagmul/lag_mult.F
227!|| lag_multp ../engine/source/tools/lagmul/lag_mult.F
228!|| lech3d ../engine/source/output/h3d/h3d_build_fortran/lech3d.F
229!|| lecinp ../engine/source/input/lecinp.F
230!|| lectur ../engine/source/input/lectur.F
231!|| load_pressure ../engine/source/loads/general/load_pressure/load_pressure.F
232!|| manctr ../engine/source/input/manctr.F
233!|| monvol0 ../engine/source/airbag/monvol0.F
234!|| multi_allocate ../engine/source/multifluid/multi_allocate.F
235!|| pbilan ../engine/source/elements/beam/pbilan.F
236!|| pblast_1 ../engine/source/loads/pblast/pblast_1.F
237!|| pblast_2 ../engine/source/loads/pblast/pblast_2.F
238!|| pblast_3 ../engine/source/loads/pblast/pblast_3.F
239!|| pblast_load_computation ../engine/source/loads/pblast/pblast.F
240!|| pfluid ../engine/source/loads/general/pfluid/pfluid.F
241!|| pforc3 ../engine/source/elements/beam/pforc3.F
242!|| prelech3d ../engine/source/output/h3d/h3d_build_fortran/prelech3d.F90
243!|| pressure_cyl ../engine/source/loads/general/load_pcyl/pressure_cyl.F
244!|| r1tors ../engine/source/elements/spring/r1tors.F
245!|| r23forc3 ../engine/source/elements/spring/r23forc3.F
246!|| r23law108 ../engine/source/elements/spring/r23law108.F
247!|| r23law113 ../engine/source/elements/spring/r23law113.F
248!|| r23law114 ../engine/source/elements/spring/r23law114.F
249!|| r2tors ../engine/source/elements/spring/r2tors.F
250!|| r3tors ../engine/source/elements/spring/r3tors.F
251!|| r4tors ../engine/source/elements/spring/r4tors.F
252!|| radioss2 ../engine/source/engine/radioss2.F
253!|| ranim33 ../engine/source/elements/joint/ranim33.F
254!|| rbe3t1 ../engine/source/constraints/general/rbe3/rbe3f.F
255!|| rdcomi ../engine/source/output/restart/rdcomm.F
256!|| rdresa ../engine/source/output/restart/rdresa.F
257!|| rdresb ../engine/source/output/restart/rdresb.F
258!|| reaction_forces_check_for_requested_output ../engine/source/output/reactions.F
259!|| reallocate_fi2 ../engine/source/mpi/interfaces/spmd_i25slide.F
260!|| resol ../engine/source/engine/resol.F
261!|| resol_alloc_phase8 ../engine/source/engine/resol_alloc.F90
262!|| resol_alloc_phase9 ../engine/source/engine/resol_alloc.F90
263!|| resol_head ../engine/source/engine/resol_head.F
264!|| resol_init ../engine/source/engine/resol_init.F
265!|| restalloc ../engine/source/output/restart/arralloc.F
266!|| rforc3 ../engine/source/elements/spring/rforc3.F
267!|| rgjoint ../engine/source/elements/joint/rgjoint.F
268!|| ruptint2 ../engine/source/interfaces/interf/ruptint2.F
269!|| sortie_main ../engine/source/output/sortie_main.F
270!|| spmd_exch2_a_pon ../engine/source/mpi/forces/spmd_exch2_a_pon.F
271!|| spmd_exch_a ../engine/source/mpi/forces/spmd_exch_a.F
272!|| spmd_exch_a_ams_poff ../engine/source/mpi/forces/spmd_exch_a_ams_poff.F
273!|| spmd_exch_a_int2 ../engine/source/mpi/forces/spmd_exch_a_int2.F
274!|| spmd_exch_a_int2_ams ../engine/source/mpi/forces/spmd_exch_a_int2_ams.F
275!|| spmd_exch_a_int2_pon ../engine/source/mpi/forces/spmd_exch_a_int2_pon.F
276!|| spmd_exch_a_int2h ../engine/source/mpi/forces/spmd_exch_a_int2h.F
277!|| spmd_exch_a_int2h_ams ../engine/source/mpi/forces/spmd_exch_a_int2h_ams.F
278!|| spmd_exch_efric ../engine/source/mpi/interfaces/spmd_exch_efric.F
279!|| spmd_exch_sorting_efric ../engine/source/mpi/interfaces/spmd_exch_sorting_efric.F
280!|| spmd_fiadd11_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
281!|| spmd_fiadd11_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
282!|| spmd_fiadd17_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
283!|| spmd_fiadd17_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
284!|| spmd_fiadd20_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
285!|| spmd_fiadd20e_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
286!|| spmd_fiadd20f_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
287!|| spmd_fiadd20fe_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
288!|| spmd_fiadd25e_poff ../engine/source/mpi/interfaces/spmd_fiadd25e_poff.F
289!|| spmd_fiadd25e_pon ../engine/source/mpi/interfaces/spmd_fiadd25e_pon.F
290!|| spmd_fiadd_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
291!|| spmd_fiadd_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
292!|| spmd_i18kine_pene_com_poff ../engine/source/mpi/interfaces/spmd_i18kine_pene_com_poff.F
293!|| spmd_i25_slide_gat ../engine/source/mpi/interfaces/spmd_i25slide.F
294!|| spmd_i7fcom_poff ../engine/source/mpi/forces/spmd_i7fcom_poff.F
295!|| spmd_i7fcom_pon ../engine/source/mpi/forces/spmd_i7fcom_pon.F
296!|| spmd_initfi ../engine/source/mpi/interfaces/spmd_i7tool.F
297!|| spmd_tri10gat ../engine/source/mpi/interfaces/spmd_int.F
298!|| spmd_tri20gat ../engine/source/mpi/interfaces/spmd_i7crit.F
299!|| spmd_tri24gat ../engine/source/mpi/interfaces/spmd_int.F
300!|| spmd_tri25gat ../engine/source/mpi/interfaces/spmd_tri25gat.F
301!|| spmd_tri7gat ../engine/source/mpi/interfaces/spmd_int.F
302!|| stop_sensor ../engine/source/tools/sensor/stop_sensor.F
303!|| tbilan ../engine/source/elements/truss/tbilan.F
304!|| tforc3 ../engine/source/elements/truss/tforc3.F
305!|| tmax_ipart ../engine/source/output/tmax_ipart.F
306!|| volpre ../engine/source/airbag/volpres.F
307!|| volprep ../engine/source/airbag/volpresp.F
308!|| wrcomi ../engine/source/output/restart/wrcomm.F
309!|| wrrestp ../engine/source/output/restart/wrrestp.F
310!||====================================================================
311 MODULE h3d_mod
312C-----------------------------------------------
313C m y _ r e a l
314C-----------------------------------------------
315#include "my_real.inc"
316C-----------------------------------------------
317c
318 LOGICAL :: is_h3d_used = .false.
319C-----------------------------------------------
320C H3D_KEYWORD : LIST OF AVAILABLE /H3D OPTIONS
321C-----------------------------------------------
322 TYPE h3d_keyword
323 CHARACTER(LEN=100) :: key3 = ''
324 CHARACTER(LEN=100) :: key4 = ''
325 CHARACTER(LEN=100) :: key5 = ''
326 CHARACTER(LEN=100) :: key6 = ''
327 CHARACTER(LEN=100) :: key7 = ''
328 CHARACTER(LEN=100) :: key8 = ''
329 INTEGER :: id = 0
330 CHARACTER(LEN=50) :: text1 = ''
331 CHARACTER(LEN=50) :: text2 = ''
332 CHARACTER(LEN=80) :: comment = ''
333c
334 INTEGER :: is_ply = 0
335 INTEGER :: is_ply_all = 0
336 INTEGER :: is_layer = 0
337 INTEGER :: is_layer_all = 0
338 INTEGER :: is_ipt = 0
339 INTEGER :: is_ipt_all = 0
340 INTEGER :: is_gauss = 0
341 INTEGER :: is_gauss_all = 0
342 INTEGER :: is_uvar = 0
343 INTEGER :: is_uvar_all = 0
344 INTEGER :: is_ir = 0
345 INTEGER :: is_ir_all = 0
346 INTEGER :: is_is = 0
347 INTEGER :: is_is_all = 0
348 INTEGER :: is_it = 0
349 INTEGER :: is_it_all = 0
350 INTEGER :: is_id = 0
351 INTEGER :: is_id_all = 0
352 INTEGER :: is_inter = 0
353 INTEGER :: is_inter_all = 0
354 INTEGER :: is_skin = 0
355 INTEGER :: is_corner_data = 0
356 INTEGER :: IS_MDSVAR = 0
357 INTEGER :: is_mdsvar_all = 0
358 INTEGER :: is_mdsvar_def = 0
359 INTEGER :: is_mode = 0
360 INTEGER :: is_mode_all = 0
361c
362 END TYPE h3d_keyword
363C-----------------------------------------------
364C H3D_INPUT_LIST : LIST OF /H3D KEYWORDS READ IN 1.rad
365C-----------------------------------------------
366 TYPE h3d_input
367 CHARACTER(LEN=20) :: key2 = ''
368 CHARACTER(LEN=20) :: key3 = ''
369 CHARACTER(LEN=20) :: key4 = ''
370 CHARACTER(LEN=20) :: key5 = ''
371 CHARACTER(LEN=20) :: key6 = ''
372 CHARACTER(LEN=20) :: key7 = ''
373 CHARACTER(LEN=20) :: key8 = ''
374 INTEGER :: nb_part=0
375 INTEGER, DIMENSION(:), ALLOCATABLE :: part_list
376 END TYPE h3d_input
377C-----------------------------------------------
378C H3D_PARTS : LIST OF OUTPUTTED PARTS
379C-----------------------------------------------
380 TYPE h3d_part_list
381 INTEGER :: nb_part=0
382 INTEGER, DIMENSION(:), ALLOCATABLE :: part_list
383 INTEGER, DIMENSION(:), ALLOCATABLE :: nodes
384 INTEGER, DIMENSION(:), ALLOCATABLE :: part
385 END TYPE h3d_part_list
386C-----------------------------------------------
387C H3D_OUTPUT_LIST : OUTPUT DATABASE
388C-----------------------------------------------
389 TYPE h3d_output
390 INTEGER :: id = 0
391 INTEGER :: ok = 0
392 INTEGER :: n_outp = 0
393 CHARACTER(LEN=100) :: keyword = ''
394 INTEGER :: etype = 0
395 INTEGER :: outp_type = 0
396 INTEGER :: is_info1 = 0
397 INTEGER :: info1 = 0
398 INTEGER :: is_info2 = 0
399 INTEGER :: info2 = 0
400 INTEGER :: ply = 0
401 INTEGER :: layer = 0
402 INTEGER :: layer_upper = 0
403 INTEGER :: layer_lower = 0
404 INTEGER :: layer_memb = 0
405 INTEGER :: layer_bend = 0
406 INTEGER :: ipt = 0
407 INTEGER :: is_ipt_upper = 0
408 INTEGER :: is_ipt_lower = 0
409 INTEGER :: is_ipt_memb = 0
410 INTEGER :: is_ipt_bend = 0
411 INTEGER :: iuvar = 0
412 INTEGER :: imdsvar = 0
413 INTEGER :: idmds = 0
414 INTEGER :: idmatmds = 0
415 CHARACTER(LEN=64) :: mdsvar_name = ''
416 INTEGER :: smdsvar_name = 0
417 INTEGER :: gauss = 0
418 INTEGER :: ir = 0
419 INTEGER :: is = 0
420 INTEGER :: it = 0
421 INTEGER :: object_id = 0
422 INTEGER :: mode = 0
423 INTEGER :: is_corner_data = 0
424 CHARACTER(LEN=80) :: string1 = ''
425 INTEGER :: s_string1 = 0
426 CHARACTER(LEN=80) :: string2 = ''
427 INTEGER :: s_string2 = 0
428 CHARACTER(LEN=120) :: comment = ''
429 INTEGER :: s_comment = 0
430 INTEGER :: n_h3d_part_list = 0
431 INTEGER :: inter = 0
432 INTEGER, DIMENSION(:), ALLOCATABLE :: part_list
433 INTEGER, DIMENSION(:), ALLOCATABLE :: part
434 END TYPE h3d_output
435C-----------------------------------------------
436C H3D_DATABASE
437C-----------------------------------------------
438 TYPE h3d_database
439
440
441 INTEGER :: n_title = 0
442 INTEGER :: n_sens_h3d = 0
443 INTEGER :: n_outp_h3d = 0
444 INTEGER :: ih3d = 0
445 INTEGER :: ih3d_run = 0
446 INTEGER :: n_input_h3d = 0
447 INTEGER :: ipart_select = 0
448 INTEGER :: mh3d = 0
449 INTEGER :: light = 0
450
451 INTEGER :: n_scal_dt = 0 !ANIM_N(1)
452 INTEGER :: n_scal_dmas = 0 !ANIM_N(2)
453 INTEGER :: n_scal_diner = 0 !ANIM_N(12)
454 INTEGER :: n_scal_dama2 = 0 !ANIM_N(15&16)
455 INTEGER :: n_scal_skid = 0
456 INTEGER :: n_scal_stifr = 0 !ANIM_N(18)
457 INTEGER :: n_scal_stifn = 0 !ANIM_N(19)
458 INTEGER :: n_scal_cse_fric = 0
459 INTEGER :: n_scal_cse_fricint = 0
460
461 INTEGER :: n_vect_cont = 0 !ANIM_V(4)
462 INTEGER :: n_vect_fint = 0 !ANIM_V(5)
463 INTEGER :: n_vect_fext = 0 !ANIM_V(6)
464 INTEGER :: n_vect_pcont = 0 !ANIM_V(12)
465 INTEGER :: n_vect_cont2 = 0 !ANIM_V(13)
466 INTEGER :: n_vect_drot = 0 !ANIM_V(14)
467 INTEGER :: n_vect_dxanc = 0 !ANIM_V(15)
468 INTEGER :: n_vect_freac = 0 !ANIM_V(17)
469 INTEGER :: n_vect_mreac = 0 !ANIM_V(18)
470 INTEGER :: n_vect_clust_force = 0 !ANIM_V(19)
471 INTEGER :: n_vect_clust_mom = 0 !ANIM_V(20)
472 INTEGER :: n_vect_cont_max = 0 !ANIM_V(26)
473 INTEGER :: n_vect_pcont2 = 0 !ANIM_V(27)
474 INTEGER :: n_vect_pcont_max = 0
475 INTEGER :: n_vect_cont2_max = 0
476 INTEGER :: n_vect_pcont2_max = 0
477 INTEGER :: n_vect_cont2_min = 0
478 INTEGER :: n_vect_pcont2_min = 0
479 INTEGER :: n_vect_cont2m = 0
480 INTEGER :: n_vect_acc = 0 !FVM acceleration (law151, colocated scheme)
481
482 INTEGER :: sh_scal_err_thk = 0 !ANIM_CE(2156)
483
484 INTEGER :: sol_scal_vortx = 0 !ANIM_SE(10)
485 INTEGER :: sol_scal_vorty = 0 !ANIM_SE(4960)
486 INTEGER :: sol_scal_vortz = 0 !ANIM_SE(4961)
487
488 INTEGER :: sh_iepsdot = 0 !ANIM_C(...)
489 INTEGER :: und_forc = 0 !ANIM_FT(1)
490 INTEGER :: strain = 0 !ANIM STRAIN TENSOR
491
492 INTEGER :: is_corner_data = 0
493 INTEGER :: rbody_single = 0
494 INTEGER :: rbe2_single = 0
495 INTEGER :: rbe3_single = 0
496
497 INTEGER :: comp_level = 0
498
499 my_real :: th3d = 0.
500 my_real :: dth3d= 0.
501 my_real :: th3d_stop= 0.
502 my_real :: th3d0= 0.
503 my_real :: dth3d0= 0.
504 my_real :: th3d_stop0= 0.
505 my_real :: percentage_error= 0.
506
507 INTEGER dth3d_fct_id ! Function defining frequence of h3d outputs over time
508 INTEGER nb_h3d_frame ! TOtal number of H3D in the run
509
510 INTEGER, DIMENSION(:), ALLOCATABLE :: n_skid_inter
511 INTEGER, DIMENSION(:), ALLOCATABLE :: ititle
512 INTEGER, DIMENSION(:), ALLOCATABLE :: lsens_h3d
513 INTEGER, DIMENSION(:), ALLOCATABLE :: n_cse_fric_inter
514
515 CHARACTER(LEN=80), DIMENSION(:), ALLOCATABLE ::title
516
517 TYPE (h3d_input), DIMENSION(:), ALLOCATABLE :: input_list
518
519 TYPE (h3d_part_list), DIMENSION(:), ALLOCATABLE :: parts
520
521 TYPE (h3d_output), DIMENSION(:), ALLOCATABLE :: output_list
522
523 END TYPE h3d_database
524
525C-----------------------------------------------
526 TYPE h3d_number_of_key
527 INTEGER :: nodal_scalar =0
528 INTEGER :: nodal_vector =0
529 INTEGER :: nodal_tensor =0
530 INTEGER :: oned_scalar =0
531 INTEGER :: oned_vector =0
532 INTEGER :: ONED_TENSOR =0
533 INTEGER :: oned_torsor =0
534 INTEGER :: shell_scalar =0
535 INTEGER :: shell_vector =0
536 INTEGER :: shell_tensor =0
537 INTEGER :: solid_scalar =0
538 INTEGER :: solid_vector =0
539 INTEGER :: solid_tensor =0
540 INTEGER :: sph_scalar =0
541 INTEGER :: sph_tensor =0
542 INTEGER :: QUAD_SCALAR =0
543 INTEGER :: quad_vector =0
544 INTEGER :: quad_tensor =0
545 END TYPE h3d_number_of_key
546C-----------------------------------------------
547
548 END MODULE h3d_mod
my_real
#define my_real
Definition cppsort.cpp:32
id
initmumps id
Definition multiplerhs_example.m:4
h3d_mod
Definition h3d_mod.F:311
h3d_mod::is_h3d_used
logical is_h3d_used
Definition h3d_mod.F:318
h3d_mod::h3d_database
Definition h3d_mod.F:438
h3d_mod::h3d_input
Definition h3d_mod.F:366
h3d_mod::h3d_keyword
Definition h3d_mod.F:322
h3d_mod::h3d_number_of_key
Definition h3d_mod.F:526
h3d_mod::h3d_output
Definition h3d_mod.F:389
h3d_mod::h3d_part_list
Definition h3d_mod.F:380