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_jc ../starter/source/materials/mat/mat002/hm_read_mat02_jc.F90
61!|| hm_read_mat02_predef ../starter/source/materials/mat/mat002/hm_read_mat02_predef.F90
62!|| hm_read_mat02_zerilli ../starter/source/materials/mat/mat002/hm_read_mat02_zerilli.F90
63!|| hm_read_mat03 ../starter/source/materials/mat/mat003/hm_read_mat03.F
64!|| hm_read_mat04 ../starter/source/materials/mat/mat004/hm_read_mat04.F
65!|| hm_read_mat05 ../starter/source/materials/mat/mat005/hm_read_mat05.F
66!|| hm_read_mat06 ../starter/source/materials/mat/mat006/hm_read_mat06.F
67!|| hm_read_mat06_keps ../starter/source/materials/mat/mat006/hm_read_mat06_keps.F
68!|| hm_read_mat10 ../starter/source/materials/mat/mat010/hm_read_mat10.F
69!|| hm_read_mat100 ../starter/source/materials/mat/mat100/hm_read_mat100.F
70!|| hm_read_mat102 ../starter/source/materials/mat/mat102/hm_read_mat102.F
71!|| hm_read_mat103 ../starter/source/materials/mat/mat103/hm_read_mat103.F
72!|| hm_read_mat104 ../starter/source/materials/mat/mat104/hm_read_mat104.F
73!|| hm_read_mat105 ../starter/source/materials/mat/mat105/hm_read_mat105.F90
74!|| hm_read_mat106 ../starter/source/materials/mat/mat106/hm_read_mat106.F90
75!|| hm_read_mat107 ../starter/source/materials/mat/mat107/hm_read_mat107.F
76!|| hm_read_mat108 ../starter/source/materials/mat/mat108/hm_read_mat108.F
77!|| hm_read_mat109 ../starter/source/materials/mat/mat109/hm_read_mat109.F
78!|| hm_read_mat11 ../starter/source/materials/mat/mat011/hm_read_mat11.F
79!|| hm_read_mat110 ../starter/source/materials/mat/mat110/hm_read_mat110.F
80!|| hm_read_mat111 ../starter/source/materials/mat/mat111/hm_read_mat111.F
81!|| hm_read_mat112 ../starter/source/materials/mat/mat112/hm_read_mat112.F
82!|| hm_read_mat113 ../starter/source/materials/mat/mat113/hm_read_mat113.F
83!|| hm_read_mat114 ../starter/source/materials/mat/mat114/hm_read_mat114.F
84!|| hm_read_mat115 ../starter/source/materials/mat/mat115/hm_read_mat115.F
85!|| hm_read_mat116 ../starter/source/materials/mat/mat116/hm_read_mat116.F
86!|| hm_read_mat117 ../starter/source/materials/mat/mat117/hm_read_mat117.F
87!|| hm_read_mat119 ../starter/source/materials/mat/mat119/hm_read_mat119.F
88!|| hm_read_mat11_k_eps ../starter/source/materials/mat/mat011/hm_read_mat11_k_eps.F
89!|| hm_read_mat12 ../starter/source/materials/mat/mat012/hm_read_mat12.F
90!|| hm_read_mat120 ../starter/source/materials/mat/mat120/hm_read_mat120.F
91!|| hm_read_mat121 ../starter/source/materials/mat/mat121/hm_read_mat121.F
92!|| hm_read_mat122 ../starter/source/materials/mat/mat122/hm_read_mat122.F
93!|| hm_read_mat124 ../starter/source/materials/mat/mat124/hm_read_mat124.F
94!|| hm_read_mat125 ../starter/source/materials/mat/mat125/hm_read_mat125.F90
95!|| hm_read_mat126 ../starter/source/materials/mat/mat126/hm_read_mat126.F90
96!|| hm_read_mat127 ../starter/source/materials/mat/mat127/hm_read_mat127.F90
97!|| hm_read_mat128 ../starter/source/materials/mat/mat128/hm_read_mat128.F90
98!|| hm_read_mat129 ../starter/source/materials/mat/mat129/hm_read_mat129.F90
99!|| hm_read_mat13 ../starter/source/materials/mat/mat013/hm_read_mat13.F
100!|| hm_read_mat130 ../starter/source/materials/mat/mat130/hm_read_mat130.F90
101!|| hm_read_mat133 ../starter/source/materials/mat/mat133/hm_read_mat133.F90
102!|| hm_read_mat134 ../starter/source/materials/mat/mat134/hm_read_mat134.F90
103!|| hm_read_mat14 ../starter/source/materials/mat/mat014/hm_read_mat14.F
104!|| hm_read_mat15 ../starter/source/materials/mat/mat015/hm_read_mat15.F
105!|| hm_read_mat151 ../starter/source/materials/mat/mat151/hm_read_mat151.F
106!|| hm_read_mat158 ../starter/source/materials/mat/mat158/hm_read_mat158.F
107!|| hm_read_mat16 ../starter/source/materials/mat/mat016/hm_read_mat16.F
108!|| hm_read_mat163 ../starter/source/materials/mat/mat163/hm_read_mat163.F90
109!|| hm_read_mat169_arup ../starter/source/materials/mat/mat169/hm_read_mat169.F90
110!|| hm_read_mat18 ../starter/source/materials/mat/mat018/hm_read_mat18.F
111!|| hm_read_mat19 ../starter/source/materials/mat/mat019/hm_read_mat19.F
112!|| hm_read_mat190 ../starter/source/materials/mat/mat190/hm_read_mat190.F
113!|| hm_read_mat20 ../starter/source/materials/mat/mat020/hm_read_mat20.F
114!|| hm_read_mat21 ../starter/source/materials/mat/mat021/hm_read_mat21.F
115!|| hm_read_mat22 ../starter/source/materials/mat/mat022/hm_read_mat22.F
116!|| hm_read_mat23 ../starter/source/materials/mat/mat023/hm_read_mat23.F
117!|| hm_read_mat24 ../starter/source/materials/mat/mat024/hm_read_mat24.F
118!|| hm_read_mat25 ../starter/source/materials/mat/mat025/hm_read_mat25.F
119!|| hm_read_mat26 ../starter/source/materials/mat/mat026/hm_read_mat26.F
120!|| hm_read_mat27 ../starter/source/materials/mat/mat027/hm_read_mat27.F
121!|| hm_read_mat28 ../starter/source/materials/mat/mat028/hm_read_mat28.F
122!|| hm_read_mat32 ../starter/source/materials/mat/mat032/hm_read_mat32.F
123!|| hm_read_mat33 ../starter/source/materials/mat/mat033/hm_read_mat33.F
124!|| hm_read_mat34 ../starter/source/materials/mat/mat034/hm_read_mat34.F
125!|| hm_read_mat35 ../starter/source/materials/mat/mat035/hm_read_mat35.F
126!|| hm_read_mat36 ../starter/source/materials/mat/mat036/hm_read_mat36.F
127!|| hm_read_mat37 ../starter/source/materials/mat/mat037/hm_read_mat37.F
128!|| hm_read_mat38 ../starter/source/materials/mat/mat038/hm_read_mat38.F
129!|| hm_read_mat40 ../starter/source/materials/mat/mat040/hm_read_mat40.F
130!|| hm_read_mat41 ../starter/source/materials/mat/mat041/hm_read_mat41.F
131!|| hm_read_mat43 ../starter/source/materials/mat/mat043/hm_read_mat43.F
132!|| hm_read_mat44 ../starter/source/materials/mat/mat044/hm_read_mat44.F
133!|| hm_read_mat46 ../starter/source/materials/mat/mat046/hm_read_mat46.F
134!|| hm_read_mat48 ../starter/source/materials/mat/mat048/hm_read_mat48.F
135!|| hm_read_mat49 ../starter/source/materials/mat/mat049/hm_read_mat49.F
136!|| hm_read_mat50 ../starter/source/materials/mat/mat050/hm_read_mat50.F90
137!|| hm_read_mat51 ../starter/source/materials/mat/mat051/hm_read_mat51.F
138!|| hm_read_mat52 ../starter/source/materials/mat/mat052/hm_read_mat52.F
139!|| hm_read_mat53 ../starter/source/materials/mat/mat053/hm_read_mat53.F
140!|| hm_read_mat54 ../starter/source/materials/mat/mat054/hm_read_mat54.F
141!|| hm_read_mat57 ../starter/source/materials/mat/mat057/hm_read_mat57.F90
142!|| hm_read_mat58 ../starter/source/materials/mat/mat058/hm_read_mat58.F
143!|| hm_read_mat59 ../starter/source/materials/mat/mat059/hm_read_mat59.F
144!|| hm_read_mat60 ../starter/source/materials/mat/mat060/hm_read_mat60.F
145!|| hm_read_mat63 ../starter/source/materials/mat/mat063/hm_read_mat63.F
146!|| hm_read_mat64 ../starter/source/materials/mat/mat064/hm_read_mat64.F
147!|| hm_read_mat65 ../starter/source/materials/mat/mat065/hm_read_mat65.F
148!|| hm_read_mat66 ../starter/source/materials/mat/mat066/hm_read_mat66.F
149!|| hm_read_mat68 ../starter/source/materials/mat/mat068/hm_read_mat68.F
150!|| hm_read_mat69 ../starter/source/materials/mat/mat069/hm_read_mat69.F
151!|| hm_read_mat70 ../starter/source/materials/mat/mat070/hm_read_mat70.F
152!|| hm_read_mat71 ../starter/source/materials/mat/mat071/hm_read_mat71.F
153!|| hm_read_mat72 ../starter/source/materials/mat/mat072/hm_read_mat72.F
154!|| hm_read_mat73 ../starter/source/materials/mat/mat073/hm_read_mat73.F
155!|| hm_read_mat74 ../starter/source/materials/mat/mat074/hm_read_mat74.F
156!|| hm_read_mat75 ../starter/source/materials/mat/mat075/hm_read_mat75.F
157!|| hm_read_mat76 ../starter/source/materials/mat/mat076/hm_read_mat76.F
158!|| hm_read_mat77 ../starter/source/materials/mat/mat077/hm_read_mat77.F
159!|| hm_read_mat78 ../starter/source/materials/mat/mat078/hm_read_mat78.F
160!|| hm_read_mat79 ../starter/source/materials/mat/mat079/hm_read_mat79.F
161!|| hm_read_mat80 ../starter/source/materials/mat/mat080/hm_read_mat80.F
162!|| hm_read_mat81 ../starter/source/materials/mat/mat081/hm_read_mat81.F90
163!|| hm_read_mat83 ../starter/source/materials/mat/mat083/hm_read_mat83.F
164!|| hm_read_mat84 ../starter/source/materials/mat/mat084/hm_read_mat84.F
165!|| hm_read_mat87 ../starter/source/materials/mat/mat087/hm_read_mat87.F90
166!|| hm_read_mat88 ../starter/source/materials/mat/mat088/hm_read_mat88.F90
167!|| hm_read_mat90 ../starter/source/materials/mat/mat090/hm_read_mat90.F
168!|| hm_read_mat92 ../starter/source/materials/mat/mat092/hm_read_mat92.F
169!|| hm_read_mat93 ../starter/source/materials/mat/mat093/hm_read_mat93.F
170!|| hm_read_mat94 ../starter/source/materials/mat/mat094/hm_read_mat94.F
171!|| hm_read_mat95 ../starter/source/materials/mat/mat095/hm_read_mat95.F
172!|| hm_read_mat97 ../starter/source/materials/mat/mat097/hm_read_mat97.F
173!|| hm_read_nonlocal ../starter/source/materials/nonlocal/hm_read_nonlocal.F
174!|| hm_read_part ../starter/source/model/assembling/hm_read_part.F
175!|| hm_read_prop0 ../starter/source/properties/void/hm_read_prop0.F
176!|| hm_read_prop01 ../starter/source/properties/shell/hm_read_prop01.F
177!|| hm_read_prop02 ../starter/source/properties/truss/hm_read_prop02.F
178!|| hm_read_prop03 ../starter/source/properties/beam/hm_read_prop03.F
179!|| hm_read_prop04 ../starter/source/properties/spring/hm_read_prop04.F
180!|| hm_read_prop06 ../starter/source/properties/solid/hm_read_prop06.F
181!|| hm_read_prop08 ../starter/source/properties/spring/hm_read_prop08.F
182!|| hm_read_prop09 ../starter/source/properties/shell/hm_read_prop09.F
183!|| hm_read_prop10 ../starter/source/properties/shell/hm_read_prop10.F
184!|| hm_read_prop11 ../starter/source/properties/shell/hm_read_prop11.F
185!|| hm_read_prop12 ../starter/source/properties/spring/hm_read_prop12.F
186!|| hm_read_prop13 ../starter/source/properties/spring/hm_read_prop13.F
187!|| hm_read_prop14 ../starter/source/properties/solid/hm_read_prop14.F
188!|| hm_read_prop14f ../starter/source/properties/solid/hm_read_prop14.F
189!|| hm_read_prop15 ../starter/source/properties/solid/hm_read_prop15.F
190!|| hm_read_prop16 ../starter/source/properties/shell/hm_read_prop16.F
191!|| hm_read_prop17 ../starter/source/properties/shell/hm_read_prop17.F
192!|| hm_read_prop18 ../starter/source/properties/beam/hm_read_prop18.F
193!|| hm_read_prop20 ../starter/source/properties/thickshell/hm_read_prop20.F
194!|| hm_read_prop22 ../starter/source/properties/thickshell/hm_read_prop22.F
195!|| hm_read_prop23 ../starter/source/properties/spring/hm_read_prop23.F
196!|| hm_read_prop25 ../starter/source/properties/spring/hm_read_prop25.F
197!|| hm_read_prop26 ../starter/source/properties/spring/hm_read_prop26.F
198!|| hm_read_prop27 ../starter/source/properties/spring/hm_read_prop27.F
199!|| hm_read_prop28 ../starter/source/properties/xelem/hm_read_prop28.F
200!|| hm_read_prop32 ../starter/source/properties/spring/hm_read_prop32.F
201!|| hm_read_prop33 ../starter/source/properties/spring/hm_read_prop33.F
202!|| hm_read_prop34 ../starter/source/properties/sph/hm_read_prop34.F
203!|| hm_read_prop35 ../starter/source/properties/spring/hm_read_prop35.F
204!|| hm_read_prop36 ../starter/source/properties/spring/hm_read_prop36.F
205!|| hm_read_prop43 ../starter/source/properties/solid/hm_read_prop43.F
206!|| hm_read_prop44 ../starter/source/properties/spring/hm_read_prop44.F
207!|| hm_read_prop45 ../starter/source/properties/spring/hm_read_prop45.F
208!|| hm_read_prop46 ../starter/source/properties/spring/hm_read_prop46.F
209!|| hm_read_prop51 ../starter/source/properties/shell/hm_read_prop51.F
210!|| hm_read_prop_generic ../starter/source/properties/hm_read_prop_generic.F
211!|| hm_read_prop_user ../starter/source/properties/user_spring_solid/hm_read_prop_user.F
212!|| hm_read_properties ../starter/source/properties/hm_read_properties.F
213!|| hm_read_stack ../starter/source/stack/hm_read_stack.F
214!|| hm_read_therm_stress ../starter/source/materials/therm/hm_read_therm_stress.F90
215!|| hm_read_visc ../starter/source/materials/visc/hm_read_visc.F
216!|| ini_eos_vars ../starter/source/elements/elbuf_init/ini_eos_vars.F
217!|| ini_mlaw_vars ../starter/source/elements/elbuf_init/ini_mlaw_vars.F
218!|| ini_prop_vars ../starter/source/elements/elbuf_init/ini_prop_vars.F
219!|| init_mlaw_tag ../starter/source/elements/elbuf_init/init_mlaw_tag.F
220!|| initvars_auto ../starter/source/elements/elbuf_init/initvars_auto.F
221!|| law104_upd ../starter/source/materials/mat/mat104/law104_upd.F
222!|| law36_upd ../starter/source/materials/mat/mat036/law36_upd.F
223!|| lecstack_ply ../starter/source/properties/composite_options/stack/lecstack_ply.F
224!|| lectur ../starter/source/starter/lectur.F
225!|| m20dcod ../starter/source/system/fsdcod.F
226!|| read_material_models ../starter/source/materials/read_material_models.F
227!|| updmat ../starter/source/materials/updmat.F
228!|| zerovars_auto ../starter/source/elements/elbuf_init/zerovars_auto.F
229!||====================================================================
230 MODULE elbuftag_mod
231c-----------------------------------------------------------------------
232c add here new variables used by material laws preceded by L_ or G_prefix
233c-----------------------------------------------------------------------
234c
235 TYPE mlaw_tag_ ! define element variables used by each material law
236 INTEGER :: g_gama !
237 INTEGER :: g_eint !
238 INTEGER :: g_eins !
239 INTEGER :: g_rho !
240 INTEGER :: g_deltax !
241 INTEGER :: g_temp !
242 INTEGER :: g_pla !
243 INTEGER :: g_epsd !
244 INTEGER :: g_tb ! Time Burn
245 INTEGER :: g_rk ! Turbulent Energy (K - kinetic)
246 INTEGER :: g_re ! Turbulent dissipation (Epsilon)
247 INTEGER :: g_bfrac ! Burn fraction law 5, 51, 41
248 INTEGER :: g_sigi
249 INTEGER :: g_epsq ! lo10 -51 Drucker-Prager
250 INTEGER :: g_ierr
251 INTEGER :: g_damdl
252 INTEGER :: g_seq ! equivalent stress (/= VON MISES)
253 INTEGER :: g_aburn ! Additional Burn Rate for (post)combustion : example : Miller's extension of JWL
254 INTEGER :: g_mu ! Additional Burn Rate for (post)combustion : example : Miller's extension of JWL
255 INTEGER :: g_maxfrac
256 INTEGER :: g_maxeps
257 INTEGER :: g_dmg !
258 INTEGER :: g_planl
259 INTEGER :: g_epsdnl
260 INTEGER :: g_dmgscl
261 INTEGER :: g_tsaiwu
262c for spring with mat
263 INTEGER :: g_totdepl
264 INTEGER :: g_totrot
265 INTEGER :: g_dep_in_tens ! DEPX
266 INTEGER :: g_dep_in_comp ! DEPX2
267 INTEGER :: g_rot_in_tens ! RPX
268 INTEGER :: g_rot_in_comp ! RPX2
269 INTEGER :: g_posx
270 INTEGER :: g_posy
271 INTEGER :: g_posz
272 INTEGER :: g_posxx
273 INTEGER :: g_posyy
274 INTEGER :: g_poszz
275 INTEGER :: g_yield
276 INTEGER :: g_ruptcrit
277 INTEGER :: g_nuvar
278 INTEGER :: g_mass
279 INTEGER :: g_skew_id
280 INTEGER :: g_yield_in_comp ! Yield in compression
281 INTEGER :: g_xxold_in_comp ! Previous disp in compression
282c for seatbelt elements
283 INTEGER :: g_slipring_id
284 INTEGER :: g_slipring_fram_id
285 INTEGER :: g_slipring_strand
286 INTEGER :: g_retractor_id
287 INTEGER :: g_ringslip
288 INTEGER :: g_add_node
289 INTEGER :: g_update
290 INTEGER :: g_fram_factor
291 INTEGER :: g_intvar
292 INTEGER :: g_dfs
293c for cohesif solid material
294 INTEGER :: g_thk
295
296
297c layer variables
298c
299 INTEGER :: ly_dira
300c
301c local variables (per integration point)
302c
303 INTEGER :: l_gama
304 INTEGER :: l_eint
305 INTEGER :: l_eins
306 INTEGER :: l_rho
307 INTEGER :: l_dp_drho
308 INTEGER :: l_stra
309 INTEGER :: l_deltax
310 INTEGER :: l_pla
311 INTEGER :: l_tb
312 INTEGER :: l_rk
313 INTEGER :: l_temp
314 INTEGER :: l_epsa
315 INTEGER :: l_epsd
316 INTEGER :: l_epsq
317 INTEGER :: l_epsf
318 INTEGER :: l_vk
319 INTEGER :: l_sf
320 INTEGER :: l_dam
321 INTEGER :: l_sigl
322 INTEGER :: l_sigv
323 INTEGER :: l_siga
324 INTEGER :: l_sigb
325 INTEGER :: l_sigc
326 INTEGER :: l_sigd
327 INTEGER :: l_sigf
328 INTEGER :: l_re
329 INTEGER :: l_dsum
330 INTEGER :: l_rob
331 INTEGER :: l_dglo
332 INTEGER :: l_crak
333 INTEGER :: l_ang
334 INTEGER :: l_epe
335 INTEGER :: l_epc
336 INTEGER :: l_xst
337 INTEGER :: l_ssp
338 INTEGER :: l_z
339 INTEGER :: l_frac ! percentage of phase (multimat)
340 INTEGER :: l_bfrac
341 INTEGER :: l_dmg
342 INTEGER :: l_aburn
343 INTEGER :: l_mu
344 INTEGER :: l_planl
345 INTEGER :: l_epsdnl
346 INTEGER :: l_dmgscl
347 INTEGER :: l_tsaiwu
348
349c--- uvar
350 INTEGER :: nuvar
351 INTEGER :: nvartmp
352 INTEGER :: l_seq ! equivalent stress (/= VON MISES)
353 INTEGER :: l_fac_yld
354 END TYPE mlaw_tag_
355
356 TYPE eos_tag_ ! define element variables used by each eos
357 INTEGER :: g_mu ! old mu (old rho) for reloading (compaction eos)
358 INTEGER :: g_tb ! explosive eos
359 INTEGER :: g_aburn ! afterburning
360 INTEGER :: g_bfrac ! burn fraction
361
362 INTEGER :: l_mu ! old mu (old rho) for reloading (compaction eos)
363 INTEGER :: l_tb ! explosive eos
364 INTEGER :: l_aburn ! afterburning
365 INTEGER :: l_bfrac ! burn fraction
366
367 INTEGER :: nvar ! EOS%VAR buffer size
368 INTEGER :: nvartmp ! EOS%VARTMP buffer size
369 END TYPE eos_tag_
370
371 !EOS PARAM
372 INTEGER,SAVE :: maxeos
373 DATA maxeos /22/ !Number of EOS types :'LINEAR', 'POLYNOMIAL', 'IDEAL-GAS' , etc ...
374
375
376C
377 TYPE prop_tag_ ! element buffer variables depending on property
378c global variables
379 INTEGER :: g_gama
380 INTEGER :: g_eint
381 INTEGER :: g_eins
382 INTEGER :: g_off
383 INTEGER :: g_noff
384 INTEGER :: G_HOURG
385 INTEGER :: g_smstr
386 INTEGER :: g_sig
387 INTEGER :: g_stra
388 INTEGER :: g_for
389 INTEGER :: g_mom
390 INTEGER :: g_thk
391 INTEGER :: g_vol
392 INTEGER :: g_qvis
393 INTEGER :: g_forpg
394 INTEGER :: g_mompg
395C
396 INTEGER :: g_forpgpinch
397 INTEGER :: g_mompgpinch
398 INTEGER :: g_epgpinchxz
399 INTEGER :: g_epgpinchyz
400 INTEGER :: g_epgpinchzz
401C
402 INTEGER :: g_strpg
403 INTEGER :: g_forth
404 INTEGER :: g_eintth
405 INTEGER :: g_fill
406 INTEGER :: g_cor_nf
407 INTEGER :: g_cor_fr
408 INTEGER :: g_cor_xr
409 INTEGER :: g_betaorth
410C---
411C - 1D - elem buffer (TRUSS, BEAM, SPRING, NSTRAND)
412 INTEGER :: g_area
413 INTEGER :: g_skew
414 INTEGER :: g_length
415 INTEGER :: g_totdepl
416 INTEGER :: g_totrot
417 INTEGER :: g_forep
418 INTEGER :: g_momep
419 INTEGER :: g_dep_in_tens ! DEPX
420 INTEGER :: g_dep_in_comp ! DEPX2
421 INTEGER :: g_rot_in_tens ! RPX
422 INTEGER :: g_rot_in_comp ! RPX2
423 INTEGER :: g_posx
424 INTEGER :: g_posy
425 INTEGER :: g_posz
426 INTEGER :: g_posxx
427 INTEGER :: g_posyy
428 INTEGER :: g_poszz
429 INTEGER :: g_yield
430 INTEGER :: g_length_err
431 INTEGER :: g_dv ! filtering of velocitys
432 INTEGER :: g_dfs ! dF = E*dF + F*dE
433 INTEGER :: g_skew_err
434 INTEGER :: g_e6
435 INTEGER :: g_ruptcrit
436 INTEGER :: g_mass
437 INTEGER :: G_V_REPCVT
438 INTEGER :: g_vr_repcvt
439 INTEGER :: g_nuvar
440 INTEGER :: G_NUVARN
441 INTEGER :: g_inifric
442 INTEGER :: g_defini
443 INTEGER :: g_forini
444 INTEGER :: g_skew_id
445C---
446c layer variables
447 INTEGER :: ly_dmg
448 INTEGER :: ly_gama
449 INTEGER :: ly_dira
450 INTEGER :: ly_dirb
451 INTEGER :: ly_plapt
452 INTEGER :: ly_sigpt
453 INTEGER :: ly_hourg
454c local variables (per integration point)
455 INTEGER :: l_gama
456 INTEGER :: l_eint
457 INTEGER :: l_eins
458 INTEGER :: l_off
459 INTEGER :: l_stra
460 INTEGER :: l_sig
461 INTEGER :: l_sigply
462 INTEGER :: l_sigl
463 INTEGER :: l_sigd
464 INTEGER :: l_sigv
465 INTEGER :: l_for
466 INTEGER :: l_mom
467 INTEGER :: l_thk
468 INTEGER :: l_vol
469 INTEGER :: l_qvis
470 INTEGER :: l_forth
471 INTEGER :: L_EINTTH
472c--- uvar
473 INTEGER :: nuvar
474 END TYPE prop_tag_
475C
476 TYPE fail_tag_
477 INTEGER :: lf_dam
478 INTEGER :: lf_dammx
479 INTEGER :: lf_damini
480 INTEGER :: lf_tdel
481 INTEGER :: lf_indx
482 INTEGER :: lf_off
483 INTEGER :: lf_dir
484 END TYPE fail_tag_
485c---------------
486 END MODULE elbuftag_mod
487
elbuftag_mod
Definition elbuftag_mod.F:230
elbuftag_mod::maxeos
integer, save maxeos
Definition elbuftag_mod.F:372
nvar
integer function nvar(text)
Definition nvar.F:32
elbuftag_mod::eos_tag_
Definition elbuftag_mod.F:356
elbuftag_mod::fail_tag_
Definition elbuftag_mod.F:476
elbuftag_mod::mlaw_tag_
Definition elbuftag_mod.F:235
elbuftag_mod::prop_tag_
Definition elbuftag_mod.F:377