OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
zerovars_auto.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!|| zerovars_auto ../starter/source/elements/elbuf_init/zerovars_auto.F
25!||--- called by ------------------------------------------------------
26!|| elbuf_ini ../starter/source/elements/elbuf_init/elbuf_ini.F
27!||--- uses -----------------------------------------------------
28!|| elbuftag_mod ../starter/share/modules1/elbuftag_mod.F
29!||====================================================================
30 SUBROUTINE zerovars_auto(ELBUF_STR)
31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34 USE elbufdef_mod
35 USE elbuftag_mod
36C-----------------------------------------------
37C D u m m y A r g u m e n t s
38C-----------------------------------------------
39 TYPE(elbuf_struct_),TARGET :: ELBUF_STR
40C-----------------------------------------------
41C L o c a l V a r i a b l e s
42C-----------------------------------------------
43 INTEGER ILAY,NLAY,IXFEM,IAD
44 TYPE(buf_lay_) , POINTER :: BUFLY
45 TYPE(g_bufel_) , POINTER :: GBUF
46C=======================================================================
47 gbuf => elbuf_str%GBUF
48 iad = 0
49c
50 gbuf%G_NOFF = 0
51 iad = iad + 1
52 gbuf%G_IERR = 0
53 iad = iad + 1
54 gbuf%G_OFF = 0
55 iad = iad + 1
56 gbuf%G_GAMA = 0
57 iad = iad + 1
58 gbuf%G_SMSTR = 0
59 iad = iad + 1
60 gbuf%G_HOURG = 0
61 iad = iad + 1
62 gbuf%G_BFRAC = 0
63 iad = iad + 1
64 gbuf%G_EINT = 0
65 iad = iad + 1
66 gbuf%G_EINS = 0
67 iad = iad + 1
68 gbuf%G_RHO = 0
69 iad = iad + 1
70 gbuf%G_QVIS = 0
71 iad = iad + 1
72 gbuf%G_DELTAX= 0
73 iad = iad + 1
74 gbuf%G_VOL = 0
75 iad = iad + 1
76 gbuf%G_EPSD = 0
77 iad = iad + 1
78 gbuf%G_EPSQ = 0
79 iad = iad + 1
80 gbuf%G_PLA = 0
81 iad = iad + 1
82 gbuf%G_WPLA = 0
83 iad = iad + 1
84 gbuf%G_TEMP = 0
85 iad = iad + 1
86 gbuf%G_TB = 0
87 iad = iad + 1
88 gbuf%G_RK = 0
89 iad = iad + 1
90 gbuf%G_RE = 0
91 iad = iad + 1
92 gbuf%G_SIG = 0
93 iad = iad + 1
94 gbuf%G_FOR = 0
95 iad = iad + 1
96 gbuf%G_MOM = 0
97 iad = iad + 1
98 gbuf%G_THK = 0
99 iad = iad + 1
100 gbuf%G_TAG22 = 0
101 iad = iad + 1
102 gbuf%G_STRA = 0
103 iad = iad + 1
104 gbuf%G_SIGI = 0
105 iad = iad + 1
106 gbuf%G_DMG = 0
107 iad = iad + 1
108 gbuf%G_FORPG = 0
109 iad = iad + 1
110 gbuf%G_MOMPG = 0
111 iad = iad + 1
112C
113 gbuf%G_FORPGPINCH = 0
114 iad = iad + 1
115 gbuf%G_MOMPGPINCH = 0
116 iad = iad + 1
117 gbuf%G_EPGPINCHXZ = 0
118 iad = iad + 1
119 gbuf%G_EPGPINCHYZ = 0
120 iad = iad + 1
121 gbuf%G_EPGPINCHZZ = 0
122 iad = iad + 1
123C
124 gbuf%G_STRPG = 0
125 iad = iad + 1
126 gbuf%G_UELR = 0
127 iad = iad + 1
128 gbuf%G_UELR1 = 0
129 iad = iad + 1
130 gbuf%G_DAMDL = 0
131 iad = iad + 1
132 gbuf%G_FORTH = 0
133 iad = iad + 1
134 gbuf%G_EINTTH = 0
135 iad = iad + 1
136 gbuf%G_FILL = 0
137 iad = iad + 1
138 gbuf%G_SEQ = 0
139 iad = iad + 1
140 gbuf%G_STRW = 0
141 iad = iad + 1
142 gbuf%G_STRWPG = 0
143 iad = iad + 1
144 gbuf%G_THK_I = 0
145 iad = iad + 1
146 gbuf%G_JAC_I = 0
147 iad = iad + 1
148 gbuf%G_DT = 0
149 iad = iad + 1
150 gbuf%G_ISMS = 0
151 iad = iad + 1
152 gbuf%G_BPRELD = 0 ! Bolt preloading
153 iad = iad + 1
154 gbuf%G_ABURN = 0
155 iad = iad + 1
156 gbuf%G_MU = 0
157 iad = iad + 1
158 gbuf%G_PLANL = 0
159 iad = iad + 1
160 gbuf%G_EPSDNL = 0
161 iad = iad + 1
162 gbuf%G_DMGSCL = 0
163 iad = iad + 1
164 gbuf%G_TSAIWU = 0
165 iad = iad + 1
166 gbuf%G_TEMPG = 0
167 iad = iad + 1
168 gbuf%G_COR_NF = 0
169 iad = iad + 1
170 gbuf%G_COR_FR = 0
171 iad = iad + 1
172 gbuf%G_COR_XR = 0
173 iad = iad + 1
174 gbuf%G_MAXFRAC = 0
175 iad = iad + 1
176 gbuf%G_MAXEPS = 0
177 iad = iad + 1
178 gbuf%G_BETAORTH = 0
179 iad = iad + 1
180 gbuf%G_AMU = 0
181 iad = iad + 1
182 gbuf%G_EINT_DISTOR = 0
183 iad = iad + 1
184 gbuf%G_FOR_G = 0
185 iad = iad + 1
186 gbuf%G_FORPG_G = 0
187
188C 1-D elements (TRUSS, BEAM, SPRING, NSTRAND)
189 iad = iad + 1
190 gbuf%G_AREA = 0
191 iad = iad + 1
192 gbuf%G_SKEW = 0
193 iad = iad + 1
194 gbuf%G_LENGTH = 0
195 iad = iad + 1
196 gbuf%G_TOTDEPL = 0
197 iad = iad + 1
198 gbuf%G_TOTROT = 0
199 iad = iad + 1
200 gbuf%G_FOREP = 0
201 iad = iad + 1
202 gbuf%G_MOMEP = 0
203 iad = iad + 1
204 gbuf%G_DEP_IN_TENS = 0
205 iad = iad + 1
206 gbuf%G_DEP_IN_COMP = 0
207 iad = iad + 1
208 gbuf%G_ROT_IN_TENS = 0
209 iad = iad + 1
210 gbuf%G_ROT_IN_COMP = 0
211 iad = iad + 1
212 gbuf%G_POSX = 0
213 iad = iad + 1
214 gbuf%G_POSY = 0
215 iad = iad + 1
216 gbuf%G_POSZ = 0
217 iad = iad + 1
218 gbuf%G_POSXX = 0
219 iad = iad + 1
220 gbuf%G_POSYY = 0
221 iad = iad + 1
222 gbuf%G_POSZZ = 0
223 iad = iad + 1
224 gbuf%G_YIELD = 0
225 iad = iad + 1
226 gbuf%G_LENGTH_ERR = 0
227 iad = iad + 1
228 gbuf%G_DV = 0
229 iad = iad + 1
230 gbuf%G_DFS = 0
231 iad = iad + 1
232 gbuf%G_SKEW_ERR = 0
233 iad = iad + 1
234 gbuf%G_E6 = 0
235 iad = iad + 1
236 gbuf%G_RUPTCRIT = 0
237 iad = iad + 1
238 gbuf%G_MASS = 0
239 iad = iad + 1
240 gbuf%G_V_REPCVT = 0
241 iad = iad + 1
242 gbuf%G_VR_REPCVT = 0
243 iad = iad + 1
244 gbuf%G_NUVAR = 0
245 iad = iad + 1
246 gbuf%G_NUVARN = 0
247 iad = iad + 1
248 gbuf%G_DEFINI = 0
249 iad = iad + 1
250 gbuf%G_FORINI = 0
251 iad = iad + 1
252 gbuf%G_INIFRIC = 0
253 iad = iad + 1
254 gbuf%G_STRHG = 0
255 iad = iad + 1
256 gbuf%G_ETOTSH = 0
257 iad = iad + 1
258 gbuf%G_DT_PITER = 0
259 iad = iad + 1
260 gbuf%G_SKEW_ID = 0
261 iad = iad + 1
262 gbuf%G_GAMA_R = 0
263 iad = iad + 1
264 gbuf%G_YIELD_IN_COMP = 0
265 iad = iad + 1
266 gbuf%G_XXOLD_IN_COMP = 0
267C
268C seatbelts elements
269 iad = iad + 1
270 gbuf%G_SLIPRING_ID = 0
271 iad = iad + 1
272 gbuf%G_SLIPRING_FRAM_ID = 0
273 iad = iad + 1
274 gbuf%G_SLIPRING_STRAND = 0
275 iad = iad + 1
276 gbuf%G_RETRACTOR_ID = 0
277 iad = iad + 1
278 gbuf%G_RINGSLIP = 0
279 iad = iad + 1
280 gbuf%G_ADD_NODE = 0
281 iad = iad + 1
282 gbuf%G_UPDATE = 0
283 iad = iad + 1
284 gbuf%G_FRAM_FACTOR = 0
285 iad = iad + 1
286 gbuf%G_INTVAR = 0
287 iad = iad + 1
288 gbuf%G_IDT_TSH = 0
289 iad = iad + 1
290 gbuf%G_TM_YIELD=0
291 iad = iad + 1
292 gbuf%G_TM_SEQ =0
293 iad = iad + 1
294 gbuf%G_TM_EINT=0
295 iad = iad + 1
296 gbuf%G_TM_DMG =0
297 iad = iad + 1
298 gbuf%G_TM_SIG =0
299 iad = iad + 1
300 gbuf%G_TM_STRA=0
301 iad = iad + 1
302! shell offset
303 gbuf%G_SH_IOFFSET=0
304c---
305 iad = iad + 1
306 gbuf%NVAR_GLOB = iad
307C
308c---------------------
309 DO ilay = 1, elbuf_str%NLAY
310 bufly => elbuf_str%BUFLY(ilay)
311C
312 iad = 0
313c
314 bufly%L_OFF = 0
315 iad = iad + 1
316 bufly%L_GAMA = 0
317 iad = iad + 1
318 bufly%L_STRA = 0
319 iad = iad + 1
320 bufly%L_FRAC = 0
321 iad = iad + 1
322 bufly%L_BFRAC = 0
323 iad = iad + 1
324 bufly%L_EINT = 0
325 iad = iad + 1
326 bufly%L_EINS = 0
327 iad = iad + 1
328 bufly%L_RHO = 0
329 iad = iad + 1
330 bufly%L_DP_DRHO = 0
331 iad = iad + 1
332 bufly%L_QVIS = 0
333 iad = iad + 1
334 bufly%L_DELTAX = 0
335 iad = iad + 1
336 bufly%L_VOL = 0
337 iad = iad + 1
338 bufly%L_EPSA = 0
339 iad = iad + 1
340 bufly%L_EPSD = 0
341 iad = iad + 1
342 bufly%L_EPSQ = 0
343 iad = iad + 1
344 bufly%L_EPSF = 0
345 iad = iad + 1
346 bufly%L_PLA = 0
347 iad = iad + 1
348 bufly%L_WPLA = 0
349 iad = iad + 1
350 bufly%L_TEMP = 0
351 iad = iad + 1
352 bufly%L_TB = 0
353 iad = iad + 1
354 bufly%L_RK = 0
355 iad = iad + 1
356 bufly%L_RE = 0
357 iad = iad + 1
358 bufly%L_VK = 0
359 iad = iad + 1
360 bufly%L_SF = 0
361 iad = iad + 1
362 bufly%L_ROB = 0
363 iad = iad + 1
364 bufly%L_DAM = 0
365 iad = iad + 1
366 bufly%L_DSUM = 0
367 iad = iad + 1
368 bufly%L_DGLO = 0
369 iad = iad + 1
370 bufly%L_CRAK = 0
371 iad = iad + 1
372 bufly%L_ANG = 0
373 iad = iad + 1
374 bufly%L_EPE = 0
375 iad = iad + 1
376 bufly%L_EPC = 0
377 iad = iad + 1
378 bufly%L_XST = 0
379 iad = iad + 1
380 bufly%L_SSP = 0
381 iad = iad + 1
382 bufly%L_Z = 0
383 iad = iad + 1
384 bufly%L_VISC = 0
385 iad = iad + 1
386 bufly%L_SIGL = 0
387 iad = iad + 1
388 bufly%L_SIGV = 0
389 iad = iad + 1
390 bufly%L_SIGA = 0
391 iad = iad + 1
392 bufly%L_SIGB = 0
393 iad = iad + 1
394 bufly%L_SIGC = 0
395 iad = iad + 1
396 bufly%L_SIGD = 0
397 iad = iad + 1
398 bufly%L_SIGF = 0
399 iad = iad + 1
400 bufly%L_SIG = 0
401 iad = iad + 1
402 bufly%L_SIGPLY = 0
403 iad = iad + 1
404 bufly%L_FOR = 0
405 iad = iad + 1
406 bufly%L_MOM = 0
407 iad = iad + 1
408 bufly%L_THK = 0
409 iad = iad + 1
410 bufly%L_SMSTR = 0
411 iad = iad + 1
412 bufly%L_DMG = 0
413 iad = iad + 1
414 bufly%L_FORTH = 0
415 iad = iad + 1
416 bufly%L_EINTTH = 0
417 iad = iad + 1
418 bufly%L_SEQ = 0
419 iad = iad + 1
420 bufly%L_JAC_I = 0
421 iad = iad + 1
422 bufly%L_FAC_YLD= 0
423 iad = iad + 1
424 bufly%L_ABURN = 0
425 iad = iad + 1
426 bufly%L_MU = 0
427 iad = iad + 1
428 bufly%L_PLANL = 0
429 iad = iad + 1
430 bufly%L_EPSDNL = 0
431 iad = iad + 1
432 bufly%L_DMGSCL = 0
433 iad = iad + 1
434 bufly%L_TSAIWU = 0
435 iad = iad + 1
436 bufly%L_PIJ = 0
437 iad = iad + 1
438 bufly%L_VOL0DP = 0
439 iad = iad + 1
440c
441c---
442C nb of local variable
443 bufly%NVAR_LOC = iad
444c---
445 iad = 0
446 bufly%LY_DMG = 0
447 iad = iad + 1
448 bufly%LY_GAMA = 0
449 iad = iad + 1
450 bufly%LY_DIRA = 0
451 iad = iad + 1
452 bufly%LY_DIRB = 0
453 iad = iad + 1
454 bufly%LY_CRKDIR= 0
455 iad = iad + 1
456 bufly%LY_PLAPT = 0
457 iad = iad + 1
458 bufly%LY_SIGPT = 0
459 iad = iad + 1
460 bufly%LY_HOURG = 0
461 iad = iad + 1
462 bufly%LY_UELR = 0
463 iad = iad + 1
464 bufly%LY_UELR1 = 0
465 iad = iad + 1
466 bufly%LY_OFFPG = 0
467 iad = iad + 1
468 bufly%LY_OFF = 0
469 iad = iad + 1
470c---
471C nb of layer variable
472 bufly%NVAR_LAY = iad
473c---
474 ENDDO
475c-----------------------------------------------
476c
477 DO ilay = 1, elbuf_str%NINTLAY
478 iad = 0
479 elbuf_str%INTLAY(ilay)%NVAR_MAT = 0
480 iad = iad + 1
481 elbuf_str%INTLAY(ilay)%NVARTMP = 0
482 iad = iad + 1
483 elbuf_str%INTLAY(ilay)%NFAIL = 0
484 ENDDO
485c-----------------------------------------------
486 RETURN
487 END SUBROUTINE zerovars_auto
elbuftag_mod
Definition elbuftag_mod.F:227
zerovars_auto
subroutine zerovars_auto(elbuf_str)
Definition zerovars_auto.F:31