OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
init_mlaw_tag.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!|| init_mlaw_tag ../starter/source/elements/elbuf_init/init_mlaw_tag.F
25!||--- called by ------------------------------------------------------
26!|| lectur ../starter/source/starter/lectur.F
27!||--- uses -----------------------------------------------------
28!|| elbuftag_mod ../starter/share/modules1/elbuftag_mod.F
29!||====================================================================
30 SUBROUTINE init_mlaw_tag(MLAW_TAG,MY_SIZE)
31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34 USE elbuftag_mod
35C-----------------------------------------------
36C I m p l i c i t T y p e s
37C-----------------------------------------------
38#include "implicit_f.inc"
39C-----------------------------------------------
40C D u m m y A r g u m e n t s
41C-----------------------------------------------
42 INTEGER, INTENT(in) :: MY_SIZE
43 TYPE(mlaw_tag_),DIMENSION(MY_SIZE), INTENT(inout) :: MLAW_TAG
44C-----------------------------------------------
45C L o c a l V a r i a b l e s
46C-----------------------------------------------
47 INTEGER I
48! -----------------------------------------------
49 DO i=1,my_size
50 mlaw_tag(i)%G_GAMA = 0
51 mlaw_tag(i)%G_EINT = 0
52 mlaw_tag(i)%G_EINS = 0
53 mlaw_tag(i)%G_RHO = 0
54 mlaw_tag(i)%G_DELTAX = 0
55 mlaw_tag(i)%G_TEMP = 0
56 mlaw_tag(i)%G_PLA = 0
57 mlaw_tag(i)%G_EPSD = 0
58 mlaw_tag(i)%G_TB = 0
59 mlaw_tag(i)%G_RK = 0
60 mlaw_tag(i)%G_RE = 0
61 mlaw_tag(i)%G_BFRAC = 0
62 mlaw_tag(i)%G_SIGI = 0
63 mlaw_tag(i)%G_EPSQ = 0
64 mlaw_tag(i)%G_IERR = 0
65 mlaw_tag(i)%G_DAMDL = 0
66 mlaw_tag(i)%G_SEQ = 0
67 mlaw_tag(i)%G_ABURN = 0
68 mlaw_tag(i)%G_MU = 0
69 mlaw_tag(i)%G_PLANL = 0
70 mlaw_tag(i)%G_EPSDNL = 0
71 mlaw_tag(i)%G_DMGSCL = 0
72 mlaw_tag(i)%G_TSAIWU = 0
73 mlaw_tag(i)%G_MAXFRAC = 0
74 mlaw_tag(i)%G_MAXEPS = 0
75 mlaw_tag(i)%G_DMG = 0
76 mlaw_tag(i)%G_TOTDEPL = 0
77 mlaw_tag(i)%G_TOTROT = 0
78 mlaw_tag(i)%G_DEP_IN_TENS = 0
79 mlaw_tag(i)%G_DEP_IN_COMP = 0
80 mlaw_tag(i)%G_ROT_IN_TENS = 0
81 mlaw_tag(i)%G_ROT_IN_COMP = 0
82 mlaw_tag(i)%G_POSX = 0
83 mlaw_tag(i)%G_POSY = 0
84 mlaw_tag(i)%G_POSZ = 0
85 mlaw_tag(i)%G_POSXX = 0
86 mlaw_tag(i)%G_POSYY = 0
87 mlaw_tag(i)%G_POSZZ = 0
88 mlaw_tag(i)%G_YIELD = 0
89 mlaw_tag(i)%G_RUPTCRIT = 0
90 mlaw_tag(i)%G_NUVAR = 0
91 mlaw_tag(i)%G_MASS = 0
92 mlaw_tag(i)%G_SKEW_ID = 0
93 mlaw_tag(i)%G_THK = 0
94c layer variables
95c
96 mlaw_tag(i)%LY_DIRA = 0
97c
98c local variables (per integration point)
99c
100 mlaw_tag(i)%L_GAMA = 0
101 mlaw_tag(i)%L_EINT = 0
102 mlaw_tag(i)%L_EINS = 0
103 mlaw_tag(i)%L_RHO = 0
104 mlaw_tag(i)%L_DP_DRHO = 0
105 mlaw_tag(i)%L_STRA = 0
106 mlaw_tag(i)%L_DELTAX = 0
107 mlaw_tag(i)%L_PLA = 0
108 mlaw_tag(i)%L_TB = 0
109 mlaw_tag(i)%L_RK = 0
110 mlaw_tag(i)%L_TEMP = 0
111 mlaw_tag(i)%L_EPSA = 0
112 mlaw_tag(i)%L_EPSD = 0
113 mlaw_tag(i)%L_EPSQ = 0
114 mlaw_tag(i)%L_EPSF = 0
115 mlaw_tag(i)%L_VK = 0
116 mlaw_tag(i)%L_SF = 0
117 mlaw_tag(i)%L_DAM = 0
118 mlaw_tag(i)%L_SIGL = 0
119 mlaw_tag(i)%L_SIGV = 0
120 mlaw_tag(i)%L_SIGA = 0
121 mlaw_tag(i)%L_SIGB = 0
122 mlaw_tag(i)%L_SIGC = 0
123 mlaw_tag(i)%L_SIGD = 0
124 mlaw_tag(i)%L_SIGF = 0
125 mlaw_tag(i)%L_RE = 0
126 mlaw_tag(i)%L_DSUM = 0
127 mlaw_tag(i)%L_ROB = 0
128 mlaw_tag(i)%L_DGLO = 0
129 mlaw_tag(i)%L_CRAK = 0
130 mlaw_tag(i)%L_ANG = 0
131 mlaw_tag(i)%L_EPE = 0
132 mlaw_tag(i)%L_EPC = 0
133 mlaw_tag(i)%L_XST = 0
134 mlaw_tag(i)%L_SSP = 0
135 mlaw_tag(i)%L_Z = 0
136 mlaw_tag(i)%L_FRAC = 0 ! pourcentage de phase (multimat)
137 mlaw_tag(i)%L_BFRAC = 0
138 mlaw_tag(i)%L_DMG = 0
139 mlaw_tag(i)%L_ABURN = 0
140 mlaw_tag(i)%L_MU = 0
141 mlaw_tag(i)%L_PLANL = 0
142 mlaw_tag(i)%L_EPSDNL = 0
143 mlaw_tag(i)%L_DMGSCL = 0
144 mlaw_tag(i)%L_TSAIWU = 0
145c--- uvar
146 mlaw_tag(i)%NUVAR = 0
147 mlaw_tag(i)%NVARTMP = 0
148 mlaw_tag(i)%L_SEQ = 0 ! equivalent stress (/= VON MISES)
149 mlaw_tag(i)%L_FAC_YLD = 0
150 ENDDO
151! -----------------------------------------------
152 RETURN
153 END SUBROUTINE init_mlaw_tag
init_mlaw_tag
subroutine init_mlaw_tag(mlaw_tag, my_size)
Definition init_mlaw_tag.F:31
elbuftag_mod
Definition elbuftag_mod.F:227
elbuftag_mod::mlaw_tag_
Definition elbuftag_mod.F:232