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!|| clusterf ../engine/source/output/cluster/clusterf.F
31!|| create_h3d_1d_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_scalar.F
32!|| create_h3d_1d_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_tensor.F
33!|| create_h3d_1d_torsor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_torsor.F
34!|| create_h3d_1d_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_vector.F
35!|| create_h3d_arg_keyword ../engine/source/output/h3d/h3d_build_fortran/create_h3d_arg_keyword.F
36!|| create_h3d_input ../engine/source/output/h3d/h3d_build_fortran/create_h3d_input.F
37!|| create_h3d_nodal_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_scalar.F
38!|| create_h3d_nodal_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_tensor.F
39!|| create_h3d_nodal_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_vector.F
40!|| create_h3d_output_per_part ../engine/source/output/h3d/h3d_build_fortran/create_h3d_output_per_part.F90
41!|| create_h3d_parts ../engine/source/output/h3d/h3d_build_fortran/create_h3d_parts.F
42!|| create_h3d_parts_all ../engine/source/output/h3d/h3d_build_fortran/create_h3d_parts_all.F
43!|| create_h3d_quad_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_scalar.F
44!|| create_h3d_quad_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_tensor.F
45!|| create_h3d_quad_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_vector.F
46!|| create_h3d_shell_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_scalar.F
47!|| create_h3d_shell_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_tensor.F
48!|| create_h3d_shell_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_vector.F
49!|| create_h3d_skin_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_scalar.F
50!|| create_h3d_skin_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_tensor.F
51!|| create_h3d_skin_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_vector.F
52!|| create_h3d_solid_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_scalar.F
53!|| create_h3d_solid_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_tensor.F
54!|| create_h3d_solid_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_vector.F
55!|| create_h3d_sph_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_sph_scalar.F
56!|| create_h3d_sph_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_sph_tensor.F
57!|| dmi_rbe3 ../engine/source/constraints/general/rbe3/rbe3f.F
58!|| dtnoda ../engine/source/time_step/dtnoda.F
59!|| dtnodams ../engine/source/time_step/dtnodams.F
60!|| dyna_ina ../engine/source/implicit/imp_dyna.F
61!|| dyna_wex ../engine/source/implicit/imp_dyna.F
62!|| ecrit ../engine/source/output/ecrit.F
63!|| eig ../engine/stub/eig.F
64!|| eig1 ../engine/stub/eig1.F
65!|| eigcond ../engine/stub/eigcond.F
66!|| eigp ../engine/stub/eigp.F
67!|| forani1 ../engine/source/output/anim/generate/forani1.F
68!|| forani2 ../engine/source/output/anim/generate/forani2.F
69!|| forani3 ../engine/source/output/anim/generate/forani3.F
70!|| force ../engine/source/loads/general/force.F90
71!|| force_imp ../engine/source/loads/general/force_imp.F
72!|| forcefingeo ../engine/source/loads/general/forcefingeo.F
73!|| forcepinch ../engine/source/loads/general/forcepinch.F
74!|| forint ../engine/source/elements/forint.F
75!|| freform ../engine/source/input/freform.F
76!|| fvbag0 ../engine/source/airbag/fvbag0.F
77!|| fvbag1 ../engine/source/airbag/fvbag1.F
78!|| fvbag2 ../engine/source/airbag/fvbag2.F
79!|| genani ../engine/source/output/anim/generate/genani.F
80!|| genh3d ../engine/source/output/h3d/h3d_results/genh3d.F
81!|| h3d_create_datatype ../engine/source/output/h3d/h3d_build_fortran/h3d_create_datatype.F
82!|| h3d_gene_keyword ../engine/source/output/h3d/input_list/h3d_gene_keyword.F
83!|| h3d_ini ../engine/source/output/h3d/h3d_build_fortran/h3d_ini.F
84!|| h3d_list_1d_scalar ../engine/source/output/h3d/input_list/h3d_list_1d_scalar.F
85!|| h3d_list_1d_tensor ../engine/source/output/h3d/input_list/h3d_list_1d_tensor.F
86!|| h3d_list_1d_torsor ../engine/source/output/h3d/input_list/h3d_list_1d_torsor.F
87!|| h3d_list_1d_vector ../engine/source/output/h3d/input_list/h3d_list_1d_vector.F
88!|| h3d_list_nodal_scalar ../engine/source/output/h3d/input_list/h3d_list_noda_scalar.F
89!|| h3d_list_nodal_tensor ../engine/source/output/h3d/input_list/h3d_list_noda_tensor.F
90!|| h3d_list_nodal_vector ../engine/source/output/h3d/input_list/h3d_list_noda_vector.F
91!|| h3d_list_quad_scalar ../engine/source/output/h3d/input_list/h3d_list_quad_scalar.F
92!|| h3d_list_quad_tensor ../engine/source/output/h3d/input_list/h3d_list_quad_tensor.F
93!|| h3d_list_quad_vector ../engine/source/output/h3d/input_list/h3d_list_quad_vector.F
94!|| h3d_list_shell_scalar ../engine/source/output/h3d/input_list/h3d_list_shell_scalar.F
95!|| h3d_list_shell_tensor ../engine/source/output/h3d/input_list/h3d_list_shell_tensor.F
96!|| h3d_list_shell_vector ../engine/source/output/h3d/input_list/h3d_list_shell_vector.F
97!|| h3d_list_solid_scalar ../engine/source/output/h3d/input_list/h3d_list_solid_scalar.F
98!|| h3d_list_solid_tensor ../engine/source/output/h3d/input_list/h3d_list_solid_tensor.F
99!|| h3d_list_solid_vector ../engine/source/output/h3d/input_list/h3d_list_solid_vector.F
100!|| h3d_list_sph_scalar ../engine/source/output/h3d/input_list/h3d_list_sph_scalar.F
101!|| h3d_list_sph_tensor ../engine/source/output/h3d/input_list/h3d_list_sph_tensor.F
102!|| h3d_nodal_scalar ../engine/source/output/h3d/h3d_results/h3d_nodal_scalar.F
103!|| h3d_pre_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
104!|| h3d_read ../engine/source/output/h3d/h3d_build_fortran/h3d_read.F
105!|| h3d_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
106!|| h3d_skin_vector ../engine/source/output/h3d/h3d_results/h3d_skin_vector.F
107!|| h3d_solid_scalar ../engine/source/output/h3d/h3d_results/h3d_solid_scalar.F
108!|| h3d_solid_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_solid_scalar_1.F
109!|| h3d_solid_vector ../engine/source/output/h3d/h3d_results/h3d_solid_vector.F
110!|| i10for3 ../engine/source/interfaces/int10/i10for3.F
111!|| i10main_tri ../engine/source/interfaces/intsort/i10main_tri.F
112!|| i10mainf ../engine/source/interfaces/int10/i10mainf.F
113!|| i11ass3 ../engine/source/interfaces/int11/i11ass3.F
114!|| i11mainf ../engine/source/interfaces/int11/i11mainf.F
115!|| i14cmp ../engine/source/interfaces/int14/i14cmp.F
116!|| i14frt ../engine/source/interfaces/int14/i14frt.F
117!|| i15ass ../engine/source/interfaces/int15/i15ass.F
118!|| i15cmp ../engine/source/interfaces/int15/i15cmp.F
119!|| i17for3 ../engine/source/interfaces/int17/i17for3.F
120!|| i17lll4_pena ../engine/source/interfaces/int17/i17for3.F
121!|| i17lll_pena ../engine/source/interfaces/int17/i17for3.F
122!|| i17main_pena ../engine/source/interfaces/int17/i17main_pena.F
123!|| i18for3 ../engine/source/interfaces/int18/i18for3.F
124!|| i18kine_s ../engine/source/interfaces/int18/i18main_kine.F
125!|| i18main_kine_1 ../engine/source/interfaces/int18/i18main_kine.F
126!|| i18main_kine_2 ../engine/source/interfaces/int18/i18main_kine.F
127!|| i18main_kine_s ../engine/source/interfaces/int18/i18main_kine.F
128!|| i20buce_crit ../engine/source/interfaces/intsort/i20buce_crit.F
129!|| i20for3 ../engine/source/interfaces/int20/i20for3.F
130!|| i20for3e ../engine/source/interfaces/int20/i20for3.F
131!|| i20main_crit_tri ../engine/source/interfaces/intsort/i20main_crit_tri.F
132!|| i20main_tri ../engine/source/interfaces/intsort/i20main_tri.F
133!|| i20mainf ../engine/source/interfaces/int20/i20mainf.F
134!|| i21ass3 ../engine/source/interfaces/int21/i21ass3.F
135!|| i21mainf ../engine/source/interfaces/int21/i21mainf.F
136!|| i22for3 ../engine/source/interfaces/int22/i22for3.F
137!|| i22main_tri ../engine/source/interfaces/intsort/i22main_tri.F
138!|| i22mainf ../engine/source/interfaces/int22/i22mainf.F
139!|| i23for3 ../engine/source/interfaces/int23/i23for3.F
140!|| i23main_tri ../engine/source/interfaces/intsort/i23main_tri.F
141!|| i23mainf ../engine/source/interfaces/int23/i23mainf.F
142!|| i24dst3e ../engine/source/interfaces/int24/i24dst3e.F
143!|| i24for3 ../engine/source/interfaces/int24/i24for3.F
144!|| i24main_tri ../engine/source/interfaces/intsort/i24main_tri.F
145!|| i24mainf ../engine/source/interfaces/int24/i24main.F
146!|| i25for3 ../engine/source/interfaces/int25/i25for3.F
147!|| i25for3_e2s ../engine/source/interfaces/int25/i25for3_e2s.F
148!|| i25for3e ../engine/source/interfaces/int25/i25for3e.F
149!|| i25main_slid ../engine/source/interfaces/int25/i25main_slid.F
150!|| i25main_tri ../engine/source/interfaces/intsort/i25main_tri.F
151!|| i25mainf ../engine/source/interfaces/int25/i25mainf.F
152!|| i2curvf ../engine/source/interfaces/interf/i2curvf.F
153!|| i2curvfp ../engine/source/interfaces/interf/i2curvfp.F
154!|| i2fomo3 ../engine/source/interfaces/interf/i2for3.F
155!|| i2fomo3p ../engine/source/interfaces/interf/i2for3p.F
156!|| i2for25 ../engine/source/interfaces/interf/i2for25.F
157!|| i2for25p ../engine/source/interfaces/interf/i2for25p.F
158!|| i2for26 ../engine/source/interfaces/interf/i2for26.F
159!|| i2for26p ../engine/source/interfaces/interf/i2for26p.F
160!|| i2for27 ../engine/source/interfaces/interf/i2for27.F
161!|| i2for27_cin ../engine/source/interfaces/interf/i2for27_cin.F
162!|| i2for27_pen ../engine/source/interfaces/interf/i2for27_pen.F
163!|| i2for27p ../engine/source/interfaces/interf/i2for27p.F
164!|| i2for27p_cin ../engine/source/interfaces/interf/i2for27p_cin.F
165!|| i2for27p_pen ../engine/source/interfaces/interf/i2for27p_pen.F
166!|| i2for28 ../engine/source/interfaces/interf/i2for28.F
167!|| i2for28_cin ../engine/source/interfaces/interf/i2for28_cin.F
168!|| i2for28_pen ../engine/source/interfaces/interf/i2for28_pen.F
169!|| i2for28p ../engine/source/interfaces/interf/i2for28p.F
170!|| i2for28p_cin ../engine/source/interfaces/interf/i2for28p_cin.F
171!|| i2for28p_pen ../engine/source/interfaces/interf/i2for28p_pen.F
172!|| i2for3 ../engine/source/interfaces/interf/i2for3.F
173!|| i2for3n ../engine/source/interfaces/interf/i2for3.F
174!|| i2for3o ../engine/source/interfaces/interf/i2for3.F
175!|| i2for3p ../engine/source/interfaces/interf/i2for3p.F
176!|| i2for3pn ../engine/source/interfaces/interf/i2for3p.F
177!|| i2for3po ../engine/source/interfaces/interf/i2for3p.F
178!|| i2forces ../engine/source/interfaces/interf/i2forces.F
179!|| i2forces_2d ../engine/source/interfaces/interf/i2forces_2D.F
180!|| i2mom27_cin ../engine/source/interfaces/interf/i2mom27_cin.F
181!|| i2mom27p_cin ../engine/source/interfaces/interf/i2mom27p_cin.F
182!|| i2mom3n ../engine/source/interfaces/interf/i2for3.F
183!|| i2mom3pn ../engine/source/interfaces/interf/i2for3p.F
184!|| i2rupt ../engine/source/interfaces/interf/int2rupt.F
185!|| i3for2 ../engine/source/interfaces/inter2d/i3for2.F
186!|| i3for3 ../engine/source/interfaces/inter3d/i3for3.F
187!|| i3fri3 ../engine/source/interfaces/inter3d/i3fri3.F
188!|| i5for3 ../engine/source/interfaces/inter3d/i5for3.F
189!|| i5fri3 ../engine/source/interfaces/inter3d/i3fri3.F
190!|| i6ass3 ../engine/source/interfaces/inter3d/i6ass3.F
191!|| i6main ../engine/source/interfaces/inter3d/i6main.F
192!|| i7ass33 ../engine/source/interfaces/int07/i7ass3.F
193!|| i7assigeo0 ../engine/source/interfaces/int07/i7ass3.F
194!|| i7for3 ../engine/source/interfaces/int07/i7for3.F
195!|| i7main_tri ../engine/source/interfaces/intsort/i7main_tri.F
196!|| i7mainf ../engine/source/interfaces/int07/i7mainf.F
197!|| i8for3 ../engine/source/interfaces/inter3d/i8for3.F
198!|| imp_buck ../engine/source/implicit/imp_buck.F
199!|| imp_chkm ../engine/source/implicit/imp_solv.F
200!|| imp_fanie ../engine/source/implicit/imp_solv.F
201!|| imp_fanii ../engine/source/implicit/imp_solv.F
202!|| imp_fout ../engine/source/implicit/imp_solv.F
203!|| imp_inttd0 ../engine/source/implicit/imp_int_k.F
204!|| imp_solv ../engine/source/implicit/imp_solv.F
205!|| imp_tripi ../engine/source/implicit/imp_int_k.F
206!|| iniresa ../engine/source/output/restart/rdresa.F
207!|| int2rupt ../engine/source/interfaces/interf/int2rupt.F
208!|| intal1 ../engine/source/ale/inter/intal1.F
209!|| intal2 ../engine/source/ale/inter/intal2.F
210!|| inter_deallocate_wait ../engine/source/interfaces/generic/inter_deallocate_wait.F
211!|| inter_sort ../engine/source/interfaces/generic/inter_sort.F
212!|| inter_sort_07 ../engine/source/interfaces/int07/inter_sort_07.F
213!|| intfop1 ../engine/source/interfaces/interf/intfop1.F
214!|| intfop2 ../engine/source/interfaces/interf/intfop2.F
215!|| intfop8 ../engine/source/interfaces/interf/intfop8.F
216!|| intti1 ../engine/source/interfaces/interf/intti1.F
217!|| intti2f ../engine/source/interfaces/interf/intti2f.F
218!|| inttri ../engine/source/interfaces/intsort/inttri.F
219!|| intvo2 ../engine/source/interfaces/inter2d/intvo2.F
220!|| intvo3 ../engine/source/interfaces/inter3d/intvo3.F
221!|| intvo8 ../engine/source/interfaces/inter3d/intvo8.F
222!|| iqela1 ../engine/source/ale/inter/iqela1.F
223!|| lag_anith ../engine/source/tools/lagmul/lag_anith.F
224!|| lag_anithp ../engine/source/tools/lagmul/lag_anith.F
225!|| lag_mult ../engine/source/tools/lagmul/lag_mult.F
226!|| lag_multp ../engine/source/tools/lagmul/lag_mult.F
227!|| lech3d ../engine/source/output/h3d/h3d_build_fortran/lech3d.F
228!|| lecinp ../engine/source/input/lecinp.F
229!|| lectur ../engine/source/input/lectur.F
230!|| load_pressure ../engine/source/loads/general/load_pressure/load_pressure.F
231!|| manctr ../engine/source/input/manctr.F
232!|| monvol0 ../engine/source/airbag/monvol0.F
233!|| multi_allocate ../engine/source/multifluid/multi_allocate.F
234!|| pbilan ../engine/source/elements/beam/pbilan.F
235!|| pblast_1 ../engine/source/loads/pblast/pblast_1.F
236!|| pblast_2 ../engine/source/loads/pblast/pblast_2.F
237!|| pblast_3 ../engine/source/loads/pblast/pblast_3.F
238!|| pblast_load_computation ../engine/source/loads/pblast/pblast.F
239!|| pfluid ../engine/source/loads/general/pfluid/pfluid.F
240!|| pforc3 ../engine/source/elements/beam/pforc3.F
241!|| prelech3d ../engine/source/output/h3d/h3d_build_fortran/prelech3d.F90
242!|| pressure_cyl ../engine/source/loads/general/load_pcyl/pressure_cyl.F
243!|| r1tors ../engine/source/elements/spring/r1tors.F
244!|| r23forc3 ../engine/source/elements/spring/r23forc3.F
245!|| r23law108 ../engine/source/elements/spring/r23law108.F
246!|| r23law113 ../engine/source/elements/spring/r23law113.F
247!|| r23law114 ../engine/source/elements/spring/r23law114.F
248!|| r2tors ../engine/source/elements/spring/r2tors.F
249!|| r3tors ../engine/source/elements/spring/r3tors.F
250!|| r4tors ../engine/source/elements/spring/r4tors.F
251!|| radioss2 ../engine/source/engine/radioss2.F
252!|| ranim33 ../engine/source/elements/joint/ranim33.F
253!|| rbe3t1 ../engine/source/constraints/general/rbe3/rbe3f.F
254!|| rdcomi ../engine/source/output/restart/rdcomm.F
255!|| rdresa ../engine/source/output/restart/rdresa.F
256!|| rdresb ../engine/source/output/restart/rdresb.F
257!|| reaction_forces_check_for_requested_output ../engine/source/output/reactions.F
258!|| reallocate_fi2 ../engine/source/mpi/interfaces/spmd_i25slide.F
259!|| resol ../engine/source/engine/resol.F
260!|| resol_head ../engine/source/engine/resol_head.F
261!|| resol_init ../engine/source/engine/resol_init.F
262!|| restalloc ../engine/source/output/restart/arralloc.F
263!|| rforc3 ../engine/source/elements/spring/rforc3.F
264!|| rgjoint ../engine/source/elements/joint/rgjoint.F
265!|| ruptint2 ../engine/source/interfaces/interf/ruptint2.F
266!|| sortie_main ../engine/source/output/sortie_main.F
267!|| spmd_exch2_a_pon ../engine/source/mpi/forces/spmd_exch2_a_pon.F
268!|| spmd_exch_a ../engine/source/mpi/forces/spmd_exch_a.F
269!|| spmd_exch_a_ams_poff ../engine/source/mpi/forces/spmd_exch_a_ams_poff.F
270!|| spmd_exch_a_int2 ../engine/source/mpi/forces/spmd_exch_a_int2.F
271!|| spmd_exch_a_int2_ams ../engine/source/mpi/forces/spmd_exch_a_int2_ams.F
272!|| spmd_exch_a_int2_pon ../engine/source/mpi/forces/spmd_exch_a_int2_pon.F
273!|| spmd_exch_a_int2h ../engine/source/mpi/forces/spmd_exch_a_int2h.F
274!|| spmd_exch_a_int2h_ams ../engine/source/mpi/forces/spmd_exch_a_int2h_ams.F
275!|| spmd_exch_efric ../engine/source/mpi/interfaces/spmd_exch_efric.F
276!|| spmd_exch_sorting_efric ../engine/source/mpi/interfaces/spmd_exch_sorting_efric.F
277!|| spmd_fiadd11_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
278!|| spmd_fiadd11_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
279!|| spmd_fiadd17_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
280!|| spmd_fiadd17_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
281!|| spmd_fiadd20_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
282!|| spmd_fiadd20e_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
283!|| spmd_fiadd20f_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
284!|| spmd_fiadd20fe_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
285!|| spmd_fiadd25e_poff ../engine/source/mpi/interfaces/spmd_fiadd25e_poff.F
286!|| spmd_fiadd25e_pon ../engine/source/mpi/interfaces/spmd_fiadd25e_pon.F
287!|| spmd_fiadd_poff ../engine/source/mpi/interfaces/spmd_i7tool.F
288!|| spmd_fiadd_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
289!|| spmd_i18kine_pene_com_poff ../engine/source/mpi/interfaces/spmd_i18kine_pene_com_poff.F
290!|| spmd_i25_slide_gat ../engine/source/mpi/interfaces/spmd_i25slide.F
291!|| spmd_i7fcom_poff ../engine/source/mpi/forces/spmd_i7fcom_poff.F
292!|| spmd_i7fcom_pon ../engine/source/mpi/forces/spmd_i7fcom_pon.F
293!|| spmd_initfi ../engine/source/mpi/interfaces/spmd_i7tool.F
294!|| spmd_tri10gat ../engine/source/mpi/interfaces/spmd_int.F
295!|| spmd_tri20gat ../engine/source/mpi/interfaces/spmd_i7crit.f
296!|| spmd_tri24gat ../engine/source/mpi/interfaces/spmd_int.F
297!|| spmd_tri25gat ../engine/source/mpi/interfaces/spmd_tri25gat.F
298!|| spmd_tri7gat ../engine/source/mpi/interfaces/spmd_int.F
299!|| stop_sensor ../engine/source/tools/sensor/stop_sensor.F
300!|| tbilan ../engine/source/elements/truss/tbilan.F
301!|| tforc3 ../engine/source/elements/truss/tforc3.F
302!|| tmax_ipart ../engine/source/output/tmax_ipart.F
303!|| volpre ../engine/source/airbag/volpres.F
304!|| volprep ../engine/source/airbag/volpresp.F
305!|| wrcomi ../engine/source/output/restart/wrcomm.F
306!|| wrrestp ../engine/source/output/restart/wrrestp.F
307!||====================================================================
308 MODULE h3d_mod
309C-----------------------------------------------
310C m y _ r e a l
311C-----------------------------------------------
312#include "my_real.inc"
313C-----------------------------------------------
314c
315 LOGICAL :: is_h3d_used = .false.
316C-----------------------------------------------
317C H3D_KEYWORD : LIST OF AVAILABLE /H3D OPTIONS
318C-----------------------------------------------
319 TYPE h3d_keyword
320 CHARACTER(LEN=100) :: key3 = ''
321 CHARACTER(LEN=100) :: key4 = ''
322 CHARACTER(LEN=100) :: KEY5 = ''
323 CHARACTER(LEN=100) :: KEY6 = ''
324 CHARACTER(LEN=100) :: KEY7 = ''
325 CHARACTER(LEN=100) :: KEY8 = ''
326 INTEGER :: ID = 0
327 CHARACTER(LEN=50) :: TEXT1 = ''
328 CHARACTER(LEN=50) :: TEXT2 = ''
329 CHARACTER(LEN=80) :: COMMENT = ''
330c
331 INTEGER :: IS_PLY = 0
332 INTEGER :: IS_PLY_ALL = 0
333 INTEGER :: IS_LAYER = 0
334 INTEGER :: IS_LAYER_ALL = 0
335 INTEGER :: IS_IPT = 0
336 INTEGER :: IS_IPT_ALL = 0
337 INTEGER :: IS_GAUSS = 0
338 INTEGER :: IS_GAUSS_ALL = 0
339 INTEGER :: IS_UVAR = 0
340 INTEGER :: IS_UVAR_ALL = 0
341 INTEGER :: IS_IR = 0
342 INTEGER :: IS_IR_ALL = 0
343 INTEGER :: IS_IS = 0
344 INTEGER :: IS_IS_ALL = 0
345 INTEGER :: IS_IT = 0
346 INTEGER :: IS_IT_ALL = 0
347 INTEGER :: IS_ID = 0
348 INTEGER :: IS_ID_ALL = 0
349 INTEGER :: IS_INTER = 0
350 INTEGER :: IS_INTER_ALL = 0
351 INTEGER :: IS_SKIN = 0
352 INTEGER :: IS_CORNER_DATA = 0
353 INTEGER :: IS_MDSVAR = 0
354 INTEGER :: IS_MDSVAR_ALL = 0
355 INTEGER :: IS_MDSVAR_DEF = 0
356 INTEGER :: IS_MODE = 0
357 INTEGER :: IS_MODE_ALL = 0
358c
359 END TYPE H3D_KEYWORD
360C-----------------------------------------------
361C H3D_INPUT_LIST : LIST OF /H3D KEYWORDS READ IN 1.rad
362C-----------------------------------------------
363 TYPE H3D_INPUT
364 CHARACTER(LEN=20) :: KEY2 = ''
365 CHARACTER(LEN=20) :: KEY3 = ''
366 CHARACTER(LEN=20) :: KEY4 = ''
367 CHARACTER(LEN=20) :: KEY5 = ''
368 CHARACTER(LEN=20) :: KEY6 = ''
369 CHARACTER(LEN=20) :: KEY7 = ''
370 CHARACTER(LEN=20) :: KEY8 = ''
371 INTEGER :: NB_PART=0
372 INTEGER, DIMENSION(:), ALLOCATABLE :: PART_LIST
373 END TYPE H3D_INPUT
374C-----------------------------------------------
375C H3D_PARTS : LIST OF OUTPUTTED PARTS
376C-----------------------------------------------
377 TYPE H3D_PART_LIST
378 INTEGER :: NB_PART=0
379 INTEGER, DIMENSION(:), ALLOCATABLE :: PART_LIST
380 INTEGER, DIMENSION(:), ALLOCATABLE :: NODES
381 INTEGER, DIMENSION(:), ALLOCATABLE :: PART
382 END TYPE H3D_PART_LIST
383C-----------------------------------------------
384C H3D_OUTPUT_LIST : OUTPUT DATABASE
385C-----------------------------------------------
386 TYPE H3D_OUTPUT
387 INTEGER :: ID = 0
388 INTEGER :: OK = 0
389 INTEGER :: N_OUTP = 0
390 CHARACTER(LEN=100) :: KEYWORD = ''
391 INTEGER :: ETYPE = 0
392 INTEGER :: OUTP_TYPE = 0
393 INTEGER :: IS_INFO1 = 0
394 INTEGER :: INFO1 = 0
395 INTEGER :: IS_INFO2 = 0
396 INTEGER :: INFO2 = 0
397 INTEGER :: PLY = 0
398 INTEGER :: LAYER = 0
399 INTEGER :: LAYER_UPPER = 0
400 INTEGER :: LAYER_LOWER = 0
401 INTEGER :: LAYER_MEMB = 0
402 INTEGER :: LAYER_BEND = 0
403 INTEGER :: IPT = 0
404 INTEGER :: IS_IPT_UPPER = 0
405 INTEGER :: IS_IPT_LOWER = 0
406 INTEGER :: IS_IPT_MEMB = 0
407 INTEGER :: IS_IPT_BEND = 0
408 INTEGER :: IUVAR = 0
409 INTEGER :: IMDSVAR = 0
410 INTEGER :: IDMDS = 0
411 INTEGER :: IDMATMDS = 0
412 CHARACTER(LEN=64) :: MDSVAR_NAME = ''
413 INTEGER :: SMDSVAR_NAME = 0
414 INTEGER :: GAUSS = 0
415 INTEGER :: IR = 0
416 INTEGER :: IS = 0
417 INTEGER :: IT = 0
418 INTEGER :: OBJECT_ID = 0
419 INTEGER :: MODE = 0
420 INTEGER :: IS_CORNER_DATA = 0
421 CHARACTER(LEN=80) :: STRING1 = ''
422 INTEGER :: S_STRING1 = 0
423 CHARACTER(LEN=80) :: STRING2 = ''
424 INTEGER :: S_STRING2 = 0
425 CHARACTER(LEN=120) :: COMMENT = ''
426 INTEGER :: S_COMMENT = 0
427 INTEGER :: N_H3D_PART_LIST = 0
428 INTEGER :: INTER = 0
429 INTEGER, DIMENSION(:), ALLOCATABLE :: PART_LIST
430 INTEGER, DIMENSION(:), ALLOCATABLE :: PART
431 END TYPE H3D_OUTPUT
432C-----------------------------------------------
433C H3D_DATABASE
434C-----------------------------------------------
435 TYPE H3D_DATABASE
436
437
438 INTEGER :: N_TITLE = 0
439 INTEGER :: N_SENS_H3D = 0
440 INTEGER :: N_OUTP_H3D = 0
441 INTEGER :: IH3D = 0
442 INTEGER :: IH3D_RUN = 0
443 INTEGER :: N_INPUT_H3D = 0
444 INTEGER :: IPART_SELECT = 0
445 INTEGER :: MH3D = 0
446 INTEGER :: LIGHT = 0
447
448 INTEGER :: N_SCAL_DT = 0 !ANIM_N(1)
449 INTEGER :: N_SCAL_DMAS = 0 !ANIM_N(2)
450 INTEGER :: N_SCAL_DINER = 0 !ANIM_N(12)
451 INTEGER :: N_SCAL_DAMA2 = 0 !ANIM_N(15&16)
452 INTEGER :: N_SCAL_SKID = 0
453 INTEGER :: N_SCAL_STIFR = 0 !ANIM_N(18)
454 INTEGER :: N_SCAL_STIFN = 0 !ANIM_N(19)
455 INTEGER :: N_SCAL_CSE_FRIC = 0
456 INTEGER :: N_SCAL_CSE_FRICINT = 0
457
458 INTEGER :: N_VECT_CONT = 0 !ANIM_V(4)
459 INTEGER :: N_VECT_FINT = 0 !ANIM_V(5)
460 INTEGER :: N_VECT_FEXT = 0 !ANIM_V(6)
461 INTEGER :: N_VECT_PCONT = 0 !ANIM_V(12)
462 INTEGER :: N_VECT_CONT2 = 0 !ANIM_V(13)
463 INTEGER :: N_VECT_DROT = 0 !ANIM_V(14)
464 INTEGER :: N_VECT_DXANC = 0 !ANIM_V(15)
465 INTEGER :: N_VECT_FREAC = 0 !ANIM_V(17)
466 INTEGER :: N_VECT_MREAC = 0 !ANIM_V(18)
467 INTEGER :: N_VECT_CLUST_FORCE = 0 !ANIM_V(19)
468 INTEGER :: N_VECT_CLUST_MOM = 0 !ANIM_V(20)
469 INTEGER :: N_VECT_CONT_MAX = 0 !ANIM_V(26)
470 INTEGER :: N_VECT_PCONT2 = 0 !ANIM_V(27)
471 INTEGER :: N_VECT_PCONT_MAX = 0
472 INTEGER :: N_VECT_CONT2_MAX = 0
473 INTEGER :: N_VECT_PCONT2_MAX = 0
474 INTEGER :: N_VECT_CONT2_MIN = 0
475 INTEGER :: N_VECT_PCONT2_MIN = 0
476 INTEGER :: N_VECT_CONT2M = 0
477 INTEGER :: N_VECT_ACC = 0 !FVM acceleration (law151, colocated scheme)
478
479 INTEGER :: SH_SCAL_ERR_THK = 0 !ANIM_CE(2156)
480
481 INTEGER :: SOL_SCAL_VORTX = 0 !ANIM_SE(10)
482 INTEGER :: SOL_SCAL_VORTY = 0 !ANIM_SE(4960)
483 INTEGER :: SOL_SCAL_VORTZ = 0 !ANIM_SE(4961)
484
485 INTEGER :: SH_IEPSDOT = 0 !ANIM_C(...)
486 INTEGER :: UND_FORC = 0 !ANIM_FT(1)
487 INTEGER :: STRAIN = 0 !ANIM STRAIN TENSOR
488
489 INTEGER :: IS_CORNER_DATA = 0
490 INTEGER :: RBODY_SINGLE = 0
491 INTEGER :: RBE2_SINGLE = 0
492 INTEGER :: RBE3_SINGLE = 0
493
494 INTEGER :: COMP_LEVEL = 0
495
496 my_real :: TH3D = 0.
497 my_real :: DTH3D= 0.
498 my_real :: TH3D_STOP= 0.
499 my_real :: TH3D0= 0.
500 my_real :: DTH3D0= 0.
501 my_real :: TH3D_STOP0= 0.
502 my_real :: PERCENTAGE_ERROR= 0.
503
504 INTEGER, DIMENSION(:), ALLOCATABLE :: N_SKID_INTER
505 INTEGER, DIMENSION(:), ALLOCATABLE :: ITITLE
506 INTEGER, DIMENSION(:), ALLOCATABLE :: LSENS_H3D
507 INTEGER, DIMENSION(:), ALLOCATABLE :: N_CSE_FRIC_INTER
508
509 CHARACTER(LEN=80), DIMENSION(:), ALLOCATABLE ::TITLE
510
511 TYPE (H3D_INPUT), DIMENSION(:), ALLOCATABLE :: INPUT_LIST
512
513 TYPE (H3D_PART_LIST), DIMENSION(:), ALLOCATABLE :: PARTS
514
515 TYPE (H3D_OUTPUT), DIMENSION(:), ALLOCATABLE :: OUTPUT_LIST
516
517 END TYPE H3D_DATABASE
518
519C-----------------------------------------------
520 TYPE H3D_NUMBER_OF_KEY
521 INTEGER :: NODAL_SCALAR =0
522 INTEGER :: NODAL_VECTOR =0
523 INTEGER :: NODAL_TENSOR =0
524 INTEGER :: ONED_SCALAR =0
525 INTEGER :: ONED_VECTOR =0
526 INTEGER :: ONED_TENSOR =0
527 INTEGER :: ONED_TORSOR =0
528 INTEGER :: SHELL_SCALAR =0
529 INTEGER :: SHELL_VECTOR =0
530 INTEGER :: SHELL_TENSOR =0
531 INTEGER :: SOLID_SCALAR =0
532 INTEGER :: SOLID_VECTOR =0
533 INTEGER :: SOLID_TENSOR =0
534 INTEGER :: SPH_SCALAR =0
535 INTEGER :: SPH_TENSOR =0
536 INTEGER :: QUAD_SCALAR =0
537 INTEGER :: QUAD_VECTOR =0
538 INTEGER :: QUAD_TENSOR =0
539 END TYPE H3D_NUMBER_OF_KEY
540C-----------------------------------------------
541
542 END MODULE H3D_MOD
h3d_mod
Definition h3d_mod.F:308
h3d_mod::is_h3d_used
logical is_h3d_used
Definition h3d_mod.F:315
spmd_tri20gat
subroutine spmd_tri20gat(result, nsn, cand_n, i_stok, nin, igap, nsnr, multimp, ity, intth, inacti, h3d_data)
Definition spmd_i7crit.F:38
h3d_mod::h3d_keyword
Definition h3d_mod.F:319