OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_noda_scalar.F File Reference
#include "implicit_f.inc"
#include "param_c.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine h3d_list_nodal_scalar (output, h3d_keyword_nodal_scalar, geo, nkey)

Function/Subroutine Documentation

◆ h3d_list_nodal_scalar()

subroutine h3d_list_nodal_scalar ( type(output_), intent(inout) output,
type (h3d_keyword), dimension(*) h3d_keyword_nodal_scalar,
geo,
integer, intent(inout) nkey )

Definition at line 32 of file h3d_list_noda_scalar.F.

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
my_real
#define my_real
Definition cppsort.cpp:32
h3d_mod
Definition h3d_mod.F:311
message_mod
Definition message_mod.F:1257