OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
ini_prop_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_prop_vars ../starter/source/elements/elbuf_init/ini_prop_vars.F
25!||--- called by ------------------------------------------------------
26!|| hm_read_properties ../starter/source/properties/hm_read_properties.F
27!||--- uses -----------------------------------------------------
28!|| elbuftag_mod ../starter/share/modules1/elbuftag_mod.F
29!||====================================================================
30 SUBROUTINE ini_prop_vars(PROP_TAG)
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"
43C-----------------------------------------------
44C D u m m y A r g u m e n t s
45C-----------------------------------------------
46 TYPE(prop_tag_) ,TARGET ,DIMENSION(0:MAXPROP) :: PROP_TAG
47C-----------------------------------------------
48C L o c a l V a r i a b l e s
49C-----------------------------------------------
50 INTEGER IPROP
51 TYPE(prop_tag_) , POINTER :: PTAG
52C=======================================================================
53C Set default variables used in all property types
54C=======================================================================
55c----- Void property
56 ptag => prop_tag(0)
57c-----
58 ptag%G_OFF = 1
59 ptag%G_NOFF = 0
60 ptag%G_GAMA = 0
61 ptag%G_HOURG = 0
62 ptag%G_SIG = 0
63 ptag%G_STRA = 0
64 ptag%G_FOR = 0
65 ptag%G_MOM = 0
66 ptag%G_EINT = 0
67 ptag%G_EINS = 0
68 ptag%G_THK = 0
69 ptag%G_VOL = 0
70 ptag%G_QVIS = 0
71 ptag%G_FORPG = 0
72 ptag%G_MOMPG = 0
73C
74 ptag%G_FORPGPINCH = 0
75 ptag%G_MOMPGPINCH = 0
76 ptag%G_EPGPINCHXZ = 0
77 ptag%G_EPGPINCHYZ = 0
78 ptag%G_EPGPINCHZZ = 0
79C
80 ptag%G_STRPG = 0
81 ptag%G_FORTH = 0
82 ptag%G_EINTTH = 0
83 ptag%G_FILL = 0
84c layer variables
85 ptag%LY_DMG = 0
86 ptag%LY_GAMA = 0
87 ptag%LY_DIRA = 0
88 ptag%LY_DIRB = 0
89 ptag%LY_PLAPT = 0
90 ptag%LY_SIGPT = 0
91 ptag%LY_HOURG = 0
92c
93 ptag%L_OFF = 1
94 ptag%L_GAMA = 0
95 ptag%L_STRA = 0
96 ptag%L_SIG = 0
97 ptag%L_SIGPLY = 0
98 ptag%L_SIGL = 0
99 ptag%L_SIGD = 0
100 ptag%L_SIGV = 0
101 ptag%L_FOR = 0
102 ptag%L_MOM = 0
103 ptag%L_EINT = 0
104 ptag%L_EINS = 0
105 ptag%L_THK = 0
106 ptag%L_VOL = 0
107 ptag%L_QVIS = 0
108 ptag%NUVAR = 0
109 ptag%L_FORTH = 0
110 ptag%L_EINTTH = 0
111C
112 ptag%G_AREA = 0
113 ptag%G_SKEW = 0
114 ptag%G_LENGTH = 0
115 ptag%G_TOTDEPL= 0
116 ptag%G_TOTROT = 0
117 ptag%G_FOREP = 0
118 ptag%G_MOMEP = 0
119 ptag%G_DEP_IN_TENS = 0
120 ptag%G_DEP_IN_COMP = 0
121 ptag%G_ROT_IN_TENS = 0
122 ptag%G_ROT_IN_COMP = 0
123 ptag%G_POSX = 0
124 ptag%G_POSY = 0
125 ptag%G_POSZ = 0
126 ptag%G_POSXX = 0
127 ptag%G_POSYY = 0
128 ptag%G_POSZZ = 0
129 ptag%G_YIELD = 0
130 ptag%G_LENGTH_ERR = 0
131 ptag%G_DV = 0
132 ptag%G_DFS = 0
133 ptag%G_SKEW_ERR = 0
134 ptag%G_E6 = 0
135 ptag%G_RUPTCRIT = 0
136 ptag%G_MASS = 0
137 ptag%G_V_REPCVT = 0
138 ptag%G_VR_REPCVT = 0
139 ptag%G_NUVAR = 0
140 ptag%G_NUVARN = 0
141 ptag%G_DEFINI = 0
142 ptag%G_FORINI = 0
143 ptag%G_INIFRIC = 0
144 ptag%G_SKEW_ID = 0
145c
146 DO iprop = 1,maxprop
147 ptag => prop_tag(iprop)
148c global variables - scalars
149 ptag%G_OFF = 1
150 ptag%G_NOFF = 0
151 ptag%G_GAMA = 0
152 ptag%G_HOURG = 0
153 ptag%G_SMSTR = 0
154 ptag%G_SIG = 0
155 ptag%G_FOR = 0
156 ptag%G_MOM = 0
157 ptag%G_EINT = 1
158 ptag%G_EINS = 0
159 ptag%G_THK = 0
160 ptag%G_VOL = 0
161 ptag%G_QVIS = 0
162 ptag%G_FORPG = 0
163 ptag%G_MOMPG = 0
164 ptag%G_STRA = 0
165C
166 ptag%G_FORPGPINCH = 0
167 ptag%G_MOMPGPINCH = 0
168 ptag%G_EPGPINCHXZ = 0
169 ptag%G_EPGPINCHYZ = 0
170 ptag%G_EPGPINCHZZ = 0
171C
172 ptag%G_STRPG = 0
173 ptag%G_FORTH = 0
174 ptag%G_EINTTH = 0
175 ptag%G_COR_NF = 0
176 ptag%G_COR_FR = 0
177 ptag%G_COR_XR = 0
178C - 1D - elem (TRUSS, BEAM, SPRING, NSTRAND)
179 ptag%G_AREA = 0
180 ptag%G_SKEW = 0
181 ptag%G_LENGTH = 0
182 ptag%G_TOTDEPL= 0
183 ptag%G_TOTROT = 0
184 ptag%G_FOREP = 0
185 ptag%G_MOMEP = 0
186 ptag%G_DEP_IN_TENS = 0
187 ptag%G_DEP_IN_COMP = 0
188 ptag%G_ROT_IN_TENS = 0
189 ptag%G_ROT_IN_COMP = 0
190 ptag%G_POSX = 0
191 ptag%G_POSY = 0
192 ptag%G_POSZ = 0
193 ptag%G_POSXX = 0
194 ptag%G_POSYY = 0
195 ptag%G_POSZZ = 0
196 ptag%G_YIELD = 0
197 ptag%G_LENGTH_ERR = 0
198 ptag%G_DV = 0
199 ptag%G_DFS = 0
200 ptag%G_SKEW_ERR = 0
201 ptag%G_E6 = 0
202 ptag%G_RUPTCRIT = 0
203 ptag%G_MASS = 0
204 ptag%G_V_REPCVT = 0
205 ptag%G_VR_REPCVT = 0
206 ptag%G_NUVAR = 0
207 ptag%G_NUVARN = 0
208 ptag%G_DEFINI = 0
209 ptag%G_FORINI = 0
210 ptag%G_INIFRIC = 0
211 ptag%G_SKEW_ID = 0
212c
213C---
214c layer variables
215 ptag%LY_DMG = 0
216 ptag%LY_GAMA = 0
217 ptag%LY_DIRA = 0
218 ptag%LY_DIRB = 0
219 ptag%LY_PLAPT = 0
220 ptag%LY_SIGPT = 0
221 ptag%LY_HOURG = 0
222c
223c--- local variables (per integration point)
224c
225 ptag%L_OFF = 1
226 ptag%L_GAMA = 0
227 ptag%L_STRA = 0
228 ptag%L_SIG = 0
229 ptag%L_SIGPLY = 0
230 ptag%L_SIGL = 0
231 ptag%L_SIGV = 0
232 ptag%L_SIGV = 0
233 ptag%L_FOR = 0
234 ptag%L_MOM = 0
235 ptag%L_EINT = 1 !
236 ptag%L_EINS = 0
237 ptag%L_THK = 0
238 ptag%L_VOL = 0
239 ptag%L_QVIS = 0
240 ptag%NUVAR = 0
241 ptag%L_FORTH = 0
242 ptag%L_EINTTH = 0
243 ptag%G_FILL = 0
244 ENDDO
245C-----------------------------------------------
246 RETURN
247 END SUBROUTINE ini_prop_vars
ini_prop_vars
subroutine ini_prop_vars(prop_tag)
Definition ini_prop_vars.F:31
elbuftag_mod
Definition elbuftag_mod.F:227
elbuftag_mod::prop_tag_
Definition elbuftag_mod.F:374