OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
machine.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/.
23C=======================================================================
24C // MEMOIRE PARTAGEE
25C=======================================================================
26!||====================================================================
27!|| my_barrier ../engine/source/system/machine.F
28!||--- called by ------------------------------------------------------
29!|| a22conv3 ../engine/source/ale/alefvm/cut_cells/a22conv3.F
30!|| aconv3 ../engine/source/ale/ale3d/aconv3.F
31!|| aconve ../engine/source/ale/aconve.F
32!|| admdiv ../engine/source/model/remesh/admdiv.F
33!|| admregul ../engine/source/model/remesh/admregul.F
34!|| admvit ../engine/source/model/remesh/admvit.F
35!|| aeturb ../engine/source/ale/turbulence/aeturb.F
36!|| aflux0 ../engine/source/ale/aflux0.f
37!|| aflux3_int22_fvm ../engine/source/ale/alefvm/cut_cells/aflux3_int22_fvm.F
38!|| afluxt ../engine/source/ale/ale51/afluxt.F
39!|| agauge ../engine/source/ale/agauge.F
40!|| agrad0 ../engine/source/ale/agrad0.F
41!|| akturb ../engine/source/ale/turbulence/akturb.F
42!|| al_constrainth1 ../engine/source/implicit/nl_solv.F
43!|| al_constrainth2 ../engine/source/implicit/nl_solv.F
44!|| ale51_finish ../engine/source/ale/ale51/ale51_finish.F
45!|| ale51_gradient_reconstruction ../engine/source/ale/alemuscl/ale51_gradient_reconstruction.F
46!|| ale51_gradient_reconstruction2 ../engine/source/ale/alemuscl/ale51_gradient_reconstruction2.F
47!|| ale51_init ../engine/source/ale/ale51/ale51_init.F
48!|| ale51_upwind3_int22 ../engine/source/ale/alefvm/cut_cells/ale51_upwind3_int22.F
49!|| alefvm_main ../engine/source/ale/alefvm/alefvm_main.F
50!|| alefvm_sfint3_int22 ../engine/source/ale/alefvm/alefvm_sfint3_int22.F
51!|| alemain ../engine/source/ale/alemain.F
52!|| alesub2 ../engine/source/ale/subcycling/alesub2.F
53!|| alethe ../engine/source/ale/alethe.F
54!|| alew ../engine/source/ale/grid/alew.F
55!|| alew5 ../engine/source/ale/grid/alew5.F
56!|| alew6 ../engine/source/ale/grid/alew6.F
57!|| alew7 ../engine/source/ale/grid/alew7.F
58!|| alewdx ../engine/source/ale/grid/alewdx.F
59!|| arezon ../engine/source/ale/arezon.F
60!|| asspar3 ../engine/source/assembly/asspar3.F
61!|| asspar4 ../engine/source/assembly/asspar4.F
62!|| asspart ../engine/source/assembly/asspart.F
63!|| bfgs_h1 ../engine/source/implicit/imp_bfgs.F
64!|| bfgs_h1p ../engine/source/implicit/imp_bfgs.F
65!|| bfgs_h2 ../engine/source/implicit/imp_bfgs.F
66!|| bfgs_h2p ../engine/source/implicit/imp_bfgs.F
67!|| cfield_1 ../engine/source/loads/general/load_centri/cfield.F
68!|| check_surface_state ../engine/source/interfaces/interf/check_surface_state.F
69!|| chk11msr3n ../engine/source/interfaces/interf/chkstfn3.F
70!|| chk11msr3nb ../engine/source/interfaces/interf/chkstfn3.F
71!|| chk20emsr3n ../engine/source/interfaces/interf/chkstfn3.F
72!|| chk20emsr3nb ../engine/source/interfaces/interf/chkstfn3.F
73!|| chk20msr3n ../engine/source/interfaces/interf/chkstfn3.F
74!|| chk20msr3nb ../engine/source/interfaces/interf/chkstfn3.F
75!|| chk23msr3n ../engine/source/interfaces/interf/chkstfn3.F
76!|| chk23msr3nb ../engine/source/interfaces/interf/chkstfn3.F
77!|| chk2msr3n ../engine/source/interfaces/interf/chkstfn3.F
78!|| chk2msr3nb ../engine/source/interfaces/interf/chkstfn3.F
79!|| chk2msr3np ../engine/source/interfaces/interf/chkstfn3.F
80!|| chkload ../engine/source/interfaces/chkload.F
81!|| chkmsr3n ../engine/source/interfaces/interf/chkstfn3.F
82!|| chkmsr3nb ../engine/source/interfaces/interf/chkstfn3.F
83!|| cndint ../engine/source/model/remesh/cndint.F
84!|| dyna_ivfac ../engine/source/implicit/imp_dyna.F
85!|| eflux3_int22_fvm ../engine/source/ale/alefvm/cut_cells/eflux3_int22_fvm.F
86!|| err_thk ../engine/source/elements/shell/err_thk.F
87!|| forint ../engine/source/elements/forint.F
88!|| forintp ../engine/source/elements/forintp.F
89!|| gravit ../engine/source/loads/general/grav/gravit.F
90!|| gravit_fvm_fem ../engine/source/loads/general/grav/gravit_fvm_fem.F
91!|| i10main_tri ../engine/source/interfaces/intsort/i10main_tri.F
92!|| i11buce_vox ../engine/source/interfaces/intsort/i11buce.F
93!|| i11main_tri ../engine/source/interfaces/intsort/i11main_tri.F
94!|| i11trivox ../engine/source/interfaces/intsort/i11trivox.F
95!|| i16main ../engine/source/interfaces/int16/i16main.F
96!|| i17buce ../engine/source/interfaces/int17/i17buce.F
97!|| i17buce_pena ../engine/source/interfaces/int17/i17buce.F
98!|| i17for3 ../engine/source/interfaces/int17/i17for3.F
99!|| i17lagm ../engine/source/interfaces/int17/i17lagm.F
100!|| i17main ../engine/source/interfaces/int17/i17main.F
101!|| i17main_pena ../engine/source/interfaces/int17/i17main_pena.F
102!|| i17main_tri ../engine/source/interfaces/int17/i17main_pena.F
103!|| i18main_kine_1 ../engine/source/interfaces/int18/i18main_kine.F
104!|| i18main_kine_2 ../engine/source/interfaces/int18/i18main_kine.F
105!|| i18main_kine_i ../engine/source/interfaces/int18/i18main_kine.F
106!|| i18main_kine_s ../engine/source/interfaces/int18/i18main_kine.F
107!|| i18main_kine_v ../engine/source/interfaces/int18/i18main_kine.F
108!|| i20main_tri ../engine/source/interfaces/intsort/i20main_tri.F
109!|| i20mainf ../engine/source/interfaces/int20/i20mainf.F
110!|| i21main_tri ../engine/source/interfaces/intsort/i21main_tri.F
111!|| i21optcd ../engine/source/interfaces/int21/i21optcd.F
112!|| i22buce ../engine/source/interfaces/intsort/i22buce.F
113!|| i22ident ../engine/source/interfaces/int22/i22ident.F
114!|| i22intersect ../engine/source/interfaces/int22/i22intersect.F
115!|| i22main_tri ../engine/source/interfaces/intsort/i22main_tri.F
116!|| i22mainf ../engine/source/interfaces/int22/i22mainf.F
117!|| i22subvol ../engine/source/interfaces/int22/i22subvol.F
118!|| i22trivox ../engine/source/interfaces/intsort/i22trivox.F
119!|| i23main_tri ../engine/source/interfaces/intsort/i23main_tri.F
120!|| i23mainf ../engine/source/interfaces/int23/i23mainf.F
121!|| i23trivox ../engine/source/interfaces/intsort/i23trivox.F
122!|| i24main_tri ../engine/source/interfaces/intsort/i24main_tri.F
123!|| i24trivox ../engine/source/interfaces/intsort/i24trivox.F
124!|| i25comp_2 ../engine/source/interfaces/int25/i25comp_2.F
125!|| i25edge_switch ../engine/source/interfaces/int25/i25edge_switch.F
126!|| i25gap3 ../engine/source/interfaces/int25/i25gap3.F
127!|| i25main_free ../engine/source/interfaces/intsort/i25main_free.F
128!|| i25main_norm ../engine/source/interfaces/int25/i25main_norm.F
129!|| i25main_opt_tri ../engine/source/interfaces/intsort/i25main_opt_tri.f
130!|| i25main_slid ../engine/source/interfaces/int25/i25main_slid.F
131!|| i25main_tri ../engine/source/interfaces/intsort/i25main_tri.F
132!|| i25mainf ../engine/source/interfaces/int25/i25mainf.F
133!|| i25normp ../engine/source/interfaces/int25/i25norm.F
134!|| i25optcd ../engine/source/interfaces/intsort/i25optcd.F
135!|| i25optcd_e2s ../engine/source/interfaces/intsort/i25optcd_e2s.F
136!|| i25tagn ../engine/source/interfaces/int25/i25norm.F
137!|| i25trivox ../engine/source/interfaces/intsort/i25trivox.F
138!|| i25trivox_edg ../engine/source/interfaces/intsort/i25trivox_edg.F
139!|| i7main_lmult ../engine/source/interfaces/int07/i7main_lmult.F
140!|| i7main_tri ../engine/source/interfaces/intsort/i7main_tri.F
141!|| i7mainf ../engine/source/interfaces/int07/i7mainf.F
142!|| i7trivox ../engine/source/interfaces/intsort/i7trivox.F
143!|| imp_chkm ../engine/source/implicit/imp_solv.F
144!|| imp_fsa_inv2hp ../engine/source/implicit/imp_fsa_inv.F
145!|| imp_fsa_invh ../engine/source/implicit/imp_fsa_inv.F
146!|| imp_fsa_invh2 ../engine/source/implicit/imp_fsa_inv.F
147!|| imp_fsa_invhp ../engine/source/implicit/imp_fsa_inv.F
148!|| imp_inisi ../engine/source/implicit/imp_pcg.F
149!|| imp_inist ../engine/source/implicit/imp_pcg.F
150!|| imp_inix ../engine/source/implicit/imp_pcg.F
151!|| imp_k_eig ../engine/stub/imp_k_eig.F
152!|| imp_pcgh ../engine/source/implicit/imp_pcg.F
153!|| imp_ppcgh ../engine/source/implicit/imp_pcg.F
154!|| imp_pro_p ../engine/source/implicit/imp_pcg.F
155!|| imp_solv ../engine/source/implicit/imp_solv.F
156!|| imp_updst ../engine/source/implicit/imp_pcg.F
157!|| ini_tmax ../engine/source/output/ini_outmax.F
158!|| int18_law151_update ../engine/source/interfaces/int18/int18_law151_update.F
159!|| inter_color_coarse_voxel ../engine/source/interfaces/generic/inter_color_coarse_voxel.F
160!|| inter_color_voxel ../engine/source/interfaces/generic/inter_color_voxel.F
161!|| inter_count_node_curv ../engine/source/interfaces/generic/inter_count_node_curv.F
162!|| inter_deallocate_wait ../engine/source/interfaces/generic/inter_deallocate_wait.F
163!|| inter_minmax_node ../engine/source/interfaces/generic/inter_minmax_node.F
164!|| inter_prepare_sort ../engine/source/interfaces/generic/inter_prepare_sort.F
165!|| inter_sort_07 ../engine/source/interfaces/int07/inter_sort_07.F
166!|| intfop2 ../engine/source/interfaces/interf/intfop2.F
167!|| inttri ../engine/source/interfaces/intsort/inttri.F
168!|| lag_mult ../engine/source/tools/lagmul/lag_mult.F
169!|| lin_solv ../engine/source/implicit/lin_solv.F
170!|| mav_lt_h ../engine/source/implicit/produt_v.F
171!|| mav_ltgh ../engine/source/implicit/produt_v.F
172!|| mav_lth ../engine/source/implicit/produt_v.F
173!|| mav_lth0 ../engine/source/implicit/produt_v.F
174!|| mmav_lth ../engine/source/implicit/produt_v.F
175!|| mmv_lh ../engine/source/implicit/produt_v.F
176!|| mmv_lth ../engine/source/implicit/produt_v.F
177!|| mortho_gs ../engine/source/implicit/produt_v.F
178!|| multi_timeevolution ../engine/source/multifluid/multi_timeevolution.F
179!|| nlocal_dtnoda ../engine/source/time_step/nlocal_dtnoda.F
180!|| pblast_1 ../engine/source/loads/pblast/pblast_1.F
181!|| pblast_2 ../engine/source/loads/pblast/pblast_2.F
182!|| pblast_3 ../engine/source/loads/pblast/pblast_3.F
183!|| pblast_load_computation ../engine/source/loads/pblast/pblast.F
184!|| prec5h_solv ../engine/source/implicit/prec_solv.F
185!|| prec5hc_solv ../engine/source/implicit/prec_solv.F
186!|| prec_solvgh ../engine/source/implicit/prec_solv.F
187!|| prec_solvh ../engine/source/implicit/prec_solv.F
188!|| prelecflow ../engine/source/elements/solid/solide/prelecflow.F
189!|| produt_h ../engine/source/implicit/produt_v.F
190!|| produt_uh ../engine/source/implicit/produt_v.F
191!|| produt_uh2 ../engine/source/implicit/produt_v.F
192!|| produt_vmh ../engine/source/implicit/produt_v.F
193!|| resol ../engine/source/engine/resol.F
194!|| resol_init ../engine/source/engine/resol_init.F
195!|| rgwal0 ../engine/source/constraints/general/rwall/rgwal0.F
196!|| rgwalc ../engine/source/constraints/general/rwall/rgwalc.F
197!|| rgwall ../engine/source/constraints/general/rwall/rgwall.F
198!|| rgwalp ../engine/source/constraints/general/rwall/rgwalp.F
199!|| rgwals ../engine/source/constraints/general/rwall/rgwals.F
200!|| s10cndf1 ../engine/source/elements/solid/solide10/s10cndf.F
201!|| s10cndf2 ../engine/source/elements/solid/solide10/s10cndf.F
202!|| s10cndfnd ../engine/source/elements/solid/solide10/s10cndf.F
203!|| s10stfe_poff ../engine/source/elements/solid/solide10/s10cndf.F
204!|| seggetv ../engine/source/interfaces/interf/seggetv.F
205!|| sinit22_fvm ../engine/source/interfaces/int22/sinit22_fvm.F
206!|| sms_admesh_2 ../engine/source/ams/sms_admesh.F
207!|| sms_build_diag ../engine/source/ams/sms_build_diag.F
208!|| sms_build_mat_2 ../engine/source/ams/sms_build_mat_2.F
209!|| sms_check ../engine/source/ams/sms_fsa_inv.F
210!|| sms_cjoint_0 ../engine/source/ams/sms_cjoint.F
211!|| sms_cjoint_1 ../engine/source/ams/sms_cjoint.F
212!|| sms_cjoint_2 ../engine/source/ams/sms_cjoint.F
213!|| sms_encin_2 ../engine/source/ams/sms_encin_2.F
214!|| sms_inisi ../engine/source/ams/sms_proj.F
215!|| sms_inist ../engine/source/ams/sms_proj.F
216!|| sms_inix ../engine/source/ams/sms_proj.F
217!|| sms_mass_scale_2 ../engine/source/ams/sms_mass_scale_2.F
218!|| sms_mav_lt ../engine/source/ams/sms_pcg.F
219!|| sms_mav_lt2 ../engine/source/ams/sms_pcg.F
220!|| sms_mortho_gs ../engine/source/ams/sms_proj.F
221!|| sms_pcg ../engine/source/ams/sms_pcg.F
222!|| sms_pro_p ../engine/source/ams/sms_proj.F
223!|| sms_produt3 ../engine/source/ams/sms_proj.F
224!|| sms_produt_h ../engine/source/ams/sms_proj.F
225!|| sms_rgwal_0 ../engine/source/ams/sms_rgwal0.F
226!|| sms_updst ../engine/source/ams/sms_proj.F
227!|| soltosph_on1 ../engine/source/elements/sph/soltosph_on1.F
228!|| soltosph_on2 ../engine/source/elements/sph/soltosph_on2.F
229!|| soltospha ../engine/source/elements/sph/soltospha.F
230!|| soltosphf ../engine/source/elements/sph/soltosph.F
231!|| spbuc3 ../engine/source/elements/sph/spbuc3.F
232!|| spclasv ../engine/source/elements/sph/spclasv.F
233!|| sphprep ../engine/source/elements/sph/sphprep.F
234!|| sphtri0 ../engine/source/elements/sph/sphtri0.F
235!|| splissv ../engine/source/elements/sph/splissv.F
236!|| spstabs ../engine/source/elements/sph/spstab.F
237!|| spsym_alloc ../engine/source/elements/sph/spsym_alloc.F
238!|| spsymp ../engine/source/elements/sph/spsym.F
239!|| sptrivox ../engine/source/elements/sph/sptrivox.F
240!|| tagoff3n ../engine/source/interfaces/interf/chkstfn3.F
241!|| telesc ../engine/source/constraints/general/cyl_joint/telesc.F
242!|| upd_tmax ../engine/source/output/upd_outmax.F
243!|| update_struct_int21 ../engine/source/interfaces/int21/update_struct_int21.F
244!|| write_cut_cell_buffer ../engine/source/interfaces/int22/write_cut_cell_buffer.F
245!||====================================================================
246 SUBROUTINE my_barrier
247#include "implicit_f.inc"
248#include "comlock.inc"
249#include "task_c.inc"
250#include "units_c.inc"
251#if defined(_OPENMP)
252!$OMP BARRIER
253#endif
254 RETURN
255 END
256C
257!||====================================================================
258!|| idp_lock ../engine/source/system/machine.F
259!||--- called by ------------------------------------------------------
260!|| bafil2 ../engine/source/ale/bimat/bafil2.F
261!|| balph2 ../engine/source/ale/bimat/balph2.F
262!|| befil2 ../engine/source/ale/bimat/befil2.F
263!|| qmass2 ../engine/source/elements/solid_2d/quad/qmass2.F
264!|| qmassreal2 ../engine/source/elements/solid_2d/quad/qmassreal2.F
265!|| user_lock ../engine/source/system/machine.F
266!||--- calls -----------------------------------------------------
267!||====================================================================
268 SUBROUTINE idp_lock(ID)
269#include "comlock.inc"
270 INTEGER ID
271#if defined(_OPENMP)
272 CALL omp_set_lock(llock(1,id))
273#endif
274 RETURN
275 END
276C
277!||====================================================================
278!|| user_lock ../engine/source/system/machine.F
279!||--- calls -----------------------------------------------------
280!|| idp_lock ../engine/source/system/machine.F
281!||====================================================================
282 SUBROUTINE user_lock()
283 CALL idp_lock(1)
284 RETURN
285 END
286C
287!||====================================================================
288!|| idp_free ../engine/source/system/machine.F
289!||--- called by ------------------------------------------------------
290!|| bafil2 ../engine/source/ale/bimat/bafil2.F
291!|| balph2 ../engine/source/ale/bimat/balph2.F
292!|| befil2 ../engine/source/ale/bimat/befil2.F
293!|| qmass2 ../engine/source/elements/solid_2d/quad/qmass2.F
294!|| qmassreal2 ../engine/source/elements/solid_2d/quad/qmassreal2.F
295!|| user_free ../engine/source/system/machine.F
296!||--- calls -----------------------------------------------------
297!||====================================================================
298 SUBROUTINE idp_free(ID)
299#include "comlock.inc"
300 INTEGER ID
301#if defined(_OPENMP)
302 CALL omp_unset_lock(llock(1,id))
303#endif
304 RETURN
305 END
306C
307!||====================================================================
308!|| user_free ../engine/source/system/machine.F
309!||--- calls -----------------------------------------------------
310!|| idp_free ../engine/source/system/machine.F
311!||====================================================================
312 SUBROUTINE user_free()
313 CALL idp_free(1)
314 RETURN
315 END
316C
317!||====================================================================
318!|| wait_task ../engine/source/system/machine.F
319!||====================================================================
320 SUBROUTINE wait_task(ITID)
321 INTEGER ITID(*),IT,JT
322#if defined(_OPENMP)
323#endif
324 RETURN
325 END
326
327C=======================================================================
328C=======================================================================
329C ROUTINES CRAY
330C=======================================================================
331#if CPP_mach != CPP_c90 && CPP_mach != CPP_ymp && CPP_mach != CPP_ymp_spmd && CPP_mach != CPP_t90 && CPP_mach != CPP_t90_i3e
332 my_real
333 . FUNCTION cvmgn(X1,X2,X3)
334#include "implicit_f.inc"
335 my_real
336 . x1, x2, x3
337 IF(x3==0.) THEN
338 cvmgn=x2
339 ELSE
340 cvmgn=x1
341 ENDIF
342 RETURN
343 END
344 my_real
345 . FUNCTION cvmgt(X1,X2,X3)
346#include "implicit_f.inc"
347 my_real
348 . x1, x2
349 LOGICAL X3
350 IF(x3) THEN
351 cvmgt=x1
352 ELSE
353 cvmgt=x2
354 ENDIF
355 RETURN
356 END
357#endif
358C=======================================================================
359C ROUTINE DE SYNCHRO POUR LE CRAY EN SMP
360C=======================================================================
361C cette routine doit etre appelee pour eviter certaines
362C optimisations super-scalaire incompatible avec notion
363C de var. partagee.
364!||====================================================================
365!|| sync_data ../engine/source/system/machine.F
366!||--- called by ------------------------------------------------------
367!|| admregul ../engine/source/model/remesh/admregul.F
368!|| i10optcd ../engine/source/interfaces/intsort/i10optcd.F
369!|| i11optcd ../engine/source/interfaces/intsort/i11optcd.F
370!|| i20optcd ../engine/source/interfaces/intsort/i20optcd.F
371!|| i20optcde ../engine/source/interfaces/intsort/i20optcd.F
372!|| i23optcd ../engine/source/interfaces/int23/i23optcd.F
373!|| i24optcd ../engine/source/interfaces/intsort/i24optcd.F
374!|| i25optcd ../engine/source/interfaces/intsort/i25optcd.F
375!|| i25optcd_e2s ../engine/source/interfaces/intsort/i25optcd_e2s.F
376!|| i25optcd_edg ../engine/source/interfaces/intsort/i25optcd_edg.F
377!|| i7optcd ../engine/source/interfaces/intsort/i7optcd.F
378!|| thnod ../engine/source/output/th/thnod.F
379!||====================================================================
380 SUBROUTINE sync_data(II)
381 INTEGER II(*)
382 RETURN
383 END
384C=======================================================================
385C ROUTINE ETIME
386C=======================================================================
387!||====================================================================
388!|| my_etime ../engine/source/system/machine.F
389!||--- called by ------------------------------------------------------
390!|| startime ../engine/source/system/timer_mod.F90
391!|| startimeg ../engine/source/system/timer.F
392!|| stoptime ../engine/source/system/timer_mod.F90
393!|| stoptimeg ../engine/source/system/timer.F
394!||--- calls -----------------------------------------------------
395!||====================================================================
396 SUBROUTINE my_etime(TIMER)
397 REAL RESULT
398 REAL, DIMENSION(2) :: TIMER
399#ifdef COMP_NVFORTRAN
400 REAL, EXTERNAL :: ETIME
401#endif
402#if CPP_mach == cpp_rs7 || cpp_mach == cpp_rs9 || cpp_mach == cpp_sp2 || cpp_mach == cpp_ppc || cpp_mach == cpp_pwr4 || cpp_mach == cpp_pwr4_spmd
403 result = etime_(timer)
404#elif cpp_mach == cpp_ymp || cpp_mach == cpp_c90 || cpp_mach == cpp_ymp_spmd || cpp_mach == cpp_t90 || cpp_mach == cpp_t90_i3e
405 CALL tsecnd(timer)
406#elif CPP_mach == CPP_sx4 || CPP_mach == CPP_sx4_i3e
407 result = etime(timer)
408/* el51e9 #elif CPP_mach == CPP_w95 || CPP_mach == CPP_ant || CPP_mach == CPP_wnt || CPP_mach == CPP_wmr */
409#elif CPP_mach == CPP_w95 || CPP_mach == CPP_wnt || CPP_mach == CPP_wmr
410 timer(1) = 0.
411#elif CPP_mach == CPP_win64_spmd || CPP_mach == CPP_p4win64_spmd || CPP_mach == CPP_p4win64
412 CALL cpu_time(timer(1))
413#elif CPP_mach == CPP_cx1_spmd || CPP_mach == CPP_cx1
414 result = etimec(timer)
415#elif 1
416 result = etime(timer)
417#endif
418 RETURN
419 END
420C=======================================================================
421C ROUTINE VERIFICATION LIMITATIONS MACHINE
422C=======================================================================
423!||====================================================================
424!|| my_flush ../engine/source/system/machine.F
425!||--- called by ------------------------------------------------------
426!|| ecrit ../engine/source/output/ecrit.F
427!|| get_table_value_dydx ../engine/source/user_interface/utable.F
428!|| imp_stop ../engine/source/implicit/imp_solv.F
429!|| multi_muscl_fluxes_computation ../engine/source/multifluid/multi_muscl_fluxes_computation.F
430!|| printcpu ../engine/source/system/timer.F
431!||--- calls -----------------------------------------------------
432!||====================================================================
433 SUBROUTINE my_flush(IUNIT)
434C appel Fortran flush
435C-----------------------------------------------
436C I m p l i c i t T y p e s
437C-----------------------------------------------
438#include "implicit_f.inc"
439C-----------------------------------------------
440C D u m m y A r g u m e n t s
441C-----------------------------------------------
442 INTEGER IUNIT
443C-----------------------------------------------
444C L o c a l V a r i a b l e s
445C-----------------------------------------------
446C call a rendre specifique machine en cas de pb de compilation
447#if CPP_mach == cpp_pwr4 || cpp_mach == cpp_pwr4_spmd
448C pas de routine FLUSH sur AIX
449#elif 1
450 CALL flush(iunit)
451#endif
452 RETURN
453 END
454
455!||====================================================================
456!|| mkl_init ../engine/source/system/machine.F
457!||--- calls -----------------------------------------------------
458!||====================================================================
459 SUBROUTINE mkl_init(MKL_DYN,OMP_NEST)
460C-----------------------------------------------
461C I m p l i c i t T y p e s
462C-----------------------------------------------
463#include "implicit_f.inc"
464C-----------------------------------------------
465C D u m m y A r g u m e n t s
466C-----------------------------------------------
467 LOGICAL MKL_DYN,OMP_NEST
468C-----------------------------------------------
469C L o c a l V a r i a b l e s
470C-----------------------------------------------
471 LOGICAL omp_get_nested, mkl_get_dynamic
472 EXTERNAL omp_get_nested, mkl_get_dynamic
473C call a rendre specifique machine en cas de pb de compilation
474C#if CPP_mach == CPP_p4linux964 || CPP_mach == CPP_p4linux932 || CPP_mach == CPP_il || CPP_mach == CPP_p4win64 || CPP_mach == CPP_p4win32
475#if defined mkl
476 mkl_dyn = omp_get_nested()
477 omp_nest = mkl_get_dynamic()
478 call omp_set_nested(.true.)
479 call mkl_set_dynamic(.false.)
480#endif
481 RETURN
482 END
483
484!||====================================================================
485!|| mkl_reset ../engine/source/system/machine.F
486!||--- calls -----------------------------------------------------
487!||====================================================================
488 SUBROUTINE mkl_reset(MKL_DYN,OMP_NEST)
489C-----------------------------------------------
490C I m p l i c i t T y p e s
491C-----------------------------------------------
492#include "implicit_f.inc"
493C-----------------------------------------------
494C D u m m y A r g u m e n t s
495C-----------------------------------------------
496 LOGICAL MKL_DYN,OMP_NEST
497C-----------------------------------------------
498C L o c a l V a r i a b l e s
499C-----------------------------------------------
500 LOGICAL omp_get_nested, mkl_get_dynamic
501 EXTERNAL omp_get_nested, mkl_get_dynamic
502C call a rendre specifique machine en cas de pb de compilation
503C#if CPP_mach == CPP_p4linux964 || CPP_mach == CPP_p4linux932 || CPP_mach == CPP_il || CPP_mach == CPP_p4win64 || CPP_mach == CPP_p4win32
504#if defined mkl
505 call omp_set_nested(omp_nest)
506 call mkl_set_dynamic(mkl_dyn)
507c MKL_DYN = omp_get_nested()
508c OMP_NEST = mkl_get_dynamic()
509#endif
510 RETURN
511 END
512
513!||====================================================================
514!|| write_iout ../engine/source/system/machine.F
515!||====================================================================
516 SUBROUTINE write_iout(LINE,LEN1)
517C-----------------------------------------------
518C I m p l i c i t T y p e s
519C-----------------------------------------------
520#include "implicit_f.inc"
521#include "comlock.inc"
522C-----------------------------------------------
523C C o m m o n B l o c k s
524C-----------------------------------------------
525#include "units_c.inc"
526C-----------------------------------------------
527C D u m m y A r g u m e n t s
528C-----------------------------------------------
529 INTEGER LEN1
530 CHARACTER(len=LEN1) LINE
531C-----------------------------------------------
532#include "lockon.inc"
533 WRITE(iout,'(A)') line(1:len1)
534#include "lockoff.inc"
535
536 END
537C-----------------------------------------------
538
aflux0
subroutine aflux0(iparg, elbuf_str, pm, ixs, ixq, v, w, x, flux, flu2, veul, fill, dfill, vol, ale_connect, alph, itask, nv46, ipm)
Definition aflux0.F:50
my_real
#define my_real
Definition cppsort.cpp:32
my_barrier
subroutine my_barrier
Definition machine.F:247
my_etime
subroutine my_etime(timer)
Definition machine.F:397
idp_lock
subroutine idp_lock(id)
Definition machine.F:269
sync_data
subroutine sync_data(ii)
Definition machine.F:381
my_flush
subroutine my_flush(iunit)
Definition machine.F:434
mkl_reset
subroutine mkl_reset(mkl_dyn, omp_nest)
Definition machine.F:489
user_free
subroutine user_free()
Definition machine.F:313
wait_task
subroutine wait_task(itid)
Definition machine.F:321
user_lock
subroutine user_lock()
Definition machine.F:283
mkl_init
subroutine mkl_init(mkl_dyn, omp_nest)
Definition machine.F:460
write_iout
subroutine write_iout(line, len1)
Definition machine.F:517
idp_free
subroutine idp_free(id)
Definition machine.F:299
i25main_opt_tri
subroutine i25main_opt_tri(nin, ipari, intbuf_tab, x, v, itask, itab, kinet, count_remslv, count_remslve, nb_candt, i_opt_stok)
Definition i25main_opt_tri.F:42