OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_noda_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_nodal_scalar ../engine/source/output/h3d/input_list/h3d_list_noda_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!|| output_mod ../common_source/modules/output/output_mod.F90
31!||====================================================================
32 SUBROUTINE h3d_list_nodal_scalar(H3D_KEYWORD_NODAL_SCALAR,GEO,NKEY)
33C-----------------------------------------------
34C M o d u l e s
35C-----------------------------------------------
36 USE message_mod
37 USE h3d_mod
38 USE output_mod , ONLY : noda_surf, noda_pext
39C-----------------------------------------------
40C I m p l i c i t T y p e s
41C-----------------------------------------------
42#include "implicit_f.inc"
43C-----------------------------------------------
44C C o m m o n B l o c k s
45C-----------------------------------------------
46#include "param_c.inc"
47#include "com04_c.inc"
48C-----------------------------------------------
49C D u m m y A r g u m e n t s
50C-----------------------------------------------
51 TYPE (H3D_KEYWORD) H3D_KEYWORD_NODAL_SCALAR(*)
52 my_real geo(npropg,numgeo)
53 INTEGER, INTENT(INOUT) :: NKEY
54C-----------------------------------------------
55C L o c a l V a r i a b l e s
56C-----------------------------------------------
57 INTEGER I,J,NIPMAX
58C=========================================================================
59 i = 0
60c-----------------------------------------------
61 i = i + 1
62 h3d_keyword_nodal_scalar(i)%KEY3 = 'MASS'
63 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Node Mass'
64c-----------------------------------------------
65 i = i + 1
66 h3d_keyword_nodal_scalar(i)%KEY3 = 'DT'
67 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Time Step'
68c-----------------------------------------------
69 i = i + 1
70 h3d_keyword_nodal_scalar(i)%KEY3 = 'DMASS'
71 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Mass Change'
72 h3d_keyword_nodal_scalar(i)%COMMENT = 'Nodal mass variation ( see time step control /DT/Eltyp/Iflag )'
73c-----------------------------------------------
74 i = i + 1
75 h3d_keyword_nodal_scalar(i)%KEY3 = 'P'
76 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Pressure'
77 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element pressure reported to node'
78c-----------------------------------------------
79 i = i + 1
80 h3d_keyword_nodal_scalar(i)%KEY3 = 'DENS'
81 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Density'
82 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element density reported to node'
83c-----------------------------------------------
84 i = i + 1
85 h3d_keyword_nodal_scalar(i)%KEY3 = 'ENER'
86 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Specific Energy'
87 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element specific energy reported to node'
88c-----------------------------------------------
89 i = i + 1
90 h3d_keyword_nodal_scalar(i)%KEY3 = 'TEMP'
91 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Temperature'
92c-----------------------------------------------
93 i = i + 1
94 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR1'
95 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 1'
96c-----------------------------------------------
97 i = i + 1
98 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR2'
99 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 2'
100c-----------------------------------------------
101 i = i + 1
102 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR3'
103 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 3'
104c-----------------------------------------------
105 i = i + 1
106 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR4'
107 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 4'
108c-----------------------------------------------
109 i = i + 1
110 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR5'
111 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 5'
112c-----------------------------------------------
113 i = i + 1
114 h3d_keyword_nodal_scalar(i)%KEY3 = 'DINER'
115 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Inertia Change'
116 h3d_keyword_nodal_scalar(i)%COMMENT = 'Output of added inertia per nodes'
117c-----------------------------------------------
118 i = i + 1
119 h3d_keyword_nodal_scalar(i)%KEY3 = 'FPOT'
120 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Potential'
121c-----------------------------------------------
122 i = i + 1
123 h3d_keyword_nodal_scalar(i)%KEY3 = 'NDMASS'
124 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Non Diagonal Mass Change'
125 h3d_keyword_nodal_scalar(i)%COMMENT = 'Non-dagonal mass variation (see time step control /DT/AMS)'
126c-----------------------------------------------
127 i = i + 1
128 h3d_keyword_nodal_scalar(i)%KEY3 = 'DAMA2/NORMAL'
129 h3d_keyword_nodal_scalar(i)%TEXT1 = '%damage(type2 interface) / Normal'
130c-----------------------------------------------
131 i = i + 1
132 h3d_keyword_nodal_scalar(i)%KEY3 = 'DAMA2/TANGENT'
133 h3d_keyword_nodal_scalar(i)%TEXT1 = '%damage(type2 interface) / Tangent'
134c-----------------------------------------------
135 i = i + 1
136 h3d_keyword_nodal_scalar(i)%KEY3 = 'SCHLI'
137 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Schlieren'
138c-----------------------------------------------
139 i = i + 1
140 h3d_keyword_nodal_scalar(i)%KEY3 = 'STIFR'
141 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Rotational Stiffness'
142c-----------------------------------------------
143 i = i + 1
144 h3d_keyword_nodal_scalar(i)%KEY3 = 'STIF'
145 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Stiffness'
146c-----------------------------------------------
147 i = i + 1
148 h3d_keyword_nodal_scalar(i)%KEY3 = 'VFRAC/1'
149 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 1'
150 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element volumetric fraction reported to node, used with LAW37 and LAW51'
151c-----------------------------------------------
152 i = i + 1
153 h3d_keyword_nodal_scalar(i)%KEY3 = 'VFRAC/2'
154 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 2'
155 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element volumetric fraction reported to node, used with LAW37 and LAW51'
156c-----------------------------------------------
157 i = i + 1
158 h3d_keyword_nodal_scalar(i)%KEY3 = 'VFRAC/3'
159 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 3'
160 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element volumetric fraction reported to node, used with LAW37 and LAW51'
161c-----------------------------------------------
162 i = i + 1
163 h3d_keyword_nodal_scalar(i)%KEY3 = 'VFRAC/4'
164 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 4'
165 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element volumetric fraction reported to node, used with LAW37 and LAW51'
166c-----------------------------------------------
167 i = i + 1
168 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVFRAC/1'
169 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 1'
170c-----------------------------------------------
171 i = i + 1
172 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVFRAC/2'
173 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 2'
174c-----------------------------------------------
175 i = i + 1
176 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVFRAC/3'
177 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 3'
178c-----------------------------------------------
179 i = i + 1
180 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVFRAC/4'
181 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 4'
182c-----------------------------------------------
183 i = i + 1
184 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVOL'
185 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Centroid New Volume'
186c-----------------------------------------------
187 i = i + 1
188 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVOLD'
189 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Centroid Old Volume'
190c-----------------------------------------------
191 i = i + 1
192 h3d_keyword_nodal_scalar(i)%KEY3 = 'GPS1/P'
193 h3d_keyword_nodal_scalar(i)%TEXT1 = 'GPS1 Pressure'
194 h3d_keyword_nodal_scalar(i)%COMMENT = 'mean pressure of elements connected to node'
195c-----------------------------------------------
196 i = i + 1
197 h3d_keyword_nodal_scalar(i)%KEY3 = 'GPS1/VONM'
198 h3d_keyword_nodal_scalar(i)%TEXT1 = 'GPS1 Von Mises'
199 h3d_keyword_nodal_scalar(i)%COMMENT = 'mean Von Mises of elements connected to node'
200c-----------------------------------------------
201 i = i + 1
202 h3d_keyword_nodal_scalar(i)%KEY3 = 'SKID_LINE'
203 h3d_keyword_nodal_scalar(i)%IS_INTER = 1
204 h3d_keyword_nodal_scalar(i)%IS_INTER_ALL = 1
205 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Skid Line For Interface '
206 h3d_keyword_nodal_scalar(i)%COMMENT = 'the ratio between maximum tangential force and s*pmax/sqrt3'
207c-----------------------------------------------
208 I = I + 1
209 H3D_KEYWORD_NODAL_SCALAR(I)%KEY3 = 'ssp'
210 H3D_KEYWORD_NODAL_SCALAR(I)%TEXT1 = 'nodal sound speed'
211 H3D_KEYWORD_NODAL_SCALAR(I)%COMMENT = 'element sound speed reported to node'
212c-----------------------------------------------
213 I = I + 1
214 H3D_KEYWORD_NODAL_SCALAR(I)%KEY3 = 'internal.id'
215 H3D_KEYWORD_NODAL_SCALAR(I)%TEXT1 = 'internal identifier'
216c-----------------------------------------------
217 I = I + 1
218 H3D_KEYWORD_NODAL_SCALAR(I)%KEY3 = 'cse_fric'
219 H3D_KEYWORD_NODAL_SCALAR(I)%IS_INTER = 1
220 H3D_KEYWORD_NODAL_SCALAR(I)%IS_INTER_ALL = 1
221 H3D_KEYWORD_NODAL_SCALAR(I)%TEXT1 = 'surface frictional contact energy for interface'
222c-----------------------------------------------
223 I = I + 1
224 H3D_KEYWORD_NODAL_SCALAR(I)%KEY3 = 'cse_fricg'
225 H3D_KEYWORD_NODAL_SCALAR(I)%TEXT1 = 'surface frictional contact energy'
226 H3D_KEYWORD_NODAL_SCALAR(I)%COMMENT = 'node energy density(sum of all contacts) '
227c-----------------------------------------------
228 I = I + 1
229 H3D_KEYWORD_NODAL_SCALAR(I)%KEY3 = 'vol'
230 H3D_KEYWORD_NODAL_SCALAR(I)%TEXT1 = 'nodal volumes'
231 H3D_KEYWORD_NODAL_SCALAR(I)%COMMENT = 'volume at element centroid(fvmbag)'
232c-----------------------------------------------
233 I = I + 1
234 H3D_KEYWORD_NODAL_SCALAR(I)%KEY3 = 'pext'
235 H3D_KEYWORD_NODAL_SCALAR(I)%TEXT1 = 'nodal External pressure'
236 H3D_KEYWORD_NODAL_SCALAR(I)%COMMENT = 'pressure applied by load case'
237c-----------------------------------------------
238
239 NKEY=I
240 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_nodal_scalar
subroutine h3d_list_nodal_scalar(h3d_keyword_nodal_scalar, geo, nkey)
Definition h3d_list_noda_scalar.F:33
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