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(OUTPUT,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
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(output_), INTENT(INOUT) :: OUTPUT
52 TYPE (H3D_KEYWORD) H3D_KEYWORD_NODAL_SCALAR(*)
53 my_real geo(npropg,numgeo)
54 INTEGER, INTENT(INOUT) :: NKEY
55C-----------------------------------------------
56C L o c a l V a r i a b l e s
57C-----------------------------------------------
58 INTEGER I
59C=========================================================================
60 i = 0
61c-----------------------------------------------
62 i = i + 1
63 h3d_keyword_nodal_scalar(i)%KEY3 = 'MASS'
64 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Node Mass'
65c-----------------------------------------------
66 i = i + 1
67 h3d_keyword_nodal_scalar(i)%KEY3 = 'DT'
68 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Time Step'
69c-----------------------------------------------
70 i = i + 1
71 h3d_keyword_nodal_scalar(i)%KEY3 = 'DMASS'
72 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Mass Change'
73 h3d_keyword_nodal_scalar(i)%COMMENT = 'Nodal mass variation ( see time step control /DT/Eltyp/Iflag )'
74c-----------------------------------------------
75 i = i + 1
76 h3d_keyword_nodal_scalar(i)%KEY3 = 'P'
77 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Pressure'
78 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element pressure reported to node'
79c-----------------------------------------------
80 i = i + 1
81 h3d_keyword_nodal_scalar(i)%KEY3 = 'DENS'
82 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Density'
83 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element density reported to node'
84c-----------------------------------------------
85 i = i + 1
86 h3d_keyword_nodal_scalar(i)%KEY3 = 'ENER'
87 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Specific Energy'
88 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element specific energy reported to node'
89c-----------------------------------------------
90 i = i + 1
91 h3d_keyword_nodal_scalar(i)%KEY3 = 'TEMP'
92 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Temperature'
93c-----------------------------------------------
94 i = i + 1
95 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR1'
96 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 1'
97c-----------------------------------------------
98 i = i + 1
99 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR2'
100 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 2'
101c-----------------------------------------------
102 i = i + 1
103 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR3'
104 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 3'
105c-----------------------------------------------
106 i = i + 1
107 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR4'
108 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 4'
109c-----------------------------------------------
110 i = i + 1
111 h3d_keyword_nodal_scalar(i)%KEY3 = 'NVAR5'
112 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Variable 5'
113c-----------------------------------------------
114 i = i + 1
115 h3d_keyword_nodal_scalar(i)%KEY3 = 'DINER'
116 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Inertia Change'
117 h3d_keyword_nodal_scalar(i)%COMMENT = 'Output of added inertia per nodes'
118c-----------------------------------------------
119 i = i + 1
120 h3d_keyword_nodal_scalar(i)%KEY3 = 'FPOT'
121 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Potential'
122c-----------------------------------------------
123 i = i + 1
124 h3d_keyword_nodal_scalar(i)%KEY3 = 'NDMASS'
125 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Non Diagonal Mass Change'
126 h3d_keyword_nodal_scalar(i)%COMMENT = 'Non-dagonal mass variation (see time step control /DT/AMS)'
127c-----------------------------------------------
128 i = i + 1
129 h3d_keyword_nodal_scalar(i)%KEY3 = 'DAMA2/NORMAL'
130 h3d_keyword_nodal_scalar(i)%TEXT1 = '%damage(type2 interface) / Normal'
131c-----------------------------------------------
132 i = i + 1
133 h3d_keyword_nodal_scalar(i)%KEY3 = 'DAMA2/TANGENT'
134 h3d_keyword_nodal_scalar(i)%TEXT1 = '%damage(type2 interface) / Tangent'
135c-----------------------------------------------
136 i = i + 1
137 h3d_keyword_nodal_scalar(i)%KEY3 = 'SCHLI'
138 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Schlieren'
139c-----------------------------------------------
140 i = i + 1
141 h3d_keyword_nodal_scalar(i)%KEY3 = 'STIFR'
142 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Rotational Stiffness'
143c-----------------------------------------------
144 i = i + 1
145 h3d_keyword_nodal_scalar(i)%KEY3 = 'STIF'
146 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Stiffness'
147c-----------------------------------------------
148 i = i + 1
149 h3d_keyword_nodal_scalar(i)%KEY3 = 'VFRAC/1'
150 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 1'
151 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element volumetric fraction reported to node, used with LAW37 and LAW51'
152c-----------------------------------------------
153 i = i + 1
154 h3d_keyword_nodal_scalar(i)%KEY3 = 'VFRAC/2'
155 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 2'
156 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element volumetric fraction reported to node, used with LAW37 and LAW51'
157c-----------------------------------------------
158 i = i + 1
159 h3d_keyword_nodal_scalar(i)%KEY3 = 'VFRAC/3'
160 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 3'
161 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element volumetric fraction reported to node, used with LAW37 and LAW51'
162c-----------------------------------------------
163 i = i + 1
164 h3d_keyword_nodal_scalar(i)%KEY3 = 'VFRAC/4'
165 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 4'
166 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element volumetric fraction reported to node, used with LAW37 and LAW51'
167c-----------------------------------------------
168 i = i + 1
169 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVFRAC/1'
170 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 1'
171c-----------------------------------------------
172 i = i + 1
173 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVFRAC/2'
174 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 2'
175c-----------------------------------------------
176 i = i + 1
177 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVFRAC/3'
178 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 3'
179c-----------------------------------------------
180 i = i + 1
181 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVFRAC/4'
182 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumetric Fraction - 4'
183c-----------------------------------------------
184 i = i + 1
185 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVOL'
186 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Centroid New Volume'
187c-----------------------------------------------
188 i = i + 1
189 h3d_keyword_nodal_scalar(i)%KEY3 = 'ZVOLD'
190 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Centroid Old Volume'
191c-----------------------------------------------
192 i = i + 1
193 h3d_keyword_nodal_scalar(i)%KEY3 = 'GPS1/P'
194 h3d_keyword_nodal_scalar(i)%TEXT1 = 'GPS1 Pressure'
195 h3d_keyword_nodal_scalar(i)%COMMENT = 'mean pressure of elements connected to node'
196c-----------------------------------------------
197 i = i + 1
198 h3d_keyword_nodal_scalar(i)%KEY3 = 'GPS1/VONM'
199 h3d_keyword_nodal_scalar(i)%TEXT1 = 'GPS1 Von Mises'
200 h3d_keyword_nodal_scalar(i)%COMMENT = 'mean Von Mises of elements connected to node'
201c-----------------------------------------------
202 i = i + 1
203 h3d_keyword_nodal_scalar(i)%KEY3 = 'SKID_LINE'
204 h3d_keyword_nodal_scalar(i)%IS_INTER = 1
205 h3d_keyword_nodal_scalar(i)%IS_INTER_ALL = 1
206 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Skid Line For Interface '
207 h3d_keyword_nodal_scalar(i)%COMMENT = 'the ratio between Maximum tangential Force and S*Pmax/sqrt3'
208c-----------------------------------------------
209 i = i + 1
210 h3d_keyword_nodal_scalar(i)%KEY3 = 'SSP'
211 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Sound Speed'
212 h3d_keyword_nodal_scalar(i)%COMMENT = 'Element Sound Speed reported to node'
213c-----------------------------------------------
214 i = i + 1
215 h3d_keyword_nodal_scalar(i)%KEY3 = 'INTERNAL.ID'
216 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Internal identifier'
217c-----------------------------------------------
218 i = i + 1
219 h3d_keyword_nodal_scalar(i)%KEY3 = 'CSE_FRIC'
220 h3d_keyword_nodal_scalar(i)%IS_INTER = 1
221 h3d_keyword_nodal_scalar(i)%IS_INTER_ALL = 1
222 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Surface frictional contact energy for Interface'
223c-----------------------------------------------
224 i = i + 1
225 h3d_keyword_nodal_scalar(i)%KEY3 = 'CSE_FRICG'
226 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Surface frictional contact energy'
227 h3d_keyword_nodal_scalar(i)%COMMENT = 'Node Energy density (Sum of all contacts) '
228c-----------------------------------------------
229 i = i + 1
230 h3d_keyword_nodal_scalar(i)%KEY3 = 'VOL'
231 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal Volumes'
232 h3d_keyword_nodal_scalar(i)%COMMENT = 'Volume at element centroid (FVMBAG)'
233c-----------------------------------------------
234 i = i + 1
235 h3d_keyword_nodal_scalar(i)%KEY3 = 'PEXT'
236 h3d_keyword_nodal_scalar(i)%TEXT1 = 'Nodal External Pressure'
237 h3d_keyword_nodal_scalar(i)%COMMENT = 'Pressure Applied by load case'
238c-----------------------------------------------
239
240 nkey=i
241 END
my_real
#define my_real
Definition cppsort.cpp:32
h3d_list_nodal_scalar
subroutine h3d_list_nodal_scalar(output, h3d_keyword_nodal_scalar, geo, nkey)
Definition h3d_list_noda_scalar.F:33
h3d_mod
Definition h3d_mod.F:311
message_mod
Definition message_mod.F:1257