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,J,NIPMAX
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
241 nkey=i
242 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
jwl
subroutine jwl(iflag, nel, pm, off, eint, mu, mu2, espe, dvol, df, vnew, mat, psh, pnew, dpdm, dpde)
Definition jwl.F:32
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
tillotson
subroutine tillotson(iflag, nel, pm, off, eint, mu, mu2, espe, dvol, df, vnew, mat, psh, pnew, dpdm, dpde, vareos, nvareos)
Definition tillotson.F:32