OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
elbuftag_mod.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| elbuftag_mod ../starter/share/modules1/elbuftag_mod.F
25!||--- called by ------------------------------------------------------
26!|| ale_euler_init ../starter/source/materials/ale/ale_euler_init.F
27!|| deallocate_elbuf ../starter/source/elements/elbuf_init/deallocate_buffer.F
28!|| elbuf_ini ../starter/source/elements/elbuf_init/elbuf_ini.f
29!|| fill_buffer_51 ../starter/source/materials/mat/mat051/fill_buffer_51.F
30!|| fill_buffer_51_0 ../starter/source/materials/mat/mat051/fill_buffer_51_0.F
31!|| hm_prop_read21 ../starter/source/properties/thickshell/hm_read_prop21.F
32!|| hm_read_eos ../starter/source/materials/eos/hm_read_eos.F
33!|| hm_read_eos_compaction ../starter/source/materials/eos/hm_read_eos_compaction.F90
34!|| hm_read_eos_compaction2 ../starter/source/materials/eos/hm_read_eos_compaction2.F90
35!|| hm_read_eos_compaction_tab ../starter/source/materials/eos/hm_read_eos_compaction_tab.F90
36!|| hm_read_eos_powderburn ../starter/source/materials/eos/hm_read_eos_powderburn.F90
37!|| hm_read_eos_tillotson ../starter/source/materials/eos/hm_read_eos_tillotson.F
38!|| hm_read_fail ../starter/source/materials/fail/hm_read_fail.F
39!|| hm_read_fail_alter ../starter/source/materials/fail/windshield_alter/hm_read_fail_alter.F
40!|| hm_read_fail_chang ../starter/source/materials/fail/changchang/hm_read_fail_chang.F
41!|| hm_read_fail_composite ../starter/source/materials/fail/composite/hm_read_fail_composite.F90
42!|| hm_read_fail_connect ../starter/source/materials/fail/connect/hm_read_fail_connect.F
43!|| hm_read_fail_fld ../starter/source/materials/fail/fld/hm_read_fail_fld.F
44!|| hm_read_fail_gene1 ../starter/source/materials/fail/gene1/hm_read_fail_gene1.F
45!|| hm_read_fail_hashin ../starter/source/materials/fail/hashin/hm_read_fail_hashin.F
46!|| hm_read_fail_hoffman ../starter/source/materials/fail/hoffman/hm_read_fail_hoffman.F
47!|| hm_read_fail_lemaitre ../starter/source/materials/fail/lemaitre/hm_read_fail_lemaitre.F90
48!|| hm_read_fail_maxstrain ../starter/source/materials/fail/max_strain/hm_read_fail_maxstrain.F
49!|| hm_read_fail_nxt ../starter/source/materials/fail/nxt/hm_read_fail_nxt.F
50!|| hm_read_fail_orthstrain ../starter/source/materials/fail/orthstrain/hm_read_fail_orthstrain.F
51!|| hm_read_fail_puck ../starter/source/materials/fail/puck/hm_read_fail_puck.F
52!|| hm_read_fail_spalling ../starter/source/materials/fail/spalling/hm_read_fail_spalling.F90
53!|| hm_read_fail_tsaihill ../starter/source/materials/fail/tsaihill/hm_read_fail_tsaihill.F
54!|| hm_read_fail_tsaiwu ../starter/source/materials/fail/tsaiwu/hm_read_fail_tsaiwu.F
55!|| hm_read_inject1 ../starter/source/properties/injector/hm_read_inject1.F
56!|| hm_read_inject2 ../starter/source/properties/injector/hm_read_inject2.F
57!|| hm_read_inter_type10 ../starter/source/interfaces/int10/hm_read_inter_type10.F
58!|| hm_read_mat ../starter/source/materials/mat/hm_read_mat.F90
59!|| hm_read_mat00 ../starter/source/materials/mat/mat000/hm_read_mat00.F
60!|| hm_read_mat02 ../starter/source/materials/mat/mat002/hm_read_mat02.F
61!|| hm_read_mat03 ../starter/source/materials/mat/mat003/hm_read_mat03.F
62!|| hm_read_mat04 ../starter/source/materials/mat/mat004/hm_read_mat04.F
63!|| hm_read_mat05 ../starter/source/materials/mat/mat005/hm_read_mat05.F
64!|| hm_read_mat06 ../starter/source/materials/mat/mat006/hm_read_mat06.F
65!|| hm_read_mat06_keps ../starter/source/materials/mat/mat006/hm_read_mat06_keps.F
66!|| hm_read_mat10 ../starter/source/materials/mat/mat010/hm_read_mat10.F
67!|| hm_read_mat100 ../starter/source/materials/mat/mat100/hm_read_mat100.F
68!|| hm_read_mat102 ../starter/source/materials/mat/mat102/hm_read_mat102.F
69!|| hm_read_mat103 ../starter/source/materials/mat/mat103/hm_read_mat103.F
70!|| hm_read_mat104 ../starter/source/materials/mat/mat104/hm_read_mat104.F
71!|| hm_read_mat105 ../starter/source/materials/mat/mat105/hm_read_mat105.F90
72!|| hm_read_mat106 ../starter/source/materials/mat/mat106/hm_read_mat106.F
73!|| hm_read_mat107 ../starter/source/materials/mat/mat107/hm_read_mat107.F
74!|| hm_read_mat108 ../starter/source/materials/mat/mat108/hm_read_mat108.F
75!|| hm_read_mat109 ../starter/source/materials/mat/mat109/hm_read_mat109.F
76!|| hm_read_mat11 ../starter/source/materials/mat/mat011/hm_read_mat11.F
77!|| hm_read_mat110 ../starter/source/materials/mat/mat110/hm_read_mat110.F
78!|| hm_read_mat111 ../starter/source/materials/mat/mat111/hm_read_mat111.F
79!|| hm_read_mat112 ../starter/source/materials/mat/mat112/hm_read_mat112.f
80!|| hm_read_mat113 ../starter/source/materials/mat/mat113/hm_read_mat113.F
81!|| hm_read_mat114 ../starter/source/materials/mat/mat114/hm_read_mat114.F
82!|| hm_read_mat115 ../starter/source/materials/mat/mat115/hm_read_mat115.F
83!|| hm_read_mat116 ../starter/source/materials/mat/mat116/hm_read_mat116.F
84!|| hm_read_mat117 ../starter/source/materials/mat/mat117/hm_read_mat117.F
85!|| hm_read_mat119 ../starter/source/materials/mat/mat119/hm_read_mat119.F
86!|| hm_read_mat11_k_eps ../starter/source/materials/mat/mat011/hm_read_mat11_k_eps.F
87!|| hm_read_mat12 ../starter/source/materials/mat/mat012/hm_read_mat12.F
88!|| hm_read_mat120 ../starter/source/materials/mat/mat120/hm_read_mat120.F
89!|| hm_read_mat121 ../starter/source/materials/mat/mat121/hm_read_mat121.F
90!|| hm_read_mat122 ../starter/source/materials/mat/mat122/hm_read_mat122.F
91!|| hm_read_mat124 ../starter/source/materials/mat/mat124/hm_read_mat124.F
92!|| hm_read_mat125 ../starter/source/materials/mat/mat125/hm_read_mat125.F90
93!|| hm_read_mat126 ../starter/source/materials/mat/mat126/hm_read_mat126.F90
94!|| hm_read_mat127 ../starter/source/materials/mat/mat127/hm_read_mat127.F90
95!|| hm_read_mat128 ../starter/source/materials/mat/mat128/hm_read_mat128.F90
96!|| hm_read_mat129 ../starter/source/materials/mat/mat129/hm_read_mat129.F90
97!|| hm_read_mat13 ../starter/source/materials/mat/mat013/hm_read_mat13.F
98!|| hm_read_mat133 ../starter/source/materials/mat/mat133/hm_read_mat133.F90
99!|| hm_read_mat134 ../starter/source/materials/mat/mat134/hm_read_mat134.F90
100!|| hm_read_mat14 ../starter/source/materials/mat/mat014/hm_read_mat14.F
101!|| hm_read_mat15 ../starter/source/materials/mat/mat015/hm_read_mat15.F
102!|| hm_read_mat151 ../starter/source/materials/mat/mat151/hm_read_mat151.F
103!|| hm_read_mat158 ../starter/source/materials/mat/mat158/hm_read_mat158.F
104!|| hm_read_mat16 ../starter/source/materials/mat/mat016/hm_read_mat16.F
105!|| hm_read_mat163 ../starter/source/materials/mat/mat163/hm_read_mat163.F90
106!|| hm_read_mat169_arup ../starter/source/materials/mat/mat169/hm_read_mat169.F90
107!|| hm_read_mat18 ../starter/source/materials/mat/mat018/hm_read_mat18.F
108!|| hm_read_mat19 ../starter/source/materials/mat/mat019/hm_read_mat19.F
109!|| hm_read_mat190 ../starter/source/materials/mat/mat190/hm_read_mat190.F
110!|| hm_read_mat20 ../starter/source/materials/mat/mat020/hm_read_mat20.F
111!|| hm_read_mat21 ../starter/source/materials/mat/mat021/hm_read_mat21.F
112!|| hm_read_mat22 ../starter/source/materials/mat/mat022/hm_read_mat22.F
113!|| hm_read_mat23 ../starter/source/materials/mat/mat023/hm_read_mat23.F
114!|| hm_read_mat24 ../starter/source/materials/mat/mat024/hm_read_mat24.F
115!|| hm_read_mat25 ../starter/source/materials/mat/mat025/hm_read_mat25.F
116!|| hm_read_mat26 ../starter/source/materials/mat/mat026/hm_read_mat26.F
117!|| hm_read_mat27 ../starter/source/materials/mat/mat027/hm_read_mat27.F
118!|| hm_read_mat28 ../starter/source/materials/mat/mat028/hm_read_mat28.F
119!|| hm_read_mat32 ../starter/source/materials/mat/mat032/hm_read_mat32.F
120!|| hm_read_mat33 ../starter/source/materials/mat/mat033/hm_read_mat33.F
121!|| hm_read_mat34 ../starter/source/materials/mat/mat034/hm_read_mat34.F
122!|| hm_read_mat35 ../starter/source/materials/mat/mat035/hm_read_mat35.F
123!|| hm_read_mat36 ../starter/source/materials/mat/mat036/hm_read_mat36.F
124!|| hm_read_mat37 ../starter/source/materials/mat/mat037/hm_read_mat37.F
125!|| hm_read_mat38 ../starter/source/materials/mat/mat038/hm_read_mat38.F
126!|| hm_read_mat40 ../starter/source/materials/mat/mat040/hm_read_mat40.F
127!|| hm_read_mat41 ../starter/source/materials/mat/mat041/hm_read_mat41.F
128!|| hm_read_mat43 ../starter/source/materials/mat/mat043/hm_read_mat43.F
129!|| hm_read_mat44 ../starter/source/materials/mat/mat044/hm_read_mat44.F
130!|| hm_read_mat46 ../starter/source/materials/mat/mat046/hm_read_mat46.F
131!|| hm_read_mat48 ../starter/source/materials/mat/mat048/hm_read_mat48.F
132!|| hm_read_mat49 ../starter/source/materials/mat/mat049/hm_read_mat49.F
133!|| hm_read_mat50 ../starter/source/materials/mat/mat050/hm_read_mat50.F90
134!|| hm_read_mat51 ../starter/source/materials/mat/mat051/hm_read_mat51.F
135!|| hm_read_mat52 ../starter/source/materials/mat/mat052/hm_read_mat52.F
136!|| hm_read_mat53 ../starter/source/materials/mat/mat053/hm_read_mat53.F
137!|| hm_read_mat54 ../starter/source/materials/mat/mat054/hm_read_mat54.F
138!|| hm_read_mat57 ../starter/source/materials/mat/mat057/hm_read_mat57.F90
139!|| hm_read_mat58 ../starter/source/materials/mat/mat058/hm_read_mat58.F
140!|| hm_read_mat59 ../starter/source/materials/mat/mat059/hm_read_mat59.F
141!|| hm_read_mat60 ../starter/source/materials/mat/mat060/hm_read_mat60.F
142!|| hm_read_mat63 ../starter/source/materials/mat/mat063/hm_read_mat63.F
143!|| hm_read_mat64 ../starter/source/materials/mat/mat064/hm_read_mat64.F
144!|| hm_read_mat65 ../starter/source/materials/mat/mat065/hm_read_mat65.F
145!|| hm_read_mat66 ../starter/source/materials/mat/mat066/hm_read_mat66.F
146!|| hm_read_mat68 ../starter/source/materials/mat/mat068/hm_read_mat68.F
147!|| hm_read_mat69 ../starter/source/materials/mat/mat069/hm_read_mat69.F
148!|| hm_read_mat70 ../starter/source/materials/mat/mat070/hm_read_mat70.F
149!|| hm_read_mat71 ../starter/source/materials/mat/mat071/hm_read_mat71.F
150!|| hm_read_mat72 ../starter/source/materials/mat/mat072/hm_read_mat72.F
151!|| hm_read_mat73 ../starter/source/materials/mat/mat073/hm_read_mat73.F
152!|| hm_read_mat74 ../starter/source/materials/mat/mat074/hm_read_mat74.F
153!|| hm_read_mat75 ../starter/source/materials/mat/mat075/hm_read_mat75.F
154!|| hm_read_mat76 ../starter/source/materials/mat/mat076/hm_read_mat76.F
155!|| hm_read_mat77 ../starter/source/materials/mat/mat077/hm_read_mat77.F
156!|| hm_read_mat78 ../starter/source/materials/mat/mat078/hm_read_mat78.F
157!|| hm_read_mat79 ../starter/source/materials/mat/mat079/hm_read_mat79.F
158!|| hm_read_mat80 ../starter/source/materials/mat/mat080/hm_read_mat80.F
159!|| hm_read_mat81 ../starter/source/materials/mat/mat081/hm_read_mat81.F90
160!|| hm_read_mat83 ../starter/source/materials/mat/mat083/hm_read_mat83.F
161!|| hm_read_mat84 ../starter/source/materials/mat/mat084/hm_read_mat84.F
162!|| hm_read_mat87 ../starter/source/materials/mat/mat087/hm_read_mat87.F90
163!|| hm_read_mat88 ../starter/source/materials/mat/mat088/hm_read_mat88.F
164!|| hm_read_mat90 ../starter/source/materials/mat/mat090/hm_read_mat90.F
165!|| hm_read_mat92 ../starter/source/materials/mat/mat092/hm_read_mat92.F
166!|| hm_read_mat93 ../starter/source/materials/mat/mat093/hm_read_mat93.F
167!|| hm_read_mat94 ../starter/source/materials/mat/mat094/hm_read_mat94.F
168!|| hm_read_mat95 ../starter/source/materials/mat/mat095/hm_read_mat95.F
169!|| hm_read_mat97 ../starter/source/materials/mat/mat097/hm_read_mat97.F
170!|| hm_read_nonlocal ../starter/source/materials/nonlocal/hm_read_nonlocal.F
171!|| hm_read_part ../starter/source/model/assembling/hm_read_part.F
172!|| hm_read_prop0 ../starter/source/properties/void/hm_read_prop0.F
173!|| hm_read_prop01 ../starter/source/properties/shell/hm_read_prop01.F
174!|| hm_read_prop02 ../starter/source/properties/truss/hm_read_prop02.F
175!|| hm_read_prop03 ../starter/source/properties/beam/hm_read_prop03.F
176!|| hm_read_prop04 ../starter/source/properties/spring/hm_read_prop04.F
177!|| hm_read_prop06 ../starter/source/properties/solid/hm_read_prop06.F
178!|| hm_read_prop08 ../starter/source/properties/spring/hm_read_prop08.F
179!|| hm_read_prop09 ../starter/source/properties/shell/hm_read_prop09.F
180!|| hm_read_prop10 ../starter/source/properties/shell/hm_read_prop10.F
181!|| hm_read_prop11 ../starter/source/properties/shell/hm_read_prop11.F
182!|| hm_read_prop12 ../starter/source/properties/spring/hm_read_prop12.F
183!|| hm_read_prop13 ../starter/source/properties/spring/hm_read_prop13.F
184!|| hm_read_prop14 ../starter/source/properties/solid/hm_read_prop14.F
185!|| hm_read_prop14f ../starter/source/properties/solid/hm_read_prop14.F
186!|| hm_read_prop15 ../starter/source/properties/solid/hm_read_prop15.F
187!|| hm_read_prop16 ../starter/source/properties/shell/hm_read_prop16.F
188!|| hm_read_prop17 ../starter/source/properties/shell/hm_read_prop17.F
189!|| hm_read_prop18 ../starter/source/properties/beam/hm_read_prop18.F
190!|| hm_read_prop20 ../starter/source/properties/thickshell/hm_read_prop20.F
191!|| hm_read_prop22 ../starter/source/properties/thickshell/hm_read_prop22.F
192!|| hm_read_prop23 ../starter/source/properties/spring/hm_read_prop23.F
193!|| hm_read_prop25 ../starter/source/properties/spring/hm_read_prop25.F
194!|| hm_read_prop26 ../starter/source/properties/spring/hm_read_prop26.F
195!|| hm_read_prop27 ../starter/source/properties/spring/hm_read_prop27.F
196!|| hm_read_prop28 ../starter/source/properties/xelem/hm_read_prop28.F
197!|| hm_read_prop32 ../starter/source/properties/spring/hm_read_prop32.F
198!|| hm_read_prop33 ../starter/source/properties/spring/hm_read_prop33.F
199!|| hm_read_prop34 ../starter/source/properties/sph/hm_read_prop34.F
200!|| hm_read_prop35 ../starter/source/properties/spring/hm_read_prop35.F
201!|| hm_read_prop36 ../starter/source/properties/spring/hm_read_prop36.F
202!|| hm_read_prop43 ../starter/source/properties/solid/hm_read_prop43.F
203!|| hm_read_prop44 ../starter/source/properties/spring/hm_read_prop44.F
204!|| hm_read_prop45 ../starter/source/properties/spring/hm_read_prop45.F
205!|| hm_read_prop46 ../starter/source/properties/spring/hm_read_prop46.F
206!|| hm_read_prop51 ../starter/source/properties/shell/hm_read_prop51.F
207!|| hm_read_prop_generic ../starter/source/properties/hm_read_prop_generic.F
208!|| hm_read_prop_user ../starter/source/properties/user_spring_solid/hm_read_prop_user.F
209!|| hm_read_properties ../starter/source/properties/hm_read_properties.F
210!|| hm_read_stack ../starter/source/stack/hm_read_stack.F
211!|| hm_read_therm_stress ../starter/source/materials/therm/hm_read_therm_stress.F90
212!|| hm_read_visc ../starter/source/materials/visc/hm_read_visc.F
213!|| ini_eos_vars ../starter/source/elements/elbuf_init/ini_eos_vars.F
214!|| ini_mlaw_vars ../starter/source/elements/elbuf_init/ini_mlaw_vars.F
215!|| ini_prop_vars ../starter/source/elements/elbuf_init/ini_prop_vars.F
216!|| init_mlaw_tag ../starter/source/elements/elbuf_init/init_mlaw_tag.F
217!|| initvars_auto ../starter/source/elements/elbuf_init/initvars_auto.F
218!|| law104_upd ../starter/source/materials/mat/mat104/law104_upd.F
219!|| law36_upd ../starter/source/materials/mat/mat036/law36_upd.F
220!|| lecstack_ply ../starter/source/properties/composite_options/stack/lecstack_ply.F
221!|| lectur ../starter/source/starter/lectur.F
222!|| m20dcod ../starter/source/system/fsdcod.F
223!|| read_material_models ../starter/source/materials/read_material_models.F
224!|| updmat ../starter/source/materials/updmat.F
225!|| zerovars_auto ../starter/source/elements/elbuf_init/zerovars_auto.F
226!||====================================================================
227 MODULE elbuftag_mod
228c-----------------------------------------------------------------------
229c add here new variables used by material laws preceded by L_ or G_prefix
230c-----------------------------------------------------------------------
231c
232 TYPE mlaw_tag_ ! define element variables used by each material law
233 INTEGER :: g_gama !
234 INTEGER :: g_eint !
235 INTEGER :: g_eins !
236 INTEGER :: g_rho !
237 INTEGER :: g_deltax !
238 INTEGER :: g_temp !
239 INTEGER :: g_pla !
240 INTEGER :: g_epsd !
241 INTEGER :: g_tb ! Time Burn
242 INTEGER :: g_rk ! Turbulent Energy (K - kinetic)
243 INTEGER :: g_re ! Turbulent Dissipation (epsilon)
244 INTEGER :: g_bfrac ! Burn fraction law 5, 51, 41
245 INTEGER :: g_sigi
246 INTEGER :: G_EPSQ ! lo10 -51 Drucker-Prager
247 INTEGER :: g_ierr
248 INTEGER :: g_damdl
249 INTEGER :: g_seq ! equivalent stress (/= VON MISES)
250 INTEGER :: g_aburn ! Additional Burn Rate for (post)combustion : example : Miller's extension of JWL
251 INTEGER :: g_mu ! Additional Burn Rate for (post)combustion : example : Miller's extension of JWL
252 INTEGER :: g_maxfrac
253 INTEGER :: g_maxeps
254 INTEGER :: g_dmg !
255 INTEGER :: g_planl
256 INTEGER :: g_epsdnl
257 INTEGER :: g_dmgscl
258 INTEGER :: g_tsaiwu
259c for spring with mat
260 INTEGER :: g_totdepl
261 INTEGER :: g_totrot
262 INTEGER :: g_dep_in_tens ! DEPX
263 INTEGER :: G_DEP_IN_COMP ! DEPX2
264 INTEGER :: g_rot_in_tens ! RPX
265 INTEGER :: g_rot_in_comp ! RPX2
266 INTEGER :: g_posx
267 INTEGER :: g_posy
268 INTEGER :: g_posz
269 INTEGER :: g_posxx
270 INTEGER :: g_posyy
271 INTEGER :: g_poszz
272 INTEGER :: g_yield
273 INTEGER :: G_RUPTCRIT
274 INTEGER :: g_nuvar
275 INTEGER :: g_mass
276 INTEGER :: g_skew_id
277 INTEGER :: g_yield_in_comp ! Yield in compression
278 INTEGER :: g_xxold_in_comp ! Previous disp in compression
279c for seatbelt elements
280 INTEGER :: g_slipring_id
281 INTEGER :: g_slipring_fram_id
282 INTEGER :: g_slipring_strand
283 INTEGER :: g_retractor_id
284 INTEGER :: g_ringslip
285 INTEGER :: g_add_node
286 INTEGER :: g_update
287 INTEGER :: g_fram_factor
288 INTEGER :: g_intvar
289 INTEGER :: g_dfs
290c for cohesif solid material
291 INTEGER :: g_thk
292
293
294c layer variables
295c
296 INTEGER :: ly_dira
297c
298c local variables (per integration point)
299c
300 INTEGER :: l_gama
301 INTEGER :: l_eint
302 INTEGER :: l_eins
303 INTEGER :: l_rho
304 INTEGER :: l_dp_drho
305 INTEGER :: l_stra
306 INTEGER :: l_deltax
307 INTEGER :: l_pla
308 INTEGER :: l_tb
309 INTEGER :: l_rk
310 INTEGER :: l_temp
311 INTEGER :: l_epsa
312 INTEGER :: l_epsd
313 INTEGER :: l_epsq
314 INTEGER :: l_epsf
315 INTEGER :: l_vk
316 INTEGER :: l_sf
317 INTEGER :: l_dam
318 INTEGER :: l_sigl
319 INTEGER :: l_sigv
320 INTEGER :: l_siga
321 INTEGER :: l_sigb
322 INTEGER :: L_SIGC
323 INTEGER :: l_sigd
324 INTEGER :: l_sigf
325 INTEGER :: l_re
326 INTEGER :: l_dsum
327 INTEGER :: l_rob
328 INTEGER :: l_dglo
329 INTEGER :: l_crak
330 INTEGER :: l_ang
331 INTEGER :: l_epe
332 INTEGER :: l_epc
333 INTEGER :: l_xst
334 INTEGER :: l_ssp
335 INTEGER :: l_z
336 INTEGER :: l_frac ! pourcentage de phase (multimat)
337 INTEGER :: l_bfrac
338 INTEGER :: l_dmg
339 INTEGER :: l_aburn
340 INTEGER :: l_mu
341 INTEGER :: l_planl
342 INTEGER :: l_epsdnl
343 INTEGER :: l_dmgscl
344 INTEGER :: l_tsaiwu
345
346c--- uvar
347 INTEGER :: nuvar
348 INTEGER :: nvartmp
349 INTEGER :: l_seq ! equivalent stress (/= VON MISES)
350 INTEGER :: l_fac_yld
351 END TYPE mlaw_tag_
352
353 TYPE eos_tag_ ! define element variables used by each eos
354 INTEGER :: g_mu ! old mu (old rho) for reloading (compaction eos)
355 INTEGER :: g_tb ! explosive eos
356 INTEGER :: g_aburn ! afterburning
357 INTEGER :: g_bfrac ! burn fraction
358
359 INTEGER :: l_mu ! old mu (old rho) for reloading (compaction eos)
360 INTEGER :: l_tb ! explosive eos
361 INTEGER :: l_aburn ! afterburning
362 INTEGER :: l_bfrac ! burn fraction
363
364 INTEGER :: nvar ! EOS%VAR buffer size
365 INTEGER :: nvartmp ! EOS%VARTMP buffer size
366 END TYPE eos_tag_
367
368 !EOS PARAM
369 INTEGER,SAVE :: maxeos
370 DATA maxeos /22/ !Number of EOS types :'LINEAR', 'POLYNOMIAL', 'IDEAL-GAS' , etc ...
371
372
373C
374 TYPE prop_tag_ ! element buffer variables depending on property
375c global variables
376 INTEGER :: g_gama
377 INTEGER :: g_eint
378 INTEGER :: g_eins
379 INTEGER :: g_off
380 INTEGER :: g_noff
381 INTEGER :: g_hourg
382 INTEGER :: g_smstr
383 INTEGER :: g_sig
384 INTEGER :: g_stra
385 INTEGER :: g_for
386 INTEGER :: g_mom
387 INTEGER :: G_THK
388 INTEGER :: g_vol
389 INTEGER :: g_qvis
390 INTEGER :: g_forpg
391 INTEGER :: g_mompg
392C
393 INTEGER :: g_forpgpinch
394 INTEGER :: g_mompgpinch
395 INTEGER :: g_epgpinchxz
396 INTEGER :: g_epgpinchyz
397 INTEGER :: g_epgpinchzz
398C
399 INTEGER :: g_strpg
400 INTEGER :: g_forth
401 INTEGER :: g_eintth
402 INTEGER :: g_fill
403 INTEGER :: g_cor_nf
404 INTEGER :: g_cor_fr
405 INTEGER :: g_cor_xr
406 INTEGER :: g_betaorth
407C---
408C - 1D - elem buffer (TRUSS, BEAM, SPRING, NSTRAND)
409 INTEGER :: g_area
410 INTEGER :: g_skew
411 INTEGER :: g_length
412 INTEGER :: g_totdepl
413 INTEGER :: g_totrot
414 INTEGER :: g_forep
415 INTEGER :: g_momep
416 INTEGER :: g_dep_in_tens ! DEPX
417 INTEGER :: g_dep_in_comp ! DEPX2
418 INTEGER :: g_rot_in_tens ! RPX
419 INTEGER :: g_rot_in_comp ! RPX2
420 INTEGER :: g_posx
421 INTEGER :: g_posy
422 INTEGER :: g_posz
423 INTEGER :: g_posxx
424 INTEGER :: g_posyy
425 INTEGER :: G_POSZZ
426 INTEGER :: g_yield
427 INTEGER :: g_length_err
428 INTEGER :: G_DV ! filtrage des vitesses
429 INTEGER :: g_dfs ! dF = E*dF + F*dE
430 INTEGER :: g_skew_err
431 INTEGER :: g_e6
432 INTEGER :: g_ruptcrit
433 INTEGER :: g_mass
434 INTEGER :: g_v_repcvt
435 INTEGER :: g_vr_repcvt
436 INTEGER :: g_nuvar
437 INTEGER :: g_nuvarn
438 INTEGER :: g_inifric
439 INTEGER :: g_defini
440 INTEGER :: g_forini
441 INTEGER :: g_skew_id
442C---
443c layer variables
444 INTEGER :: ly_dmg
445 INTEGER :: ly_gama
446 INTEGER :: ly_dira
447 INTEGER :: ly_dirb
448 INTEGER :: ly_plapt
449 INTEGER :: ly_sigpt
450 INTEGER :: ly_hourg
451c local variables (per integration point)
452 INTEGER :: l_gama
453 INTEGER :: l_eint
454 INTEGER :: l_eins
455 INTEGER :: l_off
456 INTEGER :: l_stra
457 INTEGER :: l_sig
458 INTEGER :: l_sigply
459 INTEGER :: l_sigl
460 INTEGER :: l_sigd
461 INTEGER :: l_sigv
462 INTEGER :: l_for
463 INTEGER :: l_mom
464 INTEGER :: l_thk
465 INTEGER :: l_vol
466 INTEGER :: l_qvis
467 INTEGER :: l_forth
468 INTEGER :: l_eintth
469c--- uvar
470 INTEGER :: NUVAR
471 END TYPE prop_tag_
472C
473 TYPE fail_tag_
474 INTEGER :: lf_dam
475 INTEGER :: lf_dammx
476 INTEGER :: lf_damini
477 INTEGER :: lf_tdel
478 INTEGER :: lf_indx
479 INTEGER :: lf_off
480 INTEGER :: lf_dir
481 END TYPE fail_tag_
482c---------------
483 END MODULE elbuftag_mod
484
hm_read_mat112
subroutine hm_read_mat112(uparam, maxuparam, nuparam, nuvar, ntabl, mtag, parmat, unitab, pm, lsubmodel, israte, mat_id, titr, itable, maxtabl, nvartmp, matparam)
Definition hm_read_mat112.F:44
elbuftag_mod
Definition elbuftag_mod.F:227
elbuftag_mod::maxeos
integer, save maxeos
Definition elbuftag_mod.F:369
nvar
integer function nvar(text)
Definition nvar.F:32
elbuf_ini
subroutine elbuf_ini(elbuf_tab, mat_param, mlaw_tag, prop_tag, fail_tag, igeo, ipm, pm, iparg, ipart, ipartsp, ixs, ixq, ixc, ixtg, flag_xfem, ipartig3d, stack, igeo_stack, ixt, ixp, ixr, kxx, geo, eos_tag, istr_24, print_flag, defaults)
Definition elbuf_ini.F:45
starter
program starter
Definition starter.F:39
elbuftag_mod::eos_tag_
Definition elbuftag_mod.F:353
elbuftag_mod::fail_tag_
Definition elbuftag_mod.F:473
elbuftag_mod::mlaw_tag_
Definition elbuftag_mod.F:232
elbuftag_mod::prop_tag_
Definition elbuftag_mod.F:374