OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
initbuf.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!|| initbuf_mod ../engine/share/resol/initbuf.F
25!||--- called by ------------------------------------------------------
26!|| aconve ../engine/source/ale/aconve.F
27!|| aeturb ../engine/source/ale/turbulence/aeturb.F
28!|| aflux0 ../engine/source/ale/aflux0.F
29!|| afluxt ../engine/source/ale/ale51/afluxt.F
30!|| agauge ../engine/source/ale/agauge.F
31!|| akturb ../engine/source/ale/turbulence/akturb.F
32!|| ale51_finish ../engine/source/ale/ale51/ale51_finish.F
33!|| ale51_gradient_reconstruction ../engine/source/ale/alemuscl/ale51_gradient_reconstruction.F
34!|| ale51_gradient_reconstruction2 ../engine/source/ale/alemuscl/ale51_gradient_reconstruction2.F
35!|| ale51_init ../engine/source/ale/ale51/ale51_init.F
36!|| aleflux ../engine/source/ale/porous/aleflux.F
37!|| alefvm_main ../engine/source/ale/alefvm/alefvm_main.F
38!|| alemain ../engine/source/ale/alemain.F
39!|| anim_nodal_p_elems ../engine/source/output/anim/generate/anim_nodal_p_elems.F
40!|| anim_nodal_ssp_elems ../engine/source/output/anim/generate/anim_nodal_ssp_elems.F90
41!|| arezon ../engine/source/ale/arezon.F
42!|| atherm ../engine/source/ale/atherm.F
43!|| cutfunce ../engine/source/tools/sect/cutfunce.F
44!|| dfunc0 ../engine/source/output/anim/generate/dfunc0.F
45!|| dfuncc ../engine/source/output/anim/generate/dfuncc.F
46!|| dfuncc_crk ../engine/source/output/anim/generate/dfuncc_crk.F
47!|| dfuncc_ply ../engine/source/output/anim/generate/dfuncc_ply.F
48!|| dfuncs ../engine/source/output/anim/generate/dfunc6.F
49!|| dfungps1 ../engine/source/output/anim/generate/dfuncf.F
50!|| dfungps2 ../engine/source/output/anim/generate/dfuncf.F
51!|| dmasani0 ../engine/source/output/anim/generate/dmasani0.F
52!|| dmasanis ../engine/source/output/anim/generate/dmasani6.F
53!|| forint ../engine/source/elements/forint.F
54!|| forintp ../engine/source/elements/forintp.F
55!|| forints ../engine/source/elements/forints.F
56!|| get_nodal_ipart ../engine/source/output/h3d/h3d_results/h3d_skin_ixskin.F
57!|| get_unique_main_cell ../engine/source/interfaces/int22/get_unique_master_cell.F
58!|| gpsstrain_skin ../engine/source/output/anim/generate/tensgpstrain.F
59!|| h3d_quad_scalar ../engine/source/output/h3d/h3d_results/h3d_quad_scalar.F
60!|| h3d_quad_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_quad_scalar_1.F90
61!|| h3d_quad_vector ../engine/source/output/h3d/h3d_results/h3d_quad_vector.F
62!|| h3d_shell_scalar ../engine/source/output/h3d/h3d_results/h3d_shell_scalar.F
63!|| h3d_shell_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_shell_scalar_1.F
64!|| h3d_shell_vector ../engine/source/output/h3d/h3d_results/h3d_shell_vector.F
65!|| h3d_shell_vector_1 ../engine/source/output/h3d/h3d_results/h3d_shell_vector_1.F
66!|| h3d_skin_ixskin ../engine/source/output/h3d/h3d_results/h3d_skin_ixskin.F
67!|| h3d_skin_off ../engine/source/output/h3d/h3d_results/h3d_skin_off.F
68!|| h3d_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
69!|| h3d_skin_sol_dim ../engine/source/output/h3d/h3d_results/h3d_skin_ixskin.F
70!|| h3d_skin_tensor ../engine/source/output/h3d/h3d_results/h3d_skin_tensor.F
71!|| h3d_skin_tsh_dim ../engine/source/output/h3d/h3d_results/h3d_skin_ixskin.F
72!|| h3d_sol_skin_ixskin ../engine/source/output/h3d/h3d_results/h3d_sol_skin_ixskin.F
73!|| h3d_sol_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_sol_skin_scalar.F
74!|| h3d_sol_skin_scalar1 ../engine/source/output/h3d/h3d_results/h3d_sol_skin_scalar1.F
75!|| h3d_sol_skin_tensor ../engine/source/output/h3d/h3d_results/h3d_sol_skin_tensor.f
76!|| h3d_solid_scalar ../engine/source/output/h3d/h3d_results/h3d_solid_scalar.F
77!|| h3d_solid_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_solid_scalar_1.F
78!|| h3d_solid_tensor ../engine/source/output/h3d/h3d_results/h3d_solid_tensor.F
79!|| h3d_solid_tensor_1 ../engine/source/output/h3d/h3d_results/h3d_solid_tensor_1.F
80!|| h3d_solid_vector ../engine/source/output/h3d/h3d_results/h3d_solid_vector.F
81!|| h3d_sph_scalar ../engine/source/output/h3d/h3d_results/h3d_sph_scalar.F
82!|| h3d_sph_tensor ../engine/source/output/h3d/h3d_results/h3d_sph_tensor.F
83!|| h3d_velvecc22 ../engine/source/output/h3d/h3d_results/h3d_velvecc22.F
84!|| h3d_velvecz22 ../engine/source/output/h3d/h3d_results/h3d_velvecz22.F
85!|| i9grd2 ../engine/source/interfaces/int09/i9grd2.f
86!|| i9grd3 ../engine/source/interfaces/int09/i9grd3.F
87!|| imp_glob_k ../engine/source/implicit/imp_glob_k.F
88!|| imp_glob_k0 ../engine/source/implicit/imp_glob_k.F
89!|| imp_glob_khp ../engine/source/implicit/imp_glob_k.F
90!|| laser2 ../engine/source/loads/laser/laser2.F
91!|| laser3 ../engine/source/loads/laser/laser2.F
92!|| lech3d ../engine/source/output/h3d/h3d_build_fortran/lech3d.F
93!|| link_with_unique_main_cell ../engine/source/interfaces/int22/link_with_unique_master_cell.F
94!|| multi_compute_dt ../engine/source/multifluid/multi_compute_dt.F
95!|| multi_evolve_global ../engine/source/multifluid/multi_evolve_global.f
96!|| multi_evolve_partial ../engine/source/multifluid/multi_evolve_partial.F
97!|| multi_fluxes_computation ../engine/source/multifluid/multi_fluxes_computation.F
98!|| multi_fvm2fem ../engine/source/multifluid/multi_fvm2fem.F
99!|| multi_globalize ../engine/source/multifluid/multi_globalize.F
100!|| multi_muscl_fluxes_computation ../engine/source/multifluid/multi_muscl_fluxes_computation.F
101!|| multi_muscl_gradients ../engine/source/multifluid/multi_muscl_gradients.F
102!|| multi_pressure_equilibrium ../engine/source/multifluid/multi_pressure_equilibrium.F
103!|| multi_timeevolution ../engine/source/multifluid/multi_timeevolution.F
104!|| multi_update_global ../engine/source/multifluid/multi_update_global.F
105!|| multi_update_partial ../engine/source/multifluid/multi_update_partial.F
106!|| nodal_schlieren ../engine/source/output/anim/generate/nodal_schlieren.F
107!|| nodald ../engine/source/output/anim/generate/nodald.F
108!|| nodaldt ../engine/source/output/anim/generate/nodaldt.F
109!|| nodalp ../engine/source/output/anim/generate/nodalp.F
110!|| nodalssp ../engine/source/output/anim/generate/nodalssp.F
111!|| nodalt ../engine/source/output/anim/generate/nodalt.F
112!|| nodalvfrac ../engine/source/output/anim/generate/nodalvfrac.F
113!|| nodalvol ../engine/source/output/anim/generate/nodalvol.F
114!|| nodalzvol ../engine/source/output/anim/generate/nodalzvol.F
115!|| outp_s_s ../engine/source/output/sty/outp_s_s.F
116!|| outp_s_t ../engine/source/output/sty/outp_s_t.F
117!|| outp_s_tt ../engine/source/output/sty/outp_s_t.F
118!|| outp_sp_s ../engine/source/output/sty/outp_sp_s.F
119!|| outp_sp_t ../engine/source/output/sty/outp_sp_t.F
120!|| outp_sp_tt ../engine/source/output/sty/outp_sp_t.F
121!|| output_schlieren ../engine/source/output/anim/generate/output_schlieren.F
122!|| prelecflow ../engine/source/elements/solid/solide/prelecflow.F
123!|| prelech3d ../engine/source/output/h3d/h3d_build_fortran/prelech3d.F90
124!|| rgwat2 ../engine/source/interfaces/int09/rgwat2.F
125!|| rgwat3 ../engine/source/interfaces/int09/rgwat3.F
126!|| s4alesfem ../engine/source/elements/solid/solide4_sfem/s4alesfem.f
127!|| s4lagsfem ../engine/source/elements/solid/solide4_sfem/s4lagsfem.F
128!|| schlieren_buffer_gathering ../engine/source/output/anim/generate/schlieren_buffer_gathering.F
129!|| seggetv ../engine/source/interfaces/interf/seggetv.F
130!|| sigeps37_single_cell ../engine/source/interfaces/int22/sigeps37_single_cell.F
131!|| sinit22_fvm ../engine/source/interfaces/int22/sinit22_fvm.F
132!|| soltosphp ../engine/source/elements/sph/soltosph.F
133!|| spechan ../engine/source/elements/sph/spechan.F
134!|| spgauge ../engine/source/elements/sph/spgauge.F
135!|| sponfprs ../engine/source/elements/sph/sponfprs.F
136!|| sponof1 ../engine/source/elements/sph/sponof1.F
137!|| sponof2 ../engine/source/elements/sph/sponof2.f
138!|| spwfvis ../engine/source/elements/sph/spwfvis.F
139!|| stat_s_auxf ../engine/source/output/sta/stat_s_auxf.F
140!|| stat_s_eref ../engine/source/output/sta/stat_s_eref.F
141!|| stat_s_fail ../engine/source/output/sta/stat_s_fail.F
142!|| stat_s_ortho ../engine/source/output/sta/stat_s_ortho.f
143!|| stat_s_straf ../engine/source/output/sta/stat_s_straf.F
144!|| stat_s_strsf ../engine/source/output/sta/stat_s_strsf.F
145!|| strn_tenscor3 ../engine/source/output/h3d/h3d_results/h3d_strn_tenscor3.F
146!|| tensgps1 ../engine/source/output/anim/generate/tensor6.F
147!|| tensgps2 ../engine/source/output/anim/generate/tensor6.F
148!|| tensgps3 ../engine/source/output/anim/generate/tensor6.F
149!|| tensgps_skin ../engine/source/output/anim/generate/tensor6.F
150!|| tensgpstrain ../engine/source/output/anim/generate/tensgpstrain.F
151!|| tensor0 ../engine/source/output/anim/generate/tensor0.F
152!|| tensors ../engine/source/output/anim/generate/tensor6.F
153!|| thquad ../engine/source/output/th/thquad.F
154!|| thsol ../engine/source/output/th/thsol.F
155!|| thsph ../engine/source/output/th/thsph.F
156!|| velvecc22 ../engine/source/output/anim/generate/velvec.F
157!|| velvecz22 ../engine/source/output/anim/generate/velvecz22.F
158!|| write_cut_cell_buffer ../engine/source/interfaces/int22/write_cut_cell_buffer.F
159!||====================================================================
160 MODULE initbuf_mod
161 CONTAINS
162!||====================================================================
163!|| initbuf ../engine/share/resol/initbuf.F
164!||--- called by ------------------------------------------------------
165!|| aconve ../engine/source/ale/aconve.F
166!|| aeturb ../engine/source/ale/turbulence/aeturb.f
167!|| aflux0 ../engine/source/ale/aflux0.F
168!|| afluxt ../engine/source/ale/ale51/afluxt.F
169!|| agauge ../engine/source/ale/agauge.F
170!|| akturb ../engine/source/ale/turbulence/akturb.F
171!|| ale51_finish ../engine/source/ale/ale51/ale51_finish.F
172!|| ale51_gradient_reconstruction ../engine/source/ale/alemuscl/ale51_gradient_reconstruction.F
173!|| ale51_gradient_reconstruction2 ../engine/source/ale/alemuscl/ale51_gradient_reconstruction2.F
174!|| ale51_init ../engine/source/ale/ale51/ale51_init.F
175!|| alefvm_main ../engine/source/ale/alefvm/alefvm_main.F
176!|| alemain ../engine/source/ale/alemain.F
177!|| arezon ../engine/source/ale/arezon.F
178!|| atherm ../engine/source/ale/atherm.F
179!|| cutfunce ../engine/source/tools/sect/cutfunce.F
180!|| dfuncc ../engine/source/output/anim/generate/dfuncc.F
181!|| dfuncc_crk ../engine/source/output/anim/generate/dfuncc_crk.F
182!|| dfuncc_ply ../engine/source/output/anim/generate/dfuncc_ply.F
183!|| dfuncs ../engine/source/output/anim/generate/dfunc6.F
184!|| dfungps1 ../engine/source/output/anim/generate/dfuncf.F
185!|| dfungps2 ../engine/source/output/anim/generate/dfuncf.F
186!|| dmasani0 ../engine/source/output/anim/generate/dmasani0.F
187!|| dmasanis ../engine/source/output/anim/generate/dmasani6.F
188!|| forint ../engine/source/elements/forint.F
189!|| forintp ../engine/source/elements/forintp.F
190!|| forints ../engine/source/elements/forints.F
191!|| get_nodal_ipart ../engine/source/output/h3d/h3d_results/h3d_skin_ixskin.F
192!|| gpsstrain_skin ../engine/source/output/anim/generate/tensgpstrain.F
193!|| h3d_quad_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_quad_scalar_1.F90
194!|| h3d_quad_vector ../engine/source/output/h3d/h3d_results/h3d_quad_vector.F
195!|| h3d_shell_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_shell_scalar_1.F
196!|| h3d_shell_vector_1 ../engine/source/output/h3d/h3d_results/h3d_shell_vector_1.F
197!|| h3d_skin_ixskin ../engine/source/output/h3d/h3d_results/h3d_skin_ixskin.F
198!|| h3d_skin_off ../engine/source/output/h3d/h3d_results/h3d_skin_off.F
199!|| h3d_skin_scalar ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
200!|| h3d_skin_sol_dim ../engine/source/output/h3d/h3d_results/h3d_skin_ixskin.F
201!|| h3d_skin_tensor ../engine/source/output/h3d/h3d_results/h3d_skin_tensor.F
202!|| h3d_skin_tsh_dim ../engine/source/output/h3d/h3d_results/h3d_skin_ixskin.F
203!|| h3d_sol_skin_ixskin ../engine/source/output/h3d/h3d_results/h3d_sol_skin_ixskin.F
204!|| h3d_sol_skin_scalar1 ../engine/source/output/h3d/h3d_results/h3d_sol_skin_scalar1.f
205!|| h3d_solid_scalar_1 ../engine/source/output/h3d/h3d_results/h3d_solid_scalar_1.F
206!|| h3d_solid_tensor_1 ../engine/source/output/h3d/h3d_results/h3d_solid_tensor_1.f
207!|| h3d_solid_vector ../engine/source/output/h3d/h3d_results/h3d_solid_vector.f
208!|| h3d_sph_scalar ../engine/source/output/h3d/h3d_results/h3d_sph_scalar.F
209!|| h3d_sph_tensor ../engine/source/output/h3d/h3d_results/h3d_sph_tensor.F
210!|| i9grd2 ../engine/source/interfaces/int09/i9grd2.F
211!|| i9grd3 ../engine/source/interfaces/int09/i9grd3.f
212!|| imp_glob_k ../engine/source/implicit/imp_glob_k.F
213!|| imp_glob_k0 ../engine/source/implicit/imp_glob_k.F
214!|| laser2 ../engine/source/loads/laser/laser2.F
215!|| laser3 ../engine/source/loads/laser/laser2.f
216!|| lech3d ../engine/source/output/h3d/h3d_build_fortran/lech3d.F
217!|| multi_fvm2fem ../engine/source/multifluid/multi_fvm2fem.f
218!|| outp_s_s ../engine/source/output/sty/outp_s_s.f
219!|| outp_s_t ../engine/source/output/sty/outp_s_t.F
220!|| outp_s_tt ../engine/source/output/sty/outp_s_t.F
221!|| outp_sp_s ../engine/source/output/sty/outp_sp_s.F
222!|| outp_sp_t ../engine/source/output/sty/outp_sp_t.F
223!|| outp_sp_tt ../engine/source/output/sty/outp_sp_t.F
224!|| prelecflow ../engine/source/elements/solid/solide/prelecflow.F
225!|| rgwat2 ../engine/source/interfaces/int09/rgwat2.F
226!|| rgwat3 ../engine/source/interfaces/int09/rgwat3.F
227!|| s4alesfem ../engine/source/elements/solid/solide4_sfem/s4alesfem.F
228!|| s4lagsfem ../engine/source/elements/solid/solide4_sfem/s4lagsfem.F
229!|| seggetv ../engine/source/interfaces/interf/seggetv.F
230!|| sinit22_fvm ../engine/source/interfaces/int22/sinit22_fvm.F
231!|| soltosphp ../engine/source/elements/sph/soltosph.F
232!|| spechan ../engine/source/elements/sph/spechan.F
233!|| sponfprs ../engine/source/elements/sph/sponfprs.F
234!|| sponof1 ../engine/source/elements/sph/sponof1.F
235!|| sponof2 ../engine/source/elements/sph/sponof2.F
236!|| spwfvis ../engine/source/elements/sph/spwfvis.F
237!|| stat_s_auxf ../engine/source/output/sta/stat_s_auxf.f
238!|| stat_s_eref ../engine/source/output/sta/stat_s_eref.F
239!|| stat_s_fail ../engine/source/output/sta/stat_s_fail.F
240!|| stat_s_ortho ../engine/source/output/sta/stat_s_ortho.F
241!|| stat_s_straf ../engine/source/output/sta/stat_s_straf.F
242!|| stat_s_strsf ../engine/source/output/sta/stat_s_strsf.f
243!|| tensgps1 ../engine/source/output/anim/generate/tensor6.F
244!|| tensgps2 ../engine/source/output/anim/generate/tensor6.F
245!|| tensgps3 ../engine/source/output/anim/generate/tensor6.F
246!|| tensgps_skin ../engine/source/output/anim/generate/tensor6.f
247!|| tensgpstrain ../engine/source/output/anim/generate/tensgpstrain.F
248!|| tensor0 ../engine/source/output/anim/generate/tensor0.F
249!|| tensors ../engine/source/output/anim/generate/tensor6.F
250!|| thquad ../engine/source/output/th/thquad.F
251!|| thsol ../engine/source/output/th/thsol.F
252!|| thsph ../engine/source/output/th/thsph.F
253!||====================================================================
254 SUBROUTINE initbuf (IPARG ,NG ,
255 2 MTN ,LLT ,NFT ,IAD ,ITY ,
256 3 NPT ,JALE ,ISMSTR ,JEUL ,JTUR ,
257 4 JTHE ,JLAG ,JMULT ,JHBE ,JIVF ,
258 5 MID ,JPOR ,JCVT ,JCLOSE ,JPLA ,
259 6 IREP ,IINT ,IGTYP ,ISRAT ,ISROT ,
260 7 ICSEN ,ISORTH ,ISORTHG ,IFAILURE,JSMS )
261C-----------------------------------------------
262C I m p l i c i t T y p e s
263C-----------------------------------------------
264#include "implicit_f.inc"
265C-----------------------------------------------
266C C o m m o n B l o c k s
267C-----------------------------------------------
268#include "param_c.inc"
269C-----------------------------------------------
270C D u m m y A r g u m e n t s
271C-----------------------------------------------
272 INTEGER, INTENT (IN) :: IPARG(NPARG,*),NG
273 INTEGER, INTENT (OUT) :: MTN,LLT,NFT,IAD,ITY,NPT,JALE,ISMSTR,
274 . JEUL,JTUR,JTHE,JLAG,MID,JMULT,JHBE,JIVF,JPOR,JPLA,JCLOSE,
275 . IREP,IINT,IGTYP,JCVT,ISROT,ISRAT,ISORTH,ISORTHG,ICSEN,IFAILURE,
276 . JSMS
277C-----------------------------------------------
278C Comment : Initialisation des variables de vect01_c.inc
279C dans les boucles sur les groupes.
280C Necessaire pour routines telles que sbufad qui dimensionnent
281C le buffeur elementaire.
282C-----------------------------------------------
283C S o u r c e L i n e s
284C=======================================================================
285 mtn = iparg(1,ng)
286 llt = iparg(2,ng)
287 nft = iparg(3,ng)
288 iad = iparg(4,ng)
289 ity = iparg(5,ng)
290 npt = iparg(6,ng)
291 jale = iparg(7,ng)
292 ismstr = iparg(9,ng)
293
294 IF(ity==1.OR.ity==2)THEN
295 jeul = iparg(11,ng)
296 ELSEIF (mtn == 151 .AND. ity == 7) THEN
297 jeul = iparg(11,ng)
298 ELSE ! attention dkt9_s3 utilise ce flag
299 jeul = 0
300 END IF
301
302 jtur = iparg(12,ng)
303 jthe = iparg(13,ng)
304 jlag = iparg(14,ng)
305 mid = iparg(18,ng)
306 jmult = iparg(20,ng)
307 jhbe = iparg(23,ng)
308 jivf = iparg(24,ng)
309 jpor = iparg(27,ng)
310 jpla = iparg(29,ng)
311 jclose = iparg(33,ng)
312 irep = iparg(35,ng)
313 iint = iparg(36,ng)
314 jcvt = iparg(37,ng)
315 igtyp = iparg(38,ng)
316 icsen = iparg(39,ng)
317 israt = iparg(40,ng)
318 isrot = iparg(41,ng)
319 IF(iparg(28,ng) == 10) isrot = iparg(74,ng)
320 isorth = iparg(42,ng)
321 isorthg = isorth
322
323 ifailure = iparg(43,ng)
324
325 jsms = iparg(52,ng)
326C----
327 RETURN
328 END SUBROUTINE initbuf
329 END MODULE initbuf_mod
aeturb
subroutine aeturb(iparg, elbuf_tab, flux, val2, xe, ale_connect, ixs, ixq, pm, itask, nercvois, nesdvois, lercvois, lesdvois, lencom, matparam)
Definition aeturb.F:44
h3d_sol_skin_scalar1
subroutine h3d_sol_skin_scalar1(elbuf_tab, iparg, iparts, ixs, ixs10, skin_scalar, tag_skins6, t6gps, x, npf, tf, h3d_part, is_written_skin, keyword, nskin, mat_param)
Definition h3d_sol_skin_scalar1.F:42
h3d_sol_skin_tensor
subroutine h3d_sol_skin_tensor(elbuf_tab, skin_tensor, iparg, ixs, x, pm, iparts, ipm, igeo, ixs10, ixs16, ixs20, is_written_skin, h3d_part, info1, keyword, nskin, iad_elem, fr_elem, weight, tag_skins6)
Definition h3d_sol_skin_tensor.F:44
h3d_solid_tensor_1
subroutine h3d_solid_tensor_1(elbuf_tab, solid_tensor, iparg, itens, ixs, pm, el2fa, nbf, tens, epsdot, nbpart, x, iadg, ipart, ipartsp, iparts, isph3d, ipm, igeo, id_elem, ity_elem, is_written_solid, layer_input, ir_input, is_input, it_input, h3d_part, info1, keyword, ng, d, solid_tensor_corner, is_corner_data, ixs10, maxnnod, id)
Definition h3d_solid_tensor_1.F:52
h3d_solid_vector
subroutine h3d_solid_vector(elbuf_tab, solid_vector, ifunc, iparg, geo, ixq, ixs, ixtg, pm, el2fa, nbf, iadp, nbf_l, ehour, anim, nbpart, iadg, ipm, igeo, thke, err_thk_sh4, err_thk_sh3, invert, x, v, w, nv46, nercvois, nesdvois, lercvois, lesdvois, stack, id_elem, ity_elem, iparts, layer_input, ir_input, is_input, it_input, iuvar_input, h3d_part, is_written_solid, info1, keyword, fani_cell, h3d_data, multi_fvm)
Definition h3d_solid_vector.F:52
i9grd2
subroutine i9grd2(ierr, area, tstif, t, vol, ii, x, ixq, ix, iparg, pm, elbuf_tab, igrou, ieln)
Definition i9grd2.F:36
i9grd3
subroutine i9grd3(ierr, area, tstif, t, vol, ii, x, ixs, ix, iparg, pm, elbuf_tab, igrou, ieln)
Definition i9grd3.F:36
laser3
subroutine laser3(nl, ifunc, las, xlas, x, elbuf_tab, pm, iparg, ixq, tf, npf, wfext)
Definition laser2.F:272
laser2
subroutine laser2(nl, n1, n2, ifunc, iafunc, las, xlas, x, elbuf_tab, pm, wa, iparg, ixq, tf, npf, wfext)
Definition laser2.F:38
multi_evolve_global
subroutine multi_evolve_global(timestep, ng, elbuf_tab, iparg, itask, ixs, ixq, ixtg, multi_fvm, gravity, wfext)
Definition multi_evolve_global.F:34
multi_fvm2fem
subroutine multi_fvm2fem(timestep, elbuf_tab, itask, ixs, ixq, iparg, xgrid, accele, vel, wgrid, ms, msnf, veul, stifn, fsky, iads, fskym, condn, condnsky, multi_fvm, nodadt_therm)
Definition multi_fvm2fem.F:48
initbuf_mod
Definition initbuf.F:160
initbuf_mod::initbuf
subroutine initbuf(iparg, ng, mtn, llt, nft, iad, ity, npt, jale, ismstr, jeul, jtur, jthe, jlag, jmult, jhbe, jivf, mid, jpor, jcvt, jclose, jpla, irep, iint, igtyp, israt, isrot, icsen, isorth, isorthg, ifailure, jsms)
Definition initbuf.F:261
outp_s_s
subroutine outp_s_s(nbx, key, text, elbuf_tab, iparg, eani, ixs, ipm, dd_iad, sizloc, sizp0, siz_wr)
Definition outp_s_s.F:37
s4alesfem
subroutine s4alesfem(iparg, ixs, x, elbuf_tab, sfem_nodvar, s_sfem_nodvar, pm, iad_elem, fr_elem)
Definition s4alesfem.F:38
sponof2
subroutine sponof2(x, v, d, ms, spbuf, itab, kxsp, ixsp, nod2sp, npc, pld, iparg, elbuf_tab, isphio, vsphio, pm, ipart, ipartsp, igrsurf, lprtsph, lonfsph, iwa, mwa, wa, vnormal, sphveln, xdp, ibufssg_io, off_sph_r2r, wfext)
Definition sponof2.F:46
stat_s_auxf
subroutine stat_s_auxf(elbuf_tab, iparg, ipm, igeo, ixs, wa, wap0, iparts, ipart_state, stat_indxs, ipart, sizp0)
Definition stat_s_auxf.F:41
stat_s_ortho
subroutine stat_s_ortho(elbuf_tab, iparg, ipm, igeo, ixs, wa, wap0, iparts, ipart_state, stat_indxs, x, iglob, ipart, idel, sizp0)
Definition stat_s_ortho.F:42
stat_s_strsf
subroutine stat_s_strsf(elbuf_tab, iparg, ipm, igeo, ixs, wa, wap0, iparts, ipart_state, stat_indxs, x, iglob, ipart, sizp0)
Definition stat_s_strsf.F:42
tensgps_skin
subroutine tensgps_skin(elbuf_tab, func1, func2, iparg, ixs, ixs10, ixs16, ixs20, x, itagps, pm, tag_skin_nd)
Definition tensor6.F:4751