OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
ini_mlaw_vars.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!|| ini_mlaw_vars ../starter/source/elements/elbuf_init/ini_mlaw_vars.F
25!||--- called by ------------------------------------------------------
26!|| read_material_models ../starter/source/materials/read_material_models.F
27!||--- uses -----------------------------------------------------
28!|| elbuftag_mod ../starter/share/modules1/elbuftag_mod.F
29!||====================================================================
30 SUBROUTINE ini_mlaw_vars(MLAW_TAG ,NUMMAT)
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 C o m m o n B l o c k s
41C-----------------------------------------------
42#include "tablen_c.inc"
43#include "scr05_c.inc"
44C-----------------------------------------------
45C D u m m y A r g u m e n t s
46C-----------------------------------------------
47 INTEGER ,INTENT(IN) :: NUMMAT
48 TYPE(mlaw_tag_) ,TARGET ,DIMENSION(NUMMAT ) :: MLAW_TAG
49C-----------------------------------------------
50C L o c a l V a r i a b l e s
51C-----------------------------------------------
52 INTEGER IMAT,ILAW
53 TYPE(mlaw_tag_) , POINTER :: MTAG
54C=======================================================================
55C Set default variables used in all matarial laws
56C=======================================================================
57c attention, apres la lecture de mats, remtettre zero tout pour la loi 0 (void)
58
59 DO imat = 1,nummat
60 mtag => mlaw_tag(imat)
61c global variables - scalars
62 mtag%G_EINT = 1
63 mtag%G_EINS = 0
64 mtag%G_RHO = 0 ! G_RHO > 0 only for solids
65 mtag%G_DELTAX = 0
66 mtag%G_EPSD = 1
67 mtag%G_EPSQ = 0
68 mtag%G_PLA = 0
69 mtag%G_TEMP = 0
70 mtag%G_TB = 0
71 mtag%G_RE = 0
72 mtag%G_RK = 0
73 mtag%G_GAMA = 0
74 mtag%G_BFRAC = 0
75 mtag%G_SIGI = 0
76 mtag%G_IERR = 0
77 mtag%G_DAMDL = 0
78 mtag%G_SEQ = 0
79 mtag%G_ABURN = 0
80 mtag%G_MU = 0
81 mtag%G_PLANL = 0
82 mtag%G_EPSDNL = 0
83 mtag%G_DMGSCL = 0
84 mtag%G_TSAIWU = 0
85 mtag%G_MAXFRAC= 0
86 mtag%G_MAXEPS = 0
87 mtag%G_DMG = 0
88C
89 mtag%G_TOTDEPL = 0
90 mtag%G_TOTROT = 0
91 mtag%G_DEP_IN_TENS = 0
92 mtag%G_DEP_IN_COMP = 0
93 mtag%G_ROT_IN_TENS = 0
94 mtag%G_ROT_IN_COMP = 0
95 mtag%G_POSX = 0
96 mtag%G_POSY = 0
97 mtag%G_POSZ = 0
98 mtag%G_POSXX = 0
99 mtag%G_POSYY = 0
100 mtag%G_POSZZ = 0
101 mtag%G_YIELD = 0
102 mtag%G_RUPTCRIT = 0
103 mtag%G_NUVAR = 0
104 mtag%G_MASS = 0
105 mtag%G_SKEW_ID = 0
106 mtag%G_YIELD_IN_COMP = 0
107 mtag%G_XXOLD_IN_COMP = 0
108c---
109c for seatbelt elements
110c---
111 mtag%G_SLIPRING_ID = 0
112 mtag%G_SLIPRING_FRAM_ID = 0
113 mtag%G_SLIPRING_STRAND = 0
114 mtag%G_RETRACTOR_ID = 0
115 mtag%G_RINGSLIP = 0
116 mtag%G_ADD_NODE = 0
117 mtag%G_UPDATE = 0
118 mtag%G_FRAM_FACTOR = 0
119 mtag%G_INTVAR = 0
120
121c--- local variables (per layer)
122
123 mtag%LY_DIRA = 0
124c--- local variables (per integration point)
125
126 mtag%L_EINT = 1
127 mtag%L_EINS = 0
128 mtag%L_RHO = 0 ! L_RHO > 0 only for solids
129 mtag%L_DP_DRHO= 0
130 IF (iresp == 1) mtag%L_DP_DRHO= 1
131 mtag%L_DELTAX = 0
132 mtag%L_PLA = 0
133 mtag%L_TB = 0
134 mtag%L_RK = 0
135 mtag%L_STRA = 0
136 mtag%L_EPSA = 0
137 mtag%L_EPSD = 0
138 mtag%L_EPSQ = 0
139 mtag%L_EPSF = 0
140 mtag%L_SIGL = 0
141 mtag%L_SIGV = 0
142 mtag%L_SIGA = 0
143 mtag%L_SIGB = 0
144 mtag%L_SIGC = 0
145 mtag%L_SIGD = 0
146 mtag%L_SIGF = 0
147 mtag%L_TEMP = 0
148 mtag%L_RE = 0
149 mtag%L_VK = 0
150 mtag%L_SF = 0
151 mtag%L_ROB = 0
152 mtag%L_DAM = 0
153 mtag%L_DSUM = 0
154 mtag%L_DGLO = 0
155 mtag%L_CRAK = 0
156 mtag%L_ANG = 0
157 mtag%L_EPE = 0
158 mtag%L_EPC = 0
159 mtag%L_XST = 0
160 mtag%L_SSP = 0
161 mtag%L_Z = 0
162 mtag%L_GAMA = 0
163 mtag%L_FRAC = 0
164 mtag%L_BFRAC = 0
165 mtag%NUVAR = 0
166 mtag%NVARTMP = 0
167 mtag%L_DMG = 0
168 mtag%L_SEQ = 0
169 mtag%L_FAC_YLD= 0
170 mtag%L_ABURN = 0
171 mtag%L_MU = 0
172 mtag%L_PLANL = 0
173 mtag%L_EPSDNL = 0
174 mtag%L_DMGSCL = 0
175 mtag%L_TSAIWU = 0
176 mtag%G_THK = 0
177 ENDDO
178C-----------------------------------------------
179 RETURN
180 END SUBROUTINE ini_mlaw_vars
181
ini_mlaw_vars
subroutine ini_mlaw_vars(mlaw_tag, nummat)
Definition ini_mlaw_vars.F:31
elbuftag_mod
Definition elbuftag_mod.F:227
elbuftag_mod::mlaw_tag_
Definition elbuftag_mod.F:232