OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_sph_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_sph_scalar ../engine/source/output/h3d/input_list/h3d_list_sph_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!||====================================================================
31 SUBROUTINE h3d_list_sph_scalar(H3D_KEYWORD_SPH_SCALAR,GEO,IGEO,NKEY)
32C-----------------------------------------------
33C M o d u l e s
34C-----------------------------------------------
35 USE message_mod
36 USE h3d_mod
37C-----------------------------------------------
38C I m p l i c i t T y p e s
39C-----------------------------------------------
40#include "implicit_f.inc"
41C-----------------------------------------------
42C D u m m y A r g u m e n t s
43C-----------------------------------------------
44 TYPE (H3D_KEYWORD) H3D_KEYWORD_SPH_SCALAR(*)
45 my_real geo(npropg,numgeo)
46 INTEGER IGEO(NPROPGI,NUMGEO)
47 INTEGER, INTENT(INOUT) :: NKEY
48C-----------------------------------------------
49C C o m m o n B l o c k s
50C-----------------------------------------------
51#include "com04_c.inc"
52#include "param_c.inc"
53C-----------------------------------------------
54C L o c a l V a r i a b l e s
55C-----------------------------------------------
56 INTEGER I
57C-----------------------------------------------
58C S o u r c e L i n e s
59C-----------------------------------------------
60 i = 0
61c-----------------------------------------------
62 i = i + 1
63 h3d_keyword_sph_scalar(i)%KEY3 = 'MASS'
64 h3d_keyword_sph_scalar(i)%TEXT1 = 'Mass'
65c-----------------------------------------------
66 i = i + 1
67 h3d_keyword_sph_scalar(i)%KEY3 = 'DIAMETER'
68 h3d_keyword_sph_scalar(i)%TEXT1 = 'Diameter'
69c-----------------------------------------------
70 i = i + 1
71 h3d_keyword_sph_scalar(i)%KEY3 = 'EPSP'
72 h3d_keyword_sph_scalar(i)%TEXT1 = 'Plastic Strain'
73c-----------------------------------------------
74 i = i + 1
75 h3d_keyword_sph_scalar(i)%KEY3 = 'DENS'
76 h3d_keyword_sph_scalar(i)%TEXT1 = 'Density'
77c-----------------------------------------------
78 i = i + 1
79 h3d_keyword_sph_scalar(i)%KEY3 = 'ENER'
80 h3d_keyword_sph_scalar(i)%TEXT1 = 'Internal Energy per unit mass'
81c-----------------------------------------------
82 i = i + 1
83 h3d_keyword_sph_scalar(i)%KEY3 = 'temp'
84 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'temperature'
85c-----------------------------------------------
86 I = I + 1
87 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'p'
88 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'pressure'
89c-----------------------------------------------
90 I = I + 1
91 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'vonm'
92 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'von mises'
93c-----------------------------------------------
94 I = I + 1
95 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'k'
96 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'turbulent energy'
97c-----------------------------------------------
98 I = I + 1
99 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'tvis'
100 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'turbulent viscosity'
101c-----------------------------------------------
102 I = I + 1
103 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'vortx'
104 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'vorticity'
105c-----------------------------------------------
106 I = I + 1
107 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'dam1'
108 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'damage 1'
109c-----------------------------------------------
110 I = I + 1
111 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'dam2'
112 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'damage 2'
113c-----------------------------------------------
114 I = I + 1
115 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'dam3'
116 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'damage 3'
117c-----------------------------------------------
118 I = I + 1
119 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'sigx'
120 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'stress x'
121c-----------------------------------------------
122 I = I + 1
123 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'sigy'
124 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'stress y'
125c-----------------------------------------------
126 I = I + 1
127 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'sigz'
128 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'stress z'
129c-----------------------------------------------
130 I = I + 1
131 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'sigxy'
132 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'stress xy'
133c-----------------------------------------------
134 I = I + 1
135 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'sigyz'
136 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'stress yz'
137c-----------------------------------------------
138 I = I + 1
139 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'sigzx'
140 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'stress zx'
141c-----------------------------------------------
142 I = I + 1
143 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'user'
144 H3D_KEYWORD_SPH_SCALAR(I)%IS_UVAR = 1
145 H3D_KEYWORD_SPH_SCALAR(I)%IS_UVAR_ALL = 1
146 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'user var'
147c-----------------------------------------------
148 I = I + 1
149 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'hourglass'
150 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'hourglass energy'
151c-----------------------------------------------
152 I = I + 1
153 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'bfrac'
154 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'burn fraction'
155c-----------------------------------------------
156 I = I + 1
157 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'dama'
158 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'max damage'
159 H3D_KEYWORD_SPH_SCALAR(I)%COMMENT = 'maximum of damage over time and of all failure criteria acting in one material'
160c-----------------------------------------------
161 I = I + 1
162 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'domain'
163 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'domain'
164c-----------------------------------------------
165 I = I + 1
166 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'fill'
167 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'filling percentage'
168c-----------------------------------------------
169 I = I + 1
170 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'sigeq'
171 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'equiv stress'
172c-----------------------------------------------
173 I = I + 1
174 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'tdet'
175 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'detonation time'
176 H3D_KEYWORD_SPH_SCALAR(I)%COMMENT = 'only available for jwl eos or time controlled detonation'
177c-----------------------------------------------
178 I = I + 1
179 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'off'
180 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'element status'
181 H3D_KEYWORD_SPH_SCALAR(I)%COMMENT = '0.0:deleted >0.&<1.:under failure process 1.0:activated <0:standby'
182c-----------------------------------------------
183 I = I + 1
184 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'enth'
185 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'enthalpy'
186c-----------------------------------------------
187 I = I + 1
188 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'enthm'
189 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'enthalpy per unit mass'
190c-----------------------------------------------
191 I = I + 1
192 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'enthv'
193 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'enthalpy per unit volume'
194c-----------------------------------------------
195 I = I + 1
196 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'eint'
197 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'internal energy'
198c-----------------------------------------------
199 I = I + 1
200 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'eintm'
201 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'internal energy per unit mass'
202c-----------------------------------------------
203 I = I + 1
204 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'eintv'
205 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'internal energy per unit volume'
206c-----------------------------------------------
207 I = I + 1
208 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'group'
209 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'group identifier'
210c-----------------------------------------------
211 I = I + 1
212 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'internal.id'
213 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'internal identifier'
214c-----------------------------------------------
215 I = I + 1
216 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'local.id'
217 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'local identifier within the group'
218c-----------------------------------------------
219 I = I + 1
220 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'tillotson'
221 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'region identifier in p,v diagram'
222 H3D_KEYWORD_SPH_SCALAR(I)%COMMENT = '1:compressed, 2:expanded cold, 3:transition, 4:hot expansion'
223c-----------------------------------------------
224 I = I + 1
225 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'failure'
226 H3D_KEYWORD_SPH_SCALAR(I)%IS_ID = 1
227 H3D_KEYWORD_SPH_SCALAR(I)%IS_MODE = 1
228 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'failure'
229 H3D_KEYWORD_SPH_SCALAR(I)%COMMENT = 'damage of current failure criterion'
230c-----------------------------------------------
231 I = I + 1
232 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'neighbours'
233 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'number of neighbours'
234c-----------------------------------------------
235 I = I + 1
236 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'vstrain'
237 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'volumetric strain'
238 H3D_KEYWORD_SPH_SCALAR(I)%COMMENT = 'mu=rho/rho0-1'
239c-----------------------------------------------
240 I = I + 1
241 H3D_KEYWORD_SPH_SCALAR(I)%KEY3 = 'dt'
242 H3D_KEYWORD_SPH_SCALAR(I)%TEXT1 = 'time step'
243c-----------------------------------------------
244 NKEY=I
245 END
my_real
#define my_real
Definition cppsort.cpp:32
the
end diagonal values have been computed in the(sparse) matrix id.SOL
h3d_list_sph_scalar
subroutine h3d_list_sph_scalar(h3d_keyword_sph_scalar, geo, igeo, nkey)
Definition h3d_list_sph_scalar.F:32
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:311
message_mod
Definition message_mod.F:1257