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: Initialization of vect01_c.inc variables
279C in the loops over groups.
280C Necessary for routines such as sbufad which dimension
281C the elementary buffer.
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 uses this 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
alefvm_main
subroutine alefvm_main(x, v, elbuf_tab, vr, ale_connect, iparg, ixs, nale, itask, nodft, nodlt, ipm, nv46, msnf)
Definition alefvm_main.F:49
h3d_sph_scalar
subroutine h3d_sph_scalar(elbuf_tab, sph_scalar, ifunc, iparg, kxsp, pm, ipart, ipm, id_elem, ipartsp, iuvar_input, h3d_part, is_written_sph, keyword, spbuf, id)
Definition h3d_sph_scalar.F:44
imp_glob_k
subroutine imp_glob_k(pm, geo, ipm, igeo, elbuf, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, ixtg1, ixs10, ixs20, ixs16, iparg, tf, npc, fr_wave, w16, bufmat, thke, bufgeo, rby, skew, x, wa, iddl, ndof, k_diag, k_lt, iadk, jdik, ikgeo, etag, elbuf_tab, stack, drape_sh4n, drape_sh3n, drapeg)
Definition imp_glob_k.F:63
imp_glob_k0
subroutine imp_glob_k0(pm, geo, ipm, igeo, elbuf, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, ixtg1, ixs10, ixs20, ixs16, iparg, tf, npc, fr_wave, w16, bufmat, thke, bufgeo, rby, skew, x, wa, iddl, ndof, k_diag, k_lt, iadk, jdik, ikgeo, etag, itask, elbuf_tab, igrouc, iprmes_el, stack, drape_sh4n, drape_sh3n, drapeg)
Definition imp_glob_k.F:3085
multi_update_global
subroutine multi_update_global(ng, elbuf_tab, iparg, itask, multi_fvm, partsav, iparts, gresav, igrth, grth, volnew, pred, timestep)
Definition multi_update_global.F:36
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_sp_t
subroutine outp_sp_t(key, text, elbuf_tab, iparg, dd_iad, sizloc, sizp0, siz_wr)
Definition outp_sp_t.F:35
rgwat3
subroutine rgwat3(x, nelw, ne, ixs, elbuf_tab, iparg, pm, ntag, temp, tstif, e, iad_elem, fr_elem)
Definition rgwat3.F:39
stat_s_eref
subroutine stat_s_eref(elbuf_tab, iparg, ipm, igeo, ixs, ixs10, ixs16, ixs20, x, dr, wa, wap0, iparts, ipart_state, stat_indxs, ipart, sizp0)
Definition stat_s_eref.F:44
stat_s_fail
subroutine stat_s_fail(elbuf_tab, iparg, ipm, igeo, ixs, wa, wap0, iparts, ipart_state, stat_indxs, ipart, sizp0, nummat, mat_param)
Definition stat_s_fail.F:43
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:43
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:43
thsol
subroutine thsol(elbuf_tab, nthgrp2, ithgrp, iparg, ithbuf, wa, ixs, x, ipm, pm, igeo, multi_fvm, v, w, itherm, numels, nummat, numgeo, numnod, sithbuf)
Definition thsol.F:45