OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_shell_scalar.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!|| h3d_list_shell_scalar ../engine/source/output/h3d/input_list/h3d_list_shell_scalar.F
25!||--- called by ------------------------------------------------------
26!|| lech3d ../engine/source/output/h3d/h3d_build_fortran/lech3d.F
27!||--- uses -----------------------------------------------------
28!|| h3d_mod ../engine/share/modules/h3d_mod.F
29!|| message_mod ../engine/share/message_module/message_mod.F
30!|| multi_fvm_mod ../common_source/modules/ale/multi_fvm_mod.F90
31!|| stack_mod ../engine/share/modules/stack_mod.F
32!||====================================================================
33 SUBROUTINE h3d_list_shell_scalar(H3D_KEYWORD_SHELL_SCALAR,GEO,IGEO,MULTI_FVM,NKEY)
34C-----------------------------------------------
35C M o d u l e s
36C-----------------------------------------------
37 USE message_mod
38 USE h3d_mod
39 USE stack_mod
40 USE multi_fvm_mod
41C-----------------------------------------------
42C I m p l i c i t T y p e s
43C-----------------------------------------------
44#include "implicit_f.inc"
45C-----------------------------------------------
46C C o m m o n B l o c k s
47C-----------------------------------------------
48#include "param_c.inc"
49#include "com04_c.inc"
50C-----------------------------------------------
51C D u m m y A r g u m e n t s
52C-----------------------------------------------
53 TYPE (H3D_KEYWORD) H3D_KEYWORD_SHELL_SCALAR(*)
54 my_real geo(npropg,numgeo)
55 INTEGER IGEO(NPROPGI,NUMGEO)
56 TYPE(multi_fvm_struct), INTENT(IN) :: MULTI_FVM
57 INTEGER, INTENT(INOUT) :: NKEY
58C-----------------------------------------------
59C L o c a l V a r i a b l e s
60C-----------------------------------------------
61 INTEGER I,II,J,NIPMAX,IPLYMAX,CPTPLY,IPTMAX
62C=========================================================================
63 i = 0
64c-----------------------------------------------
65 i = i + 1
66 h3d_keyword_shell_scalar(i)%KEY3 = 'MASS'
67 h3d_keyword_shell_scalar(i)%TEXT1 = 'Mass'
68c-----------------------------------------------
69 i = i + 1
70 h3d_keyword_shell_scalar(i)%KEY3 = 'DENS'
71 h3d_keyword_shell_scalar(i)%TEXT1 = 'Density'
72c-----------------------------------------------
73 i = i + 1
74 h3d_keyword_shell_scalar(i)%KEY3 = 'ENER'
75 h3d_keyword_shell_scalar(i)%TEXT1 = 'Internal Energy per unit mass'
76c-----------------------------------------------
77 i = i + 1
78 h3d_keyword_shell_scalar(i)%KEY3 = 'EINTM'
79 h3d_keyword_shell_scalar(i)%TEXT1 = 'Internal Energy per unit mass'
80c-----------------------------------------------
81 i = i + 1
82 h3d_keyword_shell_scalar(i)%KEY3 = 'EINTV'
83 h3d_keyword_shell_scalar(i)%TEXT1 = 'Internal Energy per unit volume'
84c-----------------------------------------------
85 i = i + 1
86 h3d_keyword_shell_scalar(i)%KEY3 = 'EINT'
87 h3d_keyword_shell_scalar(i)%TEXT1 = 'Internal Energy'
88c-----------------------------------------------
89 i = i + 1
90 h3d_keyword_shell_scalar(i)%KEY3 = 'TEMP'
91 h3d_keyword_shell_scalar(i)%TEXT1 = 'Temperature'
92c-----------------------------------------------
93 i = i + 1
94 h3d_keyword_shell_scalar(i)%KEY3 = 'THICK'
95 h3d_keyword_shell_scalar(i)%TEXT1 = 'Thickness'
96c-----------------------------------------------
97 i = i + 1
98 h3d_keyword_shell_scalar(i)%KEY3 = 'P'
99 h3d_keyword_shell_scalar(i)%TEXT1 = 'Pressure'
100c-----------------------------------------------
101 i = i + 1
102 h3d_keyword_shell_scalar(i)%KEY3 = 'VONM'
103 h3d_keyword_shell_scalar(i)%TEXT1 = 'Von Mises'
104c-----------------------------------------------
105 i = i + 1
106 h3d_keyword_shell_scalar(i)%KEY3 = 'K'
107 h3d_keyword_shell_scalar(i)%TEXT1 = 'Turbulent Energy'
108 h3d_keyword_shell_scalar(i)%COMMENT =
109 .'specific for turbulent energy in cfd'
110c-----------------------------------------------
111 I = I + 1
112 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'tvis'
113 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'turbulent viscosity'
114 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'specific for turbulent viscosity in cfd'
115c-----------------------------------------------
116 I = I + 1
117 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vortx'
118 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'vorticity'
119c-----------------------------------------------
120 I = I + 1
121 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'dam1'
122 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
123 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
124 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
125 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
126 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
127 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
128 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'damage 1'
129 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'damage in material direction 1'
130c-----------------------------------------------
131 I = I + 1
132 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'dam2'
133 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
134 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
135 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
136 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
137 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
138 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
139 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'damage 2'
140 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'damage in material direction 2'
141c-----------------------------------------------
142 I = I + 1
143 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'dam3'
144 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
145 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
146 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
147 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
148 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
149 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
150 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'damage 3'
151 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'damage in material direction 3'
152c-----------------------------------------------
153 I = I + 1
154 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'sigx'
155 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'stress x'
156c-----------------------------------------------
157 I = I + 1
158 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'sigy'
159 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'stress y'
160c-----------------------------------------------
161 I = I + 1
162 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'sigz'
163 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'stress z'
164c-----------------------------------------------
165 I = I + 1
166 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'sigxy'
167 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'stress xy'
168c-----------------------------------------------
169 I = I + 1
170 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'sigyz'
171 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'stress yz'
172c-----------------------------------------------
173 I = I + 1
174 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'sigzx'
175 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'stress zx'
176c-----------------------------------------------
177 I = I + 1
178 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'user'
179 H3D_KEYWORD_SHELL_SCALAR(I)%IS_UVAR = 1
180 H3D_KEYWORD_SHELL_SCALAR(I)%IS_UVAR_ALL = 1
181 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
182 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
183 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
184 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
185 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
186 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
187 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'user var'
188c-----------------------------------------------
189 I = I + 1
190 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'tsaiwu'
191 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
192 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
193 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
194 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
195 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
196 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
197 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'tsai-wu criterion'
198c-----------------------------------------------
199 I = I + 1
200 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'hourglass'
201 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'hourglass energy per unit mass'
202c-----------------------------------------------
203 IF (MULTI_FVM%IS_USED) THEN
204c
205c Number of present material is dynamic for law151, hence create full list
206c of output keywords at runtime by looping over all present materials
207c
208 DO II = 1, MULTI_FVM%NBMAT
209c-----------------------------------------------
210 I = I + 1
211 WRITE(H3D_KEYWORD_SHELL_SCALAR(I)%KEY3, '(a9,i0)') 'm151vfrac', II
212 WRITE(H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1, '(a17,i0)') 'volume fraction ', II
213 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'volume fractions(for ale multi-material law151)'
214c-----------------------------------------------
215 I = I + 1
216 WRITE(H3D_KEYWORD_SHELL_SCALAR(I)%KEY3, '(a8,i0)') 'm151dens', II
217 WRITE(H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1, '(a8,i0)') 'density ', II
218 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'density(for ale multi-material law151)'
219c-----------------------------------------------
220 I = I + 1
221 WRITE(H3D_KEYWORD_SHELL_SCALAR(I)%KEY3, '(a8,i0)') 'm151ener', II
222 WRITE(H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1, '(a7,i0)') 'energy ', II
223 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'energy(for ale multi-material law151)'
224c-----------------------------------------------
225 I = I + 1
226 WRITE(H3D_KEYWORD_SHELL_SCALAR(I)%KEY3, '(a8,i0)') 'm151pres', II
227 WRITE(H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1, '(a10,i0)') 'pressure ', II
228 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'pressure(for ale multi-material law151)'
229c-----------------------------------------------
230 ENDDO
231c-----------------------------------------------
232 I = I + 1
233 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'enth'
234 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'enthalpy'
235c-----------------------------------------------
236 I = I + 1
237 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'enthm'
238 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'enthalpy per unit mass'
239c-----------------------------------------------
240 I = I + 1
241 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'enthv'
242 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'enthalpy per unit volume'
243c-----------------------------------------------
244 ENDIF ! MULTI_FVM%IS_USED
245c-----------------------------------------------
246 I = I + 1
247 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'epsd'
248 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'strain rate'
249 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'equivalent strain rate(only available in case of strain rate filtering)'
250c-----------------------------------------------
251 I = I + 1
252 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'epsp'
253 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
254 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
255 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
256 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
257 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
258 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
259 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'plastic strain '
260c-----------------------------------------------
261 I = I + 1
262 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'nl_epsd'
263 h3d_keyword_shell_scalar(i)%IS_IPT = 1
264 h3d_keyword_shell_scalar(i)%IS_IPT_ALL = 1
265 h3d_keyword_shell_scalar(i)%TEXT1 = 'Non-local Plastic Strain Rate'
266c-----------------------------------------------
267 i = i + 1
268 h3d_keyword_shell_scalar(i)%KEY3 = 'nl_epsp'
269 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
270 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
271 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'non-local plastic strain '
272c-----------------------------------------------
273 I = I + 1
274 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'fail'
275 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
276 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
277 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'nb of failed layers'
278 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT =
279 .'/prop/type10, type11, type17, type51, pcompp, /mat/law15 & law25(compsh)'
280c-----------------------------------------------
281 I = I + 1
282 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'crmas'
283 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'airbag crossing mass'
284c-----------------------------------------------
285 I = I + 1
286 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'crvel'
287 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'airbag crossing velocity'
288c-----------------------------------------------
289 I = I + 1
290 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/mass'
291 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - mass'
292c-----------------------------------------------
293 I = I + 1
294 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/pres'
295 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - pressure'
296c-----------------------------------------------
297 I = I + 1
298 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/momx'
299 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - fluid velocity x'
300c-----------------------------------------------
301 I = I + 1
302 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/momy'
303 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - fluid velocity y'
304c-----------------------------------------------
305 I = I + 1
306 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/momz'
307 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - fluid velocity z'
308c-----------------------------------------------
309 I = I + 1
310 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/dens'
311 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - density'
312c-----------------------------------------------
313 I = I + 1
314 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/ener'
315 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - energy'
316c-----------------------------------------------
317 I = I + 1
318 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/ssp'
319 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - sound speed'
320c-----------------------------------------------
321 I = I + 1
322 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/gama'
323 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - gama'
324c-----------------------------------------------
325 I = I + 1
326 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'aleba/visu'
327 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fvmbag - visu polyhedra'
328c-----------------------------------------------
329 I = I + 1
330 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'thin'
331 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = '%Thinning'
332c-----------------------------------------------
333 I = I + 1
334 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'error/thick'
335 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'estimated error on thickness'
336c-----------------------------------------------
337 I = I + 1
338 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'phi'
339 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
340 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
341 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
342 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
343 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
344 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
345 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'phi'
346 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT =
347 .'angle between element skew and direction 1 orthotropy'
348c-----------------------------------------------
349 I = I + 1
350 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'dama'
351 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
352 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
353 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
354 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
355 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
356 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
357 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'max damage'
358 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'maximum of damage over time and of all failure criteria acting in one material'
359c-----------------------------------------------
360 I = I + 1
361 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'failure'
362 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
363 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
364 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
365 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
366 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
367 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
368 H3D_KEYWORD_SHELL_SCALAR(I)%IS_ID = 1
369 H3D_KEYWORD_SHELL_SCALAR(I)%IS_MODE = 1
370 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'failure'
371 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'damage of current failure criterion'
372c-----------------------------------------------
373 I = I + 1
374 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'damini'
375 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
376 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
377 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
378 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
379 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
380 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
381 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'damage initiation'
382 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'damage initiation variable'
383c-----------------------------------------------
384 I = I + 1
385 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'dama/memb'
386 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'max damage membrane'
387c-----------------------------------------------
388 I = I + 1
389 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'damg'
390 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
391 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
392 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
393 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
394 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
395 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
396 H3D_KEYWORD_SHELL_SCALAR(I)%IS_ID = 1
397 H3D_KEYWORD_SHELL_SCALAR(I)%IS_MODE = 1
398 H3D_KEYWORD_SHELL_SCALAR(I)%IS_MODE_ALL = 1
399 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'damage'
400 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'damage variable from material law'
401c-----------------------------------------------
402 I = I + 1
403 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'damg/memb'
404 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'damage(membrane value)'
405c-----------------------------------------------
406 I = I + 1
407 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'nxtf'
408 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
409 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
410 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
411 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
412 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'nxt failure factor'
413c-----------------------------------------------
414 I = I + 1
415 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'nxtf/memb'
416 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'nxt failure factor membrane'
417c-----------------------------------------------
418 I = I + 1
419 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'tdel'
420 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'time deletion element'
421 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'output only for elements which are deleted, due to a /fail criterion.'
422c-----------------------------------------------
423 I = I + 1
424 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'ssp'
425 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'sound speed'
426 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'sound speed. only available with ale material laws'
427c-----------------------------------------------
428 I = I + 1
429 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'schlieren'
430 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'schlieren'
431 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'schlieren image(optical method widely used in cfd field). ale material laws'
432c-----------------------------------------------
433 I = I + 1
434 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'phi/memb'
435 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'phi membrane'
436c-----------------------------------------------
437 I = I + 1
438 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'domain'
439 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'domain'
440c-----------------------------------------------
441 I = I + 1
442 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'sigeq'
443 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'equiv stress'
444 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'equivalent stress, based on yield criteria used for the corresponding material'
445c-----------------------------------------------
446 I = I + 1
447 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'bulk'
448 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'artificial viscosity'
449c-----------------------------------------------
450 I = I + 1
451 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'tdet'
452 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'detonation time'
453c-----------------------------------------------
454 I = I + 1
455 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'bfrac'
456 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'burn fraction'
457c-----------------------------------------------
458 I = I + 1
459 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'dt'
460 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'time step'
461c-----------------------------------------------
462 I = I + 1
463 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'ams'
464 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'ams selection'
465c-----------------------------------------------
466 I = I + 1
467 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'alpha'
468 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
469 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
470 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'alpha'
471 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'shear angle - change of angle between two anisotropy directions'
472c-----------------------------------------------
473 I = I + 1
474 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'off'
475 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'element status'
476 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = '0.0:deleted >0.&<1.:under failure process 1.0:activated <0:standby'
477c-----------------------------------------------
478!to be moved in h3d_tria_scalar when implemented.
479 I = I + 1
480 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'mach'
481 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'mach number'
482 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'mach number. only available with ale material law 151'
483c-----------------------------------------------
484!to be moved in h3d_tria_scalar when implemented.
485 I = I + 1
486 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'color'
487 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'color function'
488 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'color function for multimaterial and multifluid ale laws'
489c-----------------------------------------------
490 I = I + 1
491 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'fldf/memb'
492 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fld failure factor membrane'
493c-----------------------------------------------
494 I = I + 1
495 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'fldf'
496 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fld failure factor'
497 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
498 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
499 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
500 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
501c-----------------------------------------------
502 I = I + 1
503 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'fldz/memb'
504 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fld zone index membrane'
505 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = '1:highwrinkle 2:compression 3:loosemetal 4:safezone 5:margintofail 6:failurezone'
506c-----------------------------------------------
507 I = I + 1
508 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'fldz'
509 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'fld zone index'
510 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
511 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
512 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
513 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
514 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = '1:highwrinkle 2:compression 3:loosemetal 4:safezone 5:margintofail 6:failurezone'
515c-----------------------------------------------
516 I = I + 1
517 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'hc_dsse_f/memb'
518 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'hc_dsse failure factor membrane'
519c-----------------------------------------------
520 I = I + 1
521 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'hc_dsse_f'
522 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'hc_dsse failure factor'
523 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
524 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
525 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
526 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
527 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
528 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
529c-----------------------------------------------
530 I = I + 1
531 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'hc_dsse_z/memb'
532 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'hc_dsse zone index membrane'
533 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = '1:below hc and dsse 2: above dsse and below hc 3: above hc and dsse'
534c-----------------------------------------------
535 I = I + 1
536 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'hc_dsse_z'
537 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'hc_dsse zone index'
538 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
539 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
540 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
541 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
542 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
543 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
544 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = '1:below hc and dsse 2: above dsse and below hc 3: above hc and dsse'
545c-----------------------------------------------
546 I = I + 1
547 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'wpla'
548 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
549 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
550 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
551 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
552 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
553 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
554 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'plastic work'
555c-----------------------------------------------
556 I = I + 1
557 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'mds'
558 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'mds'
559 H3D_KEYWORD_SHELL_SCALAR(I)%IS_MDSVAR = 1
560 H3D_KEYWORD_SHELL_SCALAR(I)%IS_MDSVAR_ALL = 1
561 H3D_KEYWORD_SHELL_SCALAR(I)%IS_MDSVAR_DEF = 1
562 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
563 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
564 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
565 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
566 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
567 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
568c-----------------------------------------------
569 I = I + 1
570 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'pext'
571 H3D_KEYWORD_SHELL_SCALAR(I)%IS_SKIN = 1
572 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'pressure outer'
573 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'external pressure on the skin of shell'
574c-----------------------------------------------
575 I = I + 1
576 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'group'
577 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'group identifier'
578c-----------------------------------------------
579 I = I + 1
580 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'internal.id'
581 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'internal identifier'
582c-----------------------------------------------
583 I = I + 1
584 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'local.id'
585 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'local identifier within the group'
586c-----------------------------------------------
587 I = I + 1
588 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'ener/tmax'
589 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'max of internal energy per unit mass'
590 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'max of internal energy per unit mass over time'
591c-----------------------------------------------
592 I = I + 1
593 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vonm/tmax'
594 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'max of von mises'
595 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'max of von mises stress over time&ipt'
596c-----------------------------------------------
597 I = I + 1
598 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'sigeq/tmax'
599 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
600 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
601 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
602 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
603 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
604 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
605 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'max of equiv stress'
606 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'max of equivalent stress over time&ipt'
607c-----------------------------------------------
608 I = I + 1
609 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'dama/tmax'
610 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER = 1
611 H3D_KEYWORD_SHELL_SCALAR(I)%IS_LAYER_ALL = 1
612 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT = 1
613 H3D_KEYWORD_SHELL_SCALAR(I)%IS_IPT_ALL = 1
614 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY = 1
615 H3D_KEYWORD_SHELL_SCALAR(I)%IS_PLY_ALL = 1
616 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'max of damage'
617 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'maximum of damage over time&ipt'
618c-----------------------------------------------
619 !2d solids (triangles)
620 I = I + 1
621 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'div(U)'
622 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'div(u)'
623 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'volumetric dilatation rate'
624c-----------------------------------------------
625c-----------------------------------------------
626 I = I + 1
627 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vstrain'
628 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'volumetric strain'
629 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'mu=rho/rho0-1'
630c-----------------------------------------------
631 I = I + 1
632 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vstrain/1'
633 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'volumetric strain 1'
634 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'mu=rho/rho0-1'
635c-----------------------------------------------
636 I = I + 1
637 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vstrain/2'
638 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'volumetric strain 2'
639 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'mu=rho/rho0-1'
640c-----------------------------------------------
641 I = I + 1
642 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vstrain/3'
643 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'volumetric strain 3'
644 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'mu=rho/rho0-1'
645c-----------------------------------------------
646 I = I + 1
647 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vstrain/4'
648 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'volumetric strain 4'
649 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'mu=rho/rho0-1'
650c-----------------------------------------------
651 I = I + 1
652 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vstrain/5'
653 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'volumetric strain 5'
654 H3D_KEYWORD_SHELL_SCALAR(I)%COMMENT = 'mu=rho/rho0-1'
655c-----------------------------------------------
656 I = I + 1
657 H3D_KEYWORD_SHELL_SCALAR(I)%KEY3 = 'vstrain/6'
658 H3D_KEYWORD_SHELL_SCALAR(I)%TEXT1 = 'volumetric strain 6'
659 h3d_keyword_shell_scalar(i)%COMMENT = 'mu=rho/rho0-1'
660c-----------------------------------------------
661 i = i + 1
662 h3d_keyword_shell_scalar(i)%KEY3 = 'VSTRAIN/7'
663 h3d_keyword_shell_scalar(i)%TEXT1 = 'Volumetric Strain 7'
664 h3d_keyword_shell_scalar(i)%COMMENT = 'mu=rho/rho0-1'
665c-----------------------------------------------
666 i = i + 1
667 h3d_keyword_shell_scalar(i)%KEY3 = 'VSTRAIN/8'
668 h3d_keyword_shell_scalar(i)%TEXT1 = 'Volumetric Strain 8'
669 h3d_keyword_shell_scalar(i)%COMMENT = 'mu=rho/rho0-1'
670c-----------------------------------------------
671 i = i + 1
672 h3d_keyword_shell_scalar(i)%KEY3 = 'VSTRAIN/9'
673 h3d_keyword_shell_scalar(i)%TEXT1 = 'Volumetric Strain 9'
674 h3d_keyword_shell_scalar(i)%COMMENT = 'mu=rho/rho0-1'
675c-----------------------------------------------
676 i = i + 1
677 h3d_keyword_shell_scalar(i)%KEY3 = 'VSTRAIN/10'
678 h3d_keyword_shell_scalar(i)%TEXT1 = 'Volumetric Strain 10'
679 h3d_keyword_shell_scalar(i)%COMMENT = 'mu=rho/rho0-1'
680c-----------------------------------------------
681
682 nkey=i
683 END
my_real
#define my_real
Definition cppsort.cpp:32
the
end diagonal values have been computed in the(sparse) matrix id.SOL
alpha
#define alpha
Definition eval.h:35
h3d_list_shell_scalar
subroutine h3d_list_shell_scalar(h3d_keyword_shell_scalar, geo, igeo, multi_fvm, nkey)
Definition h3d_list_shell_scalar.F:34
max
#define max(a, b)
Definition macros.h:21
id
initmumps id
Definition multiplerhs_example.m:4
for
for(i8=*sizetab-1;i8 >=0;i8--)
Definition mumps_common.c:91
h3d_mod
Definition h3d_mod.F:308
message_mod
Definition message_mod.F:1249
stack_mod
Definition stack_mod.F:72