OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
arret.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!|| arret ../engine/source/system/arret.F
25!||--- called by ------------------------------------------------------
26!|| admerr ../engine/source/model/remesh/admerr.F
27!|| admini ../engine/source/model/remesh/admini.F
28!|| alero2 ../engine/source/ale/ale2d/alero2.F
29!|| anim_build_index_all ../engine/source/output/anim/reader/anim_build_index_all.F
30!|| animx ../engine/source/output/anim/generate/animx.F
31!|| arret_message ../engine/source/system/arret_message.f
32!|| arret_message_slid ../engine/source/system/arret_message.F
33!|| bcs_nrf ../engine/source/boundary_conditions/bcs_nrf.F90
34!|| bemsolv ../engine/source/fluid/bemsolv.F
35!|| bforc2 ../engine/source/ale/bimat/bforc2.F
36!|| blero2 ../engine/source/ale/bimat/blero2.f
37!|| build_connectivity ../engine/source/multifluid/connectivity.F
38!|| c_fortran_dgssv ../engine/stub/superlu_stub.F
39!|| c_freemem ../engine/stub/superlu_stub.F
40!|| c_tricall ../engine/stub/fvmbags_stub.F
41!|| check_error_and_write ../common_source/tools/memory/shrink_array.F90
42!|| cp_ifront ../engine/source/implicit/produt_v.F
43!|| create_h3d_1d_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_scalar.F
44!|| create_h3d_1d_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_tensor.F
45!|| create_h3d_1d_torsor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_torsor.F
46!|| create_h3d_1d_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_1d_vector.F
47!|| create_h3d_input ../engine/source/output/h3d/h3d_build_fortran/create_h3d_input.f
48!|| create_h3d_nodal_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_scalar.F
49!|| create_h3d_nodal_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_tensor.f
50!|| create_h3d_nodal_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_nodal_vector.F
51!|| create_h3d_parts ../engine/source/output/h3d/h3d_build_fortran/create_h3d_parts.F
52!|| create_h3d_parts_all ../engine/source/output/h3d/h3d_build_fortran/create_h3d_parts_all.F
53!|| create_h3d_quad_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_scalar.F
54!|| create_h3d_quad_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_tensor.F
55!|| create_h3d_quad_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_quad_vector.F
56!|| create_h3d_shell_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_scalar.F
57!|| create_h3d_shell_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_tensor.F
58!|| create_h3d_shell_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_shell_vector.F
59!|| create_h3d_skin_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_scalar.F
60!|| create_h3d_skin_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_tensor.F
61!|| create_h3d_skin_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_skin_vector.f
62!|| create_h3d_solid_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_scalar.F
63!|| create_h3d_solid_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_tensor.F
64!|| create_h3d_solid_vector ../engine/source/output/h3d/h3d_build_fortran/create_h3d_solid_vector.F
65!|| create_h3d_sph_scalar ../engine/source/output/h3d/h3d_build_fortran/create_h3d_sph_scalar.F
66!|| create_h3d_sph_tensor ../engine/source/output/h3d/h3d_build_fortran/create_h3d_sph_tensor.F
67!|| crklayer3n_adv ../engine/source/elements/xfem/crklayer3n_adv.f
68!|| crklayer3n_ini ../engine/source/elements/xfem/crklayer3n_ini.F
69!|| crklayer4n_adv ../engine/source/elements/xfem/crklayer4n_adv.F
70!|| crklayer4n_ini ../engine/source/elements/xfem/crklayer4n_ini.F
71!|| crklen3n_adv ../engine/source/elements/xfem/crklen3n_adv.F
72!|| crklen4n_adv ../engine/source/elements/xfem/crklen4n_adv.F
73!|| daasolv ../engine/source/fluid/daasolv.F
74!|| dim_int7 ../engine/source/implicit/ind_glob_k.F
75!|| dtnoda ../engine/source/time_step/dtnoda.F
76!|| dtnodams ../engine/source/time_step/dtnodams.F
77!|| dyna_ina ../engine/source/implicit/imp_dyna.F
78!|| dyna_ini ../engine/source/implicit/imp_dyna.F
79!|| ebcs12_cyclic ../engine/source/boundary_conditions/ebcs/ebcs12_cyclic.f90
80!|| eig ../engine/stub/eig.F
81!|| eigcond ../engine/stub/eigcond.F
82!|| enrichc_ini ../engine/source/elements/xfem/enrichc_ini.f
83!|| enrichtg_ini ../engine/source/elements/xfem/enrichtg_ini.F
84!|| err_mem ../engine/source/implicit/lin_solv.F
85!|| err_tpu ../engine/source/materials/mat/mat101/sigeps101.F
86!|| error_alloc ../engine/source/system/error_alloc.F
87!|| eulro2 ../engine/source/ale/euler2d/eulro2.F
88!|| execargcheck ../engine/source/engine/execargcheck.F
89!|| facepoly ../engine/source/airbag/fvmesh.F
90!|| fixflux ../engine/source/constraints/thermic/fixflux.F
91!|| forint ../engine/source/elements/forint.F
92!|| fralnk ../engine/source/input/fralnk.F
93!|| fralnk2 ../engine/source/input/fralnk.F
94!|| freabf ../engine/source/input/freabf.F
95!|| freanim ../engine/source/output/anim/reader/freanim.F
96!|| frebcs ../engine/source/input/frebcs.F
97!|| frecpl ../engine/source/input/frecpl.F
98!|| fredamp ../engine/source/input/fredamp.F
99!|| fredebug ../engine/source/input/fredebug.F
100!|| fredec2i ../engine/source/output/message/fredec2i.F
101!|| fredec3 ../engine/source/output/message/fredec3.F
102!|| fredli ../engine/source/input/fredli.F
103!|| fredli7 ../engine/source/input/fredli7.F
104!|| fredynain ../engine/source/input/fredynain.F
105!|| freeig ../engine/source/input/freeig.F
106!|| freflw ../engine/source/input/freflw.F
107!|| freform ../engine/source/input/freform.F
108!|| frefunc ../engine/source/input/frefunc.F
109!|| frefvbag ../engine/source/input/frefvbag.f
110!|| frefxinp ../engine/source/input/frefxinp.F
111!|| freimpl ../engine/source/input/freimpl.F
112!|| freiniv ../engine/source/input/freiniv.F
113!|| freint ../engine/source/input/freint.f
114!|| frelnk ../engine/source/input/frelnk.F
115!|| frenois ../engine/source/input/frenois.F
116!|| freoutp ../engine/source/input/freoutp.F
117!|| frerbo ../engine/source/input/frerbo.F
118!|| frestat ../engine/source/input/frestat.f
119!|| frethermal ../engine/source/constraints/thermic/frethermal.F
120!|| freupwind ../engine/source/input/freupwind.F
121!|| freupwm ../engine/source/input/freupwm.F
122!|| fv_imp0 ../engine/source/constraints/general/impvel/fv_imp0.F
123!|| fv_up_switch ../engine/source/airbag/fv_up_switch.F
124!|| fvbag1 ../engine/source/airbag/fvbag1.F
125!|| fvmesh1 ../engine/source/airbag/fvmesh.F
126!|| fvrrest ../engine/source/output/restart/rdresb.F
127!|| fvvent0 ../engine/source/airbag/fvvent0.f
128!|| fxbsys ../engine/source/constraints/fxbody/fxbsys.F
129!|| genani ../engine/source/output/anim/generate/genani.F
130!|| gendynain ../engine/source/output/dynain/gendynain.F
131!|| genh3d ../engine/source/output/h3d/h3d_results/genh3d.F
132!|| genstat ../engine/source/output/sta/genstat.F
133!|| get_file_name_info ../engine/source/system/get_file_name_info.F
134!|| get_u_func_x ../engine/source/user_interface/ufunc.F
135!|| get_u_func_y ../engine/source/user_interface/ufunc.F
136!|| h3d_read ../engine/source/output/h3d/h3d_build_fortran/h3d_read.F
137!|| i10buce ../engine/source/interfaces/intsort/i10buce.F
138!|| i10lll ../engine/source/interfaces/int16/i10lagm.F
139!|| i10main_tri ../engine/source/interfaces/intsort/i10main_tri.F
140!|| i10mainf ../engine/source/interfaces/int10/i10mainf.F
141!|| i10sms2 ../engine/source/interfaces/int10/i10sms2.F
142!|| i11ass2 ../engine/source/interfaces/int11/i11ass3.F
143!|| i11ass25 ../engine/source/interfaces/int11/i11ass3.F
144!|| i11buce_vox ../engine/source/interfaces/intsort/i11buce.F
145!|| i11main_tri ../engine/source/interfaces/intsort/i11main_tri.F
146!|| i11mainf ../engine/source/interfaces/int11/i11mainf.F
147!|| i11sms2 ../engine/source/interfaces/int11/i11sms2.F
148!|| i15cmp ../engine/source/interfaces/int15/i15cmp.F
149!|| i16lll ../engine/source/interfaces/int16/i16lagm.F
150!|| i16tri ../engine/source/interfaces/int16/i16tri.F
151!|| i17buce ../engine/source/interfaces/int17/i17buce.F
152!|| i17buce_pena ../engine/source/interfaces/int17/i17buce.F
153!|| i17for3 ../engine/source/interfaces/int17/i17for3.F
154!|| i17lll4 ../engine/source/interfaces/int17/i17lagm.F
155!|| i17lll4_pena ../engine/source/interfaces/int17/i17for3.F
156!|| i17main_tri ../engine/source/interfaces/int17/i17main_pena.F
157!|| i17tri ../engine/source/interfaces/int17/i17tri.F
158!|| i18main_kine_i ../engine/source/interfaces/int18/i18main_kine.F
159!|| i20ass2 ../engine/source/interfaces/int20/i20for3.F
160!|| i20ass25 ../engine/source/interfaces/int20/i20for3.F
161!|| i20buc_edge ../engine/source/interfaces/intsort/i20buce.F
162!|| i20buce ../engine/source/interfaces/intsort/i20buce.F
163!|| i20lll ../engine/source/interfaces/int16/i20lagm.F
164!|| i20main_tri ../engine/source/interfaces/intsort/i20main_tri.F
165!|| i20mainf ../engine/source/interfaces/int20/i20mainf.F
166!|| i20sms2e ../engine/source/interfaces/int20/i20sms2.F
167!|| i21buce ../engine/source/interfaces/intsort/i21buce.F
168!|| i21lll ../engine/source/interfaces/int17/i21lagm.F
169!|| i21mainf ../engine/source/interfaces/int21/i21mainf.F
170!|| i21sms2 ../engine/source/interfaces/int21/i21sms2.F
171!|| i22ass2 ../engine/source/interfaces/int22/i22assembly.f
172!|| i22buce ../engine/source/interfaces/intsort/i22buce.F
173!|| i22intersect ../engine/source/interfaces/int22/i22intersect.F
174!|| i22main_tri ../engine/source/interfaces/intsort/i22main_tri.F
175!|| i22mainf ../engine/source/interfaces/int22/i22mainf.F
176!|| i23buce ../engine/source/interfaces/intsort/i23buce.F
177!|| i23main_tri ../engine/source/interfaces/intsort/i23main_tri.F
178!|| i23mainf ../engine/source/interfaces/int23/i23mainf.F
179!|| i24ass2 ../engine/source/interfaces/int24/i24for3.F
180!|| i24corp3 ../engine/source/interfaces/int24/i24cork3.F
181!|| i24fic_getn ../engine/source/interfaces/int24/i24for3e.F
182!|| i24main_tri ../engine/source/interfaces/intsort/i24main_tri.F
183!|| i24mainf ../engine/source/interfaces/int24/i24main.F
184!|| i24sms2 ../engine/source/interfaces/int24/i24for3.F
185!|| i25ass2 ../engine/source/interfaces/int25/i25ass3.F
186!|| i25asse2 ../engine/source/interfaces/int25/i25asse.F
187!|| i25asse25 ../engine/source/interfaces/int25/i25asse.F
188!|| i25asse25_e2s ../engine/source/interfaces/int25/i25ass_e2s.F
189!|| i25asse2_e2s ../engine/source/interfaces/int25/i25ass_e2s.F
190!|| i25main_slid ../engine/source/interfaces/int25/i25main_slid.F
191!|| i25main_tri ../engine/source/interfaces/intsort/i25main_tri.F
192!|| i25mainf ../engine/source/interfaces/int25/i25mainf.F
193!|| i25sms0e ../engine/source/interfaces/int25/i25smse.F
194!|| i25sms2 ../engine/source/interfaces/int25/i25for3.f
195!|| i25sms2e ../engine/source/interfaces/int25/i25smse.F
196!|| i25sms_e2s ../engine/source/interfaces/int25/i25sms_e2s.F
197!|| i2rupt ../engine/source/interfaces/interf/int2rupt.F
198!|| i7ass2 ../engine/source/interfaces/int07/i7ass3.F
199!|| i7ass25 ../engine/source/interfaces/int07/i7ass3.F
200!|| i7buce_vox ../engine/source/interfaces/intsort/i7buce.F
201!|| i7lagm ../engine/source/interfaces/int07/i7lagm.F
202!|| i7main_lmult ../engine/source/interfaces/int07/i7main_lmult.F
203!|| i7main_tri ../engine/source/interfaces/intsort/i7main_tri.F
204!|| i7mainf ../engine/source/interfaces/int07/i7mainf.F
205!|| i7sms2 ../engine/source/interfaces/int07/i7sms2.F
206!|| i7trivox ../engine/source/interfaces/intsort/i7trivox.F
207!|| i8lll ../engine/source/interfaces/int16/i8lagm.F
208!|| i9avel ../engine/source/interfaces/int09/i9avel.F
209!|| ig3duforc3 ../engine/source/elements/ige3d/ig3duforc3.F
210!|| imp_buck ../engine/source/implicit/imp_buck.F
211!|| imp_dsolv ../engine/source/implicit/imp_dsolv.F
212!|| imp_dsolv_iter ../engine/source/implicit/imp_dsolv.F
213!|| imp_fsa_inv2 ../engine/source/implicit/imp_fsa_inv.F
214!|| imp_fsa_invh ../engine/source/implicit/imp_fsa_inv.F
215!|| imp_fsa_invh2 ../engine/source/implicit/imp_fsa_inv.F
216!|| imp_fsa_invp ../engine/source/implicit/imp_fsa_inv.F
217!|| imp_fsa_invp2 ../engine/source/implicit/imp_fsa_inv.F
218!|| imp_inist ../engine/source/implicit/imp_pcg.F
219!|| imp_kfiltr ../engine/source/implicit/imp_fsa_inv.F
220!|| imp_pc_inv ../engine/source/implicit/imp_pc_inv.F
221!|| imp_pcgh ../engine/source/implicit/imp_pcg.F
222!|| imp_sol_init ../engine/source/implicit/imp_sol_init.F
223!|| imp_solv ../engine/source/implicit/imp_solv.F
224!|| imp_stop ../engine/source/implicit/imp_solv.F
225!|| imp_updv2 ../engine/source/implicit/imp_pcg.F
226!|| ind_ktot ../engine/source/implicit/ind_glob_k.F
227!|| ini_k0h ../engine/source/implicit/imp_solv.F
228!|| ini_kisc ../engine/source/implicit/lin_solv.F
229!|| inipar ../engine/source/mpi/init/inipar.F
230!|| intbuf_ini ../common_source/interf/intbuf_ini.F
231!|| inter7_collision_detection ../engine/source/interfaces/intsort/inter7_collision_detection.F90
232!|| inter_count_node_curv ../engine/source/interfaces/generic/inter_count_node_curv.F
233!|| joint_block_stiffness ../engine/source/elements/joint/joint_block_stiffness.F
234!|| ktbuf_ini ../engine/source/implicit/imp_init.F
235!|| l2g_kloc ../engine/source/implicit/ind_glob_k.F
236!|| l_dir02 ../engine/source/constraints/general/impvel/fv_imp0.F
237!|| lag_direct ../engine/source/tools/lagmul/lag_direct.F
238!|| lag_i2main ../engine/source/tools/lagmul/lag_i2main.F
239!|| lag_mult_h ../engine/source/tools/lagmul/lag_mult_h.F
240!|| lag_mult_hp ../engine/source/tools/lagmul/lag_mult_h.F
241!|| lag_mult_sdp ../engine/source/tools/lagmul/lag_mult_solv.F
242!|| lag_multp ../engine/source/tools/lagmul/lag_mult.F
243!|| lag_rwall ../engine/source/tools/lagmul/lag_rwall.F
244!|| lecdamp ../engine/source/input/lecdamp.F
245!|| lecflsw ../engine/source/fluid/lecflsw.F
246!|| lecfun ../engine/source/tools/curve/lecfun.F
247!|| lecfvbag ../engine/source/input/lecfvbag.F
248!|| lecfxinp ../engine/source/input/lecfxinp.F
249!|| lech3d ../engine/source/output/h3d/h3d_build_fortran/lech3d.F
250!|| lecimpl ../engine/source/input/lectur.F
251!|| lecinv ../engine/source/input/lecinv.F
252!|| lecnoise ../engine/source/general_controls/computation/lecnoise.F
253!|| lecstat ../engine/source/input/lecstat.F
254!|| lectur ../engine/source/input/lectur.F
255!|| m13law ../engine/source/materials/mat/mat013/m13law.F
256!|| mmain ../engine/source/materials/mat_share/mmain.F90
257!|| mulaw ../engine/source/materials/mat_share/mulaw.F90
258!|| mulaw8 ../engine/source/materials/mat_share/mulaw8.F90
259!|| mulawc ../engine/source/materials/mat_share/mulawc.F90
260!|| multi_allocate ../engine/source/multifluid/multi_allocate.F
261!|| multi_ebcs ../engine/source/multifluid/multi_ebcs.F
262!|| multi_fluxes_computation ../engine/source/multifluid/multi_fluxes_computation.F
263!|| multi_i18_force_pon ../engine/source/interfaces/int18/multi_i18_force_pon.F
264!|| multi_inlet_ebcs ../engine/source/multifluid/multi_inlet_ebcs.F
265!|| multi_muscl_fluxes_computation ../engine/source/multifluid/multi_muscl_fluxes_computation.F
266!|| multi_muscl_gradients ../engine/source/multifluid/multi_muscl_gradients.F
267!|| multi_nrf_ebcs ../engine/source/multifluid/multi_nrf_ebcs.f
268!|| multi_submatlaw ../engine/source/multifluid/multi_submatlaw.F
269!|| multi_timeevolution ../engine/source/multifluid/multi_timeevolution.F
270!|| ndof_fv ../engine/source/implicit/ind_glob_k.F
271!|| pblast_1 ../engine/source/loads/pblast/pblast_1.F
272!|| pblast_2 ../engine/source/loads/pblast/pblast_2.F
273!|| pblast_3 ../engine/source/loads/pblast/pblast_3.F
274!|| pblast_alloc_error ../common_source/modules/loads/pblast_mod.F90
275!|| phelpinfo ../engine/source/engine/execargcheck.F
276!|| prec_solv ../engine/source/implicit/prec_solv.F
277!|| projecig3d ../engine/source/elements/ige3d/projecig3d.F
278!|| qnorm2t ../engine/source/multifluid/qnorm2t.F
279!|| qstat_ini ../engine/source/implicit/imp_dyna.F
280!|| qvolu2 ../engine/source/elements/solid_2d/quad/qvolu2.F
281!|| r_bufbric_22 ../engine/source/interfaces/int22/r_bufbric_22.F
282!|| radioss2 ../engine/source/engine/radioss2.f
283!|| rby_decond ../engine/source/tools/lagmul/lag_rby_cond.F
284!|| rbyact ../engine/source/constraints/general/rbody/rbyact.F
285!|| rdele ../engine/source/input/rdele.F
286!|| rdresa ../engine/source/output/restart/rdresa.F
287!|| rdresb ../engine/source/output/restart/rdresb.F
288!|| read_dynain ../engine/source/output/dynain/read_dynain.F
289!|| read_msgfile ../engine/source/output/message/read_msgfile.F
290!|| reallocate_fi2 ../engine/source/mpi/interfaces/spmd_i25slide.F
291!|| reallocate_i_skyline ../engine/source/system/reallocate_skyline.F
292!|| resol ../engine/source/engine/resol.F
293!|| restalloc ../engine/source/output/restart/arralloc.F
294!|| retractor_table_inv ../engine/source/tools/seatbelts/retractor_table_inv.F90
295!|| retractor_table_inv2 ../engine/source/tools/seatbelts/retractor_table_inv2.F90
296!|| rforc3 ../engine/source/elements/spring/rforc3.F
297!|| rgbodv ../engine/source/constraints/general/rbody/rgbodv.F
298!|| s16deri3 ../engine/source/elements/thickshell/solide16/s16deri3.F
299!|| s20deri3 ../engine/source/elements/solid/solide20/s20deri3.F
300!|| s8deri3 ../engine/source/elements/solid/solide8/s8deri3.F
301!|| s8ederic3 ../engine/source/elements/solid/solide8e/s8ederic3.F
302!|| s8ederict3 ../engine/source/elements/solid/solide8e/s8ederict3.F
303!|| s8slke3 ../engine/source/elements/solid/solide8s/s8slke3.F
304!|| s8zderic3 ../engine/source/elements/solid/solide8z/s8zderic3.F
305!|| s8zderict3 ../engine/source/elements/solid/solide8z/s8zderict3.F
306!|| s8zdericto3 ../engine/source/elements/solid/solide8z/s8zdericto3.F
307!|| section_read ../engine/source/tools/sect/section_read.F
308!|| section_readp ../engine/source/tools/sect/section_readp.F
309!|| sensor_base ../engine/source/tools/sensor/sensor_base.F
310!|| sigeps53 ../engine/source/materials/mat/mat053/sigeps53.F
311!|| sigeps75 ../engine/source/materials/mat/mat075/sigeps75.F
312!|| sms_build_mat_2 ../engine/source/ams/sms_build_mat_2.F
313!|| sms_encin_2 ../engine/source/ams/sms_encin_2.F
314!|| sms_fsa_invh ../engine/source/ams/sms_fsa_inv.F
315!|| sms_ini_err ../engine/source/ams/sms_init.F
316!|| sms_ini_jad_3 ../engine/source/ams/sms_init.f
317!|| sms_ini_part ../engine/source/ams/sms_init.F
318!|| sms_mass_scale_2 ../engine/source/ams/sms_mass_scale_2.F
319!|| snorm3t ../engine/source/multifluid/snorm3t.F
320!|| soltosph_on2 ../engine/source/elements/sph/soltosph_on2.F
321!|| soltospha ../engine/source/elements/sph/soltospha.F
322!|| soltosphf ../engine/source/elements/sph/soltosph.F
323!|| sp_a2 ../engine/source/implicit/imp_fsa_inv.f
324!|| sp_static ../engine/source/implicit/imp_fsa_inv.F
325!|| spadah ../engine/source/elements/sph/spadah.F
326!|| spbuc3 ../engine/source/elements/sph/spbuc3.F
327!|| spmd_cell_exchange ../engine/source/mpi/generic/spmd_cell_exchange.F
328!|| spmd_cell_size_exchange ../engine/source/mpi/interfaces/spmd_cell_size_exchange.F
329!|| spmd_check_tag ../engine/source/mpi/ams/spmd_check_tag.F
330!|| spmd_exch_efric ../engine/source/mpi/interfaces/spmd_exch_efric.F
331!|| spmd_exch_fa ../engine/source/mpi/elements/spmd_exch_dttsh.F
332!|| spmd_exch_i24 ../engine/source/mpi/interfaces/spmd_exch_i24.F
333!|| spmd_exch_i25 ../engine/source/mpi/interfaces/spmd_exch_i25.F
334!|| spmd_exch_min_max ../engine/source/mpi/ale/spmd_exch_min_max.F
335!|| spmd_exch_press ../engine/source/mpi/interfaces/spmd_exch_press.F
336!|| spmd_exch_smst2 ../engine/source/mpi/ams/spmd_exch_smst2.F
337!|| spmd_exch_sorting_efric ../engine/source/mpi/interfaces/spmd_exch_sorting_efric.F
338!|| spmd_exch_tagncont ../engine/source/mpi/forces/spmd_exch_tagncont.F
339!|| spmd_exch_vmax ../engine/source/mpi/elements/spmd_exch_dttsh.F
340!|| spmd_exchm_sms ../engine/source/mpi/ams/spmd_sms.F
341!|| spmd_fiadd11_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
342!|| spmd_fiadd20f_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
343!|| spmd_fiadd20fe_pon ../engine/source/mpi/interfaces/spmd_i7tool.f
344!|| spmd_fiadd25e_pon ../engine/source/mpi/interfaces/spmd_fiadd25e_pon.F
345!|| spmd_fiadd_pon ../engine/source/mpi/interfaces/spmd_i7tool.F
346!|| spmd_get_penis ../engine/source/mpi/interfaces/send_cand.F
347!|| spmd_get_penis20 ../engine/source/mpi/interfaces/send_cand.F
348!|| spmd_i17frots_pon ../engine/source/mpi/interfaces/spmd_i17frots_pon.F
349!|| spmd_i18kine_com_a ../engine/source/mpi/interfaces/spmd_i18kine_com_a.F
350!|| spmd_i18kine_com_acc ../engine/source/mpi/interfaces/spmd_i18kine_com_acc.F
351!|| spmd_i18kine_com_ms ../engine/source/mpi/interfaces/spmd_i18kine_com_ms.F
352!|| spmd_i18kine_com_v ../engine/source/mpi/interfaces/spmd_i18kine_com_v.F
353!|| spmd_i18kine_pene_com_poff ../engine/source/mpi/interfaces/spmd_i18kine_pene_com_poff.F
354!|| spmd_i20normf ../engine/source/mpi/interfaces/spmd_i20normf.F
355!|| spmd_i21fthecom ../engine/source/mpi/interfaces/send_cand.F
356!|| spmd_i21tempcom ../engine/source/mpi/interfaces/send_cand.F
357!|| spmd_i7fcom_poff ../engine/source/mpi/forces/spmd_i7fcom_poff.F
358!|| spmd_i7fcom_pon ../engine/source/mpi/forces/spmd_i7fcom_pon.F
359!|| spmd_i7xvcom2 ../engine/source/mpi/interfaces/spmd_i7xvcom2.F
360!|| spmd_ifront ../engine/source/mpi/interfaces/spmd_ifront.F
361!|| spmd_ifront_stamp ../engine/source/mpi/interfaces/send_cand.F
362!|| spmd_inisph ../engine/source/mpi/sph/spmd_sptool.F
363!|| spmd_initfi ../engine/source/mpi/interfaces/spmd_i7tool.F
364!|| spmd_int18_law151_pon ../engine/source/mpi/forces/spmd_int18_law151_pon.F
365!|| spmd_rst_check ../engine/source/mpi/init/spmd_rst_check.F
366!|| spmd_sd_xv ../engine/source/mpi/nodes/spmd_sd_xv.F
367!|| spmd_sphgat ../engine/source/mpi/sph/spmd_sphgat.F
368!|| spmd_sphvox ../engine/source/mpi/sph/spmd_sphvox.F
369!|| spmd_tri10box ../engine/source/mpi/interfaces/spmd_int.F
370!|| spmd_tri10gat ../engine/source/mpi/interfaces/spmd_int.F
371!|| spmd_tri11gat ../engine/source/mpi/interfaces/spmd_int.F
372!|| spmd_tri11vox ../engine/source/mpi/interfaces/spmd_int.F
373!|| spmd_tri17box ../engine/source/mpi/interfaces/spmd_tri17box.F
374!|| spmd_tri17gat ../engine/source/mpi/interfaces/spmd_i7crit.F
375!|| spmd_tri18_151vox ../engine/source/mpi/interfaces/spmd_int.F
376!|| spmd_tri20box ../engine/source/mpi/interfaces/spmd_tri20box.F
377!|| spmd_tri20boxe ../engine/source/mpi/interfaces/spmd_tri20boxe.F
378!|| spmd_tri20gat ../engine/source/mpi/interfaces/spmd_i7crit.F
379!|| spmd_tri20gate ../engine/source/mpi/interfaces/spmd_i7crit.F
380!|| spmd_tri22vox ../engine/source/mpi/interfaces/spmd_tri22vox.F
381!|| spmd_tri24gat ../engine/source/mpi/interfaces/spmd_int.F
382!|| spmd_tri24vox ../engine/source/mpi/interfaces/spmd_int.F
383!|| spmd_tri25gat ../engine/source/mpi/interfaces/spmd_tri25gat.F
384!|| spmd_tri25vox ../engine/source/mpi/interfaces/spmd_tri25vox.F
385!|| spmd_tri7gat ../engine/source/mpi/interfaces/spmd_int.F
386!|| spmd_tri7vox ../engine/source/mpi/interfaces/spmd_int.F
387!|| spmd_tri7vox_optimized ../engine/source/mpi/interfaces/spmd_tri7vox_optimized.F
388!|| sponof1 ../engine/source/elements/sph/sponof1.F
389!|| srho3 ../engine/source/elements/solid/solide/srho3.F
390!|| stack_ply_alloc ../engine/share/modules/stack_mod.F
391!|| suforc3 ../engine/source/user_interface/suforc3.F
392!|| switch_to_dtnoda ../engine/source/time_step/switch_to_dtnoda.F
393!|| table2d_vinterp_log ../engine/source/tools/curve/table2d_vinterp_log.F
394!|| table_interp ../engine/source/tools/curve/table_tools.F
395!|| table_interp_dydx ../engine/source/tools/curve/table_tools.F
396!|| table_interp_law76 ../engine/source/tools/curve/table_tools.F
397!|| table_mat_vinterp ../engine/source/materials/tools/table_mat_vinterp.F
398!|| table_mat_vinterp_c1 ../engine/source/materials/tools/table_mat_vinterp_c1.f90
399!|| table_rresti ../engine/source/tools/curve/table_tools.F
400!|| table_vinterp ../engine/source/tools/curve/table_tools.F
401!|| trace_print ../engine/source/system/trace_back.F
402!|| tribox3 ../engine/stub/fvmbags_stub.F
403!|| tritri3 ../engine/stub/fvmbags_stub.F
404!|| upd_aspc0 ../engine/source/constraints/general/bcs/bc_imp0.F
405!|| update_slipring ../engine/source/tools/seatbelts/update_slipring.F
406!|| upgrade_cand_opt ../common_source/interf/upgrade_multimp.F
407!|| upgrade_lcand_e2s ../common_source/interf/upgrade_multimp.F
408!|| upgrade_lcand_edg ../common_source/interf/upgrade_multimp.F
409!|| upgrade_multimp ../common_source/interf/upgrade_multimp.F
410!|| upgrade_rem_2ry ../engine/source/mpi/interfaces/spmd_i7tool.F
411!|| user_windows_routine ../engine/source/user_interface/user_windows.F
412!|| usermat_shell ../engine/source/materials/mat_share/usermat_shell.F
413!|| usermat_solid ../engine/source/materials/mat_share/usermat_solid.F
414!|| wciusc2 ../engine/source/input/wciusc2.F
415!|| write_intbuf ../engine/source/output/restart/write_intbuf.F
416!|| wriusc2 ../engine/source/input/wriusc2.F
417!|| xforc28 ../engine/source/elements/xelem/xforc28.F
418!||--- calls -----------------------------------------------------
419!|| c_h3d_close_file ../engine/source/output/h3d/h3d_build_cpp/c_h3d_close_file.cpp
420!|| checksum_option_checksum_file ../common_source/modules/output/checksum_mod.F90
421!|| close_c ../common_source/tools/input_output/write_routines.c
422!|| compute_binary_checksum ../common_source/output/checksum/checksum.cpp
423!|| cur_fil_c ../common_source/tools/input_output/write_routines.c
424!|| delete_tmpfile ../common_source/tools/input_output/write_routines.c
425!|| my_exit ../engine/source/system/my_exit.c
426!|| print_runtime ../engine/source/system/timer.F
427!|| qaclose ../common_source/qa/qa_out_mod.F
428!|| report ../engine/source/output/report/report.F
429!|| send_ibuf_c ../engine/source/coupling/rad2rad/rad2rad_c.c
430!|| sortie_mvw ../engine/source/output/report/sortie_mvw.F
431!|| spmd_kill ../engine/source/mpi/init/spmd_kill.F
432!||--- uses -----------------------------------------------------
433!|| dynlib_mod ../engine/share/modules/dynlib_mod.F
434!|| file_descriptor_mod ../engine/source/modules/file_descriptor_mod.F90
435!|| h3d_mod ../engine/share/modules/h3d_mod.F
436!|| inoutfile_mod ../common_source/modules/inoutfile_mod.F
437!|| output_mod ../common_source/modules/output/output_mod.F90
438!|| qa_out_mod ../common_source/qa/qa_out_mod.F
439!|| scratchfile_mod ../engine/share/modules/scratchfiles_mod.F
440!||====================================================================
441 SUBROUTINE arret (N)
442 USE h3d_mod
443 USE inoutfile_mod
444 USE qa_out_mod
445 USE dynlib_mod
446 USE scratchfile_mod
447 USE output_mod
448 USE file_descriptor_mod
449C-----------------------------------------------
450C I m p l i c i t T y p e s
451C-----------------------------------------------
452#include "implicit_f.inc"
453C-----------------------------------------------
454C C o m m o n B l o c k s
455C-----------------------------------------------
456#include "comlock.inc"
457#include "scr20_c.inc"
458#include "com01_c.inc"
459#include "task_c.inc"
460#include "scr06_c.inc"
461#include "scr07_c.inc"
462#include "rad2r_c.inc"
463#include "chara_c.inc"
464#include "userlib.inc"
465C-----------------------------------------------
466C D u m m y A r g u m e n t s
467C-----------------------------------------------
468 INTEGER N
469C-----------------------------------------------
470C L o c a l V a r i a b l e s
471C-----------------------------------------------
472 CHARACTER*2048 INAME
473 INTEGER IFIL
474 INTEGER :: LEN_TMP_NAME
475 CHARACTER(len=2148) :: TMP_NAME
476 INTEGER :: IZIP
477C-----------------------------------------------
478C Different End Values
479C ----------------------------------------------
480C N=0 : Same as N=4
481C N=1 : Normal Termination - normal case
482C ARRET(1) should be called after MPI_FINALIZE only (radioss2.F)
483C N=2 : Error Termination - calls MPI_ABORT
484C N=20 : Error Termination - calls MPI_ABORT
485C N=3 : Normal termination with "USER BREAK" (crontrol file...)
486C ARRET(3) should be called after MPI_FINALIZE only (radioss2.F)
487C N=4 : Stop Before Engine output creation (*_0001.out)
488C N=5 : Restart files not found
489C N=6 : Abort with system Error (return code=3)
490C N=7 : Exiting only - errors before MPP_INIT or after MPI_FINALIZE
491C ----------------------------------------------
492
493
494C ----------------------------------------------
495C TEMPO FILES Clean
496C-----------------------------------------------
497 IF(ispmd == 0 )THEN
498 IF(is_h3d_used) CALL c_h3d_close_file()
499 ENDIF
500C -----------------------------------------------
501C TH FILES
502C -----------------------------------------------
503 IF (ispmd == 0) THEN
504
505 ! Close the TH file
506 IF (output_ptr%TH%TH_WRITE_TYPE == 3)THEN
507 ifil = fd_bin_th
508 CALL cur_fil_c(ifil)
509 CALL close_c()
510 ENDIF
511
512 ! Compute checksum if option is present
513 IF (output_ptr%CHECKSUM%CHECKSUM_COUNT >0)THEN
514 izip=0
515 CALL compute_binary_checksum(output_ptr%CHECKSUM%files_checksum,
516 * c_loc(output_ptr%TH%TH_FILENAME),
517 * len_trim(output_ptr%TH%TH_FILENAME),
518 * izip)
519 ENDIF
520 ENDIF
521C -----------------------------------------------
522C ABF FILES
523C -----------------------------------------------
524 IF (ispmd == 0 .AND. nabfile /= 0 .AND.
525 . (abinp /= 0 .AND. about /= 0 ) ) THEN
526#ifdef DNC
527
528 CALL release_abfpipe(abinp,about)
529
530 IF(abfile(1) /= 0) THEN
531 iname=rootnam(1:rootlen)//'_'//chrun//'.tmp'
532 ifil = 11
533 len_tmp_name = outfile_name_len + rootlen + 9
534 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
535 CALL cur_fil_c(ifil)
536 CALL delete_tmpfile(tmp_name,len_tmp_name)
537 ENDIF
538 IF(abfile(2) /= 0) THEN
539 iname=rootnam(1:rootlen)//'_'//chrun//'_a.tmp'
540 ifil = 12
541 len_tmp_name = outfile_name_len + rootlen + 11
542 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
543 CALL cur_fil_c(ifil)
544 CALL delete_tmpfile(tmp_name,len_tmp_name)
545 ENDIF
546 IF(abfile(3) /= 0) THEN
547 iname=rootnam(1:rootlen)//'_'//chrun//'_b.tmp'
548 ifil = 13
549 len_tmp_name = outfile_name_len + rootlen + 11
550 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
551 CALL cur_fil_c(ifil)
552 CALL delete_tmpfile(tmp_name,len_tmp_name)
553 ENDIF
554 IF(abfile(4) /= 0) THEN
555 iname=rootnam(1:rootlen)//'_'//chrun//'_c.tmp'
556 ifil = 14
557 len_tmp_name = outfile_name_len + rootlen + 11
558 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
559 CALL cur_fil_c(ifil)
560 CALL delete_tmpfile(tmp_name,len_tmp_name)
561 ENDIF
562 IF(abfile(5) /= 0) THEN
563 iname=rootnam(1:rootlen)//'_'//chrun//'_d.tmp'
564 ifil = 15
565 len_tmp_name = outfile_name_len + rootlen + 11
566 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
567 CALL cur_fil_c(ifil)
568 CALL delete_tmpfile(tmp_name,len_tmp_name)
569 ENDIF
570 IF(abfile(6) /= 0) THEN
571 iname=rootnam(1:rootlen)//'_'//chrun//'_e.tmp'
572 ifil = 16
573 len_tmp_name = outfile_name_len + rootlen + 11
574 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
575 CALL cur_fil_c(ifil)
576 CALL delete_tmpfile(tmp_name,len_tmp_name)
577 ENDIF
578 IF(abfile(7) /= 0) THEN
579 iname=rootnam(1:rootlen)//'_'//chrun//'_f.tmp'
580 ifil = 17
581 len_tmp_name = outfile_name_len + rootlen + 11
582 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
583 CALL cur_fil_c(ifil)
584 CALL delete_tmpfile(tmp_name,len_tmp_name)
585 ENDIF
586 IF(abfile(8) /= 0) THEN
587 iname=rootnam(1:rootlen)//'_'//chrun//'_g.tmp'
588 ifil = 18
589 len_tmp_name = outfile_name_len + rootlen + 11
590 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
591 CALL cur_fil_c(ifil)
592 CALL delete_tmpfile(tmp_name,len_tmp_name)
593 ENDIF
594 IF(abfile(9) /= 0) THEN
595 iname=rootnam(1:rootlen)//'_'//chrun//'_h.tmp'
596 ifil = 19
597 len_tmp_name = outfile_name_len + rootlen + 11
598 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
599 CALL cur_fil_c(ifil)
600 CALL delete_tmpfile(tmp_name,len_tmp_name)
601 ENDIF
602 IF(abfile(10) /= 0) THEN
603 iname=rootnam(1:rootlen)//'_'//chrun//'_i.tmp'
604 ifil = 20
605 len_tmp_name = outfile_name_len + rootlen + 11
606 tmp_name=outfile_name(1:outfile_name_len)//iname(1:len_trim(iname))
607 CALL cur_fil_c(ifil)
608 CALL delete_tmpfile(tmp_name,len_tmp_name)
609 ENDIF
610#endif
611 ENDIF
612
613 ! ----------------------
614 ! user library : check in
615 IF(dlib_struct(id_engine_user_finalize)%DLIB_BOOL) THEN
616 ispmd_user = ispmd
617 CALL engine_user_finalize( ispmd_user )
618 ENDIF
619 ! ----------------------
620#ifdef DNC
621 IF(mds_avail==1) THEN
622 ispmd_user = ispmd
623 CALL mds_engine_user_finalize( ispmd_user )
624 ENDIF
625#endif
626
627 ! ------------------------------------------
628 ! Delete Temp. scratchfiles before exiting.
629 ! ------------------------------------------
630 IF(use_ifxm == 1)THEN
631 ClOSE(unit=ifxm)
632 CALL delete_user_file(ifxm_fn,len_ifxm_fn)
633 ENDIF
634
635 IF(use_ifxs == 1)THEN
636 CLOSE(unit=ifxs)
637 CALL delete_user_file(ifxs_fn,len_ifxs_fn)
638 ENDIF
639
640 IF (use_ieigm==1)THEN
641 CLOSE(ieigm)
642 CALL delete_user_file(ieigm_fn,len_ieigm_fn)
643 ENDIF
644
645C -----------------------------------------------
646 IF (ispmd == 0) THEN
647 CALL qaclose()
648 ENDIF
649C
650 SELECT CASE (n)
651 CASE(0) ! Stop before engine output file was written
652 WRITE(istdo,1100)
653 CALL spmd_kill(2)
654 CALL my_exit(2)
655 CASE (1)
656 IF (ispmd==0) THEN
657 WRITE(iout,1000) ! Normal termination
658 WRITE(istdo,1050)
659
660 WRITE(iout,1200) ncycle ! Total Number of cycles
661 WRITE(istdo,1250) ncycle
662 CALL print_runtime( )
663
664
665 IF (ihtml == 1) CALL report(ih3dreader,n,imvw,output_ptr%TH%WFEXT,output_ptr%TH%WFEXT_MD, output_ptr) ! Htlm report
666 IF (imvw /= 0) CALL sortie_mvw(imvw,imvw_ref) ! MVW output
667 IF ((irad2r==1).AND.(ispmd==0)) CALL send_ibuf_c(1,1) ! Rad2rad termination
668
669 ENDIF
670
671 CLOSE(unit=iout)
672 IF (ispmd==0)THEN
673 IF (output_ptr%CHECKSUM%CHECKSUM_COUNT > 0 ) THEN
674 izip=0
675 CALL compute_binary_checksum(output_ptr%checksum%files_checksum ,
676 * c_loc(output_ptr%OUT_FILENAME),
677 * len_trim(output_ptr%OUT_FILENAME),
678 * izip)
679 ENDIF
680 ENDIF
681
682 IF(ispmd /=0) THEN
683 CALL delete_user_file(iusc4_fnam,len_iusc4_fnam)
684 ENDIF
685
686 CLOSE(unit=iuhis)
687
688 if (ispmd==0)then
689 if (output_ptr%checksum%checksum_count > 0) then
690 CALL checksum_option_checksum_file(output_ptr%checksum,rootnam,rootlen,chrun) ! deck checksums print
691 end if
692 endif
693
694 CALL my_exit(0)
695
696 CASE (2)
697 WRITE(iout,1100)
698 WRITE(istdo,1150)
699
700 IF(ispmd == 0 .AND. iout/= 0) CLOSE(unit=iout)
701
702 CALL spmd_kill(2)
703 CALL my_exit(2)
704
705 CASE (20)
706 WRITE(iout,1100)
707 WRITE(istdo,1150)
708
709 CALL spmd_kill(2)
710 CALL my_exit(2)
711
712 CASE (3)
713 IF (ispmd==0) THEN
714 WRITE(iout,1000)
715 WRITE(istdo,1050)
716 WRITE(iout,1300)
717 WRITE(istdo,1300)
718
719 WRITE(iout,1200) ncycle
720 WRITE(istdo,1250) ncycle
721 CALL print_runtime( )
722
723 IF (ihtml == 1) CALL report(ih3dreader,n,imvw,output_ptr%TH%WFEXT,output_ptr%TH%WFEXT_MD, output_ptr) ! Htlm report
724 IF (imvw /= 0) CALL sortie_mvw(imvw,imvw_ref)
725 ENDIF
726
727 CLOSE(unit=iout)
728 IF(ispmd /=0) THEN
729 CALL delete_user_file(iusc4_fnam,len_iusc4_fnam)
730 ENDIF
731
732 CLOSE(unit=iuhis)
733
734 CALL my_exit(0)
735
736 CASE(4)
737 WRITE(istdo,1400)
738 IF (ispmd==0) THEN
739 ENDIF
740 CALL spmd_kill(2)
741 CALL my_exit(2)
742 CASE(5) ! restart file not found
743 WRITE(istdo,1400)
744 CALL spmd_kill(2)
745 CALL my_exit(2)
746 CASE (6) ! system trapped error (SIGKILL, SIGSEV etc...)
747 WRITE(iout,1100)
748 WRITE(istdo,1150)
749
750 IF (ispmd==0)THEN
751 ENDIF
752 CALL spmd_kill(3)
753 CASE (7) ! Exiting only - errors before MPP_INIT
754 CALL my_exit(2)
755 END SELECT
756
757C
758 1000 FORMAT(///' NORMAL TERMINATION ')
759 1050 FORMAT(' NORMAL TERMINATION ')
760 1100 FORMAT(///' ERROR TERMINATION')
761 1400 FORMAT(/' ERROR TERMINATION')
762 1150 FORMAT(' ERROR TERMINATION')
763 1200 FORMAT(///' TOTAL NUMBER OF CYCLES :', i8 / )
764 1250 FORMAT(' TOTAL NUMBER OF CYCLES :', i8)
765 1300 FORMAT(' USER BREAK ')
766C
767
768 END
my_exit
void my_exit(int *i)
Definition analyse.c:1038
blero2
subroutine blero2(alph, volo, rhon, flux, flu1, off, pm, ngl, voln, aire, d1, d2, d3, d4, d5, d6, vd2, dvol, vy1, vy2, vy3, vy4, vz1, vz2, vz3, vz4, mat)
Definition blero2.F:38
c_h3d_close_file
void c_h3d_close_file()
Definition c_h3d_close_file.cpp:88
compute_binary_checksum
void compute_binary_checksum(checksum *cs_output_files, char *file, int len, int izip)
Definition checksum.cpp:78
create_h3d_input
subroutine create_h3d_input(h3d_data, ikad, ikey, irec, nbc, key0, key2, key3, key4, key5, key6, key7, key8)
Definition create_h3d_input.F:36
create_h3d_nodal_tensor
subroutine create_h3d_nodal_tensor(h3d_data, id_nodal_tensor, id_input, text1, stext1, comment, scomment, ipart, key3_glob, igrpart)
Definition create_h3d_nodal_tensor.F:38
create_h3d_skin_vector
subroutine create_h3d_skin_vector(h3d_data, id_skin_vector, id_input, text1, stext1, comment, scomment, ipart, key3_glob, layer, ir, is, it, iuvar, igrpart)
Definition create_h3d_skin_vector.F:38
crklayer3n_adv
subroutine crklayer3n_adv(nel, nft, ilay, nlay, ixtg, elcutc, elcrkini, iel_crktg, inod_crk, iad_crktg, nodenr, dir1, dir2, nodedge, crknodiad, knod2elc, crkedge, xedge3n, ngl, area, xl2, xl3, yl2, yl3)
Definition crklayer3n_adv.F:40
arret
subroutine arret(n)
Definition arret.F:442
print_runtime
subroutine print_runtime()
Definition timer.F:1150
enrichc_ini
subroutine enrichc_ini(elbuf_str, xfem_str, ixc, nft, jft, jlt, nxlay, iadc_crk, iel_crk, inod_crk, elcutc, nodedge, crknodiad, knod2elc, x, crkedge, xedge4n)
Definition enrichc_ini.F:40
frefvbag
subroutine frefvbag(ikad, key0, kfvbag)
Definition frefvbag.F:35
freint
subroutine freint(ikad, key0, kinter, nintch, invers, intch_ifop, intch_itop)
Definition freint.F:36
frestat
subroutine frestat(ikad, key0, kstatf, sensors, output)
Definition frestat.F:41
fvvent0
subroutine fvvent0(elsout, aoutot, nvent, nelt, ittf, elarea, elsini, elem, itagel, svent, ibaghol, rvolu, rbaghol, poro, p, eltg, iparg, mattg, nel, porosity, ipm, pm, elbuf_tab, igroupc, igrouptg)
Definition fvvent0.F:45
i22ass2
subroutine i22ass2(jlt, ix1, ix2, ix3, ix4, itab, nsvg, h1, h2, h3, h4, stif, fx1, fy1, fz1, fx2, fy2, fz2, fx3, fy3, fz3, fx4, fy4, fz4, fxi, fyi, fzi, fskyi, isky, niskyfi, nin, noint, intth, phi, ftheskyi, phi1, phi2, phi3, phi4, cb_loc, ce_loc, irect, ixs)
Definition i22assembly.F:129
i25for3
subroutine i25for3(output, jlt, a, v, ibcc, icodt, fsav, ms, visc, viscf, noint, stfn, itab, cn_loc, stiglo, stifn, stif, inacti, index, n1, n2, n3, h1, h2, h3, h4, fcont, pene, nrtm, ix1, ix2, ix3, ix4, nsvg, ivis2, neltst, ityptst, dt2t, kinet, newfront, isecin, nstrf, secfcum, x, irect, ce_loc, mfrot, ifq, secnd_fr, alpha0, ibag, icontact, irtlm, viscn, vxi, vyi, vzi, msi, kini, nin, nisub, lisub, addsubs, addsubm, lisubs, lisubm, inflg_subs, inflg_subm, fsavsub, ilagm, icurv, fncont, ftcont, nsn, xx, yy, zz, xi, yi, zi, anglmi, padm, iadm, rcurvi, rcontact, acontact, pcontact, mskyi_sms, iskyi_sms, nsms, cand_n_n, pene_old, stif_old, mbinflg, ilev, igsti, kmin, intply, nm1, nm2, nm3, msegtyp, jtask, isensint, fsavparit, h3d_data, fricc, viscffric, fric_coefs, gapv, viscfluid, sigmaxadh, viscadhfact, if_adh, areas, base_adh, iorthfric, fric_coefs2, fricc2, viscffric2, nforth, nfisot, indexorth, indexisot, dir1, dir2, apinch, stifpinch, fni, fx1, fy1, fz1, fx2, fy2, fz2, fx3, fy3, fz3, fx4, fy4, fz4, fxi, fyi, fzi, intth, drad, fheats, fheatm, qfric, efrict, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, typsub, ncfit, ninloadp, dgaploadint, s_loadpinter, dist, dgaploadpmax, interefric, intcarea, parameters)
Definition i25for3.F:73
i25sms2
subroutine i25sms2(jlt, ix1, ix2, ix3, ix4, nsvg, h1, h2, h3, h4, stif, nin, noint, mskyi_sms, iskyi_sms, nsms, kt, c, cf, dtmini, dti)
Definition i25for3.F:3404
sp_a2
subroutine sp_a2(nddl, nc, jm, maxc, ifsai)
Definition imp_fsa_inv.F:187
multi_nrf_ebcs
subroutine multi_nrf_ebcs(itask, ebcs_id, multi_fvm, nelem, elem_list, face_list, fvm_inlet_data, ixs, ixq, ixtg, xgrid, wgrid, ipm, pm, func_value, ebcs, npf, tf, fsavsurf, timestep, matparam, output, pred)
Definition multi_nrf_ebcs.F:42
dynlib_mod
Definition dynlib_mod.F:31
dynlib_mod::dlib_struct
type(dyn_lib_type), dimension(:), allocatable dlib_struct
Definition dynlib_mod.F:72
dynlib_mod::ispmd_user
integer ispmd_user
Definition dynlib_mod.F:75
dynlib_mod::id_engine_user_finalize
integer, parameter id_engine_user_finalize
Definition dynlib_mod.F:85
h3d_mod
Definition h3d_mod.F:311
h3d_mod::is_h3d_used
logical is_h3d_used
Definition h3d_mod.F:318
inoutfile_mod
Definition inoutfile_mod.F:96
inoutfile_mod::outfile_name
character(len=outfile_char_len) outfile_name
Definition inoutfile_mod.F:111
inoutfile_mod::outfile_name_len
integer outfile_name_len
Definition inoutfile_mod.F:109
qa_out_mod
Definition qa_out_mod.F:78
qa_out_mod::qaclose
subroutine qaclose()
@purpose close QA extract fileCare when routine is called from Fortran (because of binding)
Definition qa_out_mod.F:639
scratchfile_mod
Definition scratchfiles_mod.F:34
scratchfile_mod::use_ieigm
integer use_ieigm
Definition scratchfiles_mod.F:37
scratchfile_mod::len_ifxm_fn
integer len_ifxm_fn
Definition scratchfiles_mod.F:38
scratchfile_mod::use_ifxm
integer use_ifxm
Definition scratchfiles_mod.F:37
scratchfile_mod::len_ifxs_fn
integer len_ifxs_fn
Definition scratchfiles_mod.F:38
scratchfile_mod::iusc4_fnam
character(len=10192) iusc4_fnam
Definition scratchfiles_mod.F:35
scratchfile_mod::ifxm_fn
character(len=10192) ifxm_fn
Definition scratchfiles_mod.F:35
scratchfile_mod::len_iusc4_fnam
integer len_iusc4_fnam
Definition scratchfiles_mod.F:38
scratchfile_mod::ieigm_fn
character(len=10192) ieigm_fn
Definition scratchfiles_mod.F:35
scratchfile_mod::len_ieigm_fn
integer len_ieigm_fn
Definition scratchfiles_mod.F:38
scratchfile_mod::ifxs_fn
character(len=10192) ifxs_fn
Definition scratchfiles_mod.F:35
scratchfile_mod::use_ifxs
integer use_ifxs
Definition scratchfiles_mod.F:37
send_ibuf_c
void send_ibuf_c(int *ibuf, int *len)
Definition rad2rad_c.c:940
radioss2
subroutine radioss2(idata, midata, rdata, mrdata)
Definition radioss2.F:145
report
subroutine report(ih3dreader, n, imvw, wfext, wfext_md, output)
Definition report.F:35
sortie_mvw
subroutine sortie_mvw(imvw, imvw_ref)
Definition sortie_mvw.F:31
spmd_fiadd20fe_pon
subroutine spmd_fiadd20fe_pon(output, nb, len, bufr, irects, fskyi, isky, ibc, isecin, noint, ibag, icodt, secfcum, nstrf, icontact, fcont, nlg, h3d_data)
Definition spmd_i7tool.F:2546
spmd_kill
subroutine spmd_kill(icode)
Definition spmd_kill.F:73
sms_ini_jad_3
subroutine sms_ini_jad_3(ixc, iparg, ixs, ixt, ixp, ixr, ixtg, ixs10, nodnx_sms, jadc_sms, jads_sms, jads10_sms, jadt_sms, jadp_sms, jadr_sms, jadtg_sms, tagprt_sms, kad_sms, kdi_sms, tagrel_sms, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, ipartx, npby, lpby, kinet, tagslv_rby_sms, ipari, intbuf_tab, lad_sms, jsm_sms, intstamp, ipart, igeo, tagmsr_rby_sms, nativ_sms, iad_sms, idi_sms, jad_sms, jdi_sms, t2main_sms)
Definition sms_init.F:1877
sms_init
subroutine sms_init(ixs, ixq, ixc, ixt, ixp, ixr, ixtg, ixtg1, ixs10, ixs16, ixs20, iparg, nodnx_sms, icodt, icodr, kinet, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, ipartx, tagprt_sms, itab, irbe2, irbe3, lrbe2, lrbe3, nprw, lprw, ipart, igeo, ipm, nativ_sms, npby, lpby, tagmsr_rby_sms, tagslv_rby_sms, nom_opt)
Definition sms_init.F:45
arret_message
subroutine arret_message(ity, intid, ipenmax)
Definition arret_message.F:33
close_c
void close_c()
Definition write_routines.c:298
cur_fil_c
void cur_fil_c(int *nf)
Definition write_routines.c:477
delete_tmpfile
void delete_tmpfile(char *name, int *size)
Definition write_routines.c:1052