OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_noda_vector.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_vector (h3d_keyword_nodal_vector, geo, nkey)

Function/Subroutine Documentation

◆ h3d_list_nodal_vector()

subroutine h3d_list_nodal_vector ( type (h3d_keyword), dimension(*) h3d_keyword_nodal_vector,
geo,
integer, intent(inout) nkey )

Definition at line 31 of file h3d_list_noda_vector.F.

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 C o m m o n B l o c k s
43C-----------------------------------------------
44#include "param_c.inc"
45#include "com04_c.inc"
46C-----------------------------------------------
47C D u m m y A r g u m e n t s
48C-----------------------------------------------
49 TYPE (H3D_KEYWORD) H3D_KEYWORD_NODAL_VECTOR(*)
50 my_real geo(npropg,numgeo)
51 INTEGER, INTENT(INOUT) :: NKEY
52C-----------------------------------------------
53C L o c a l V a r i a b l e s
54C-----------------------------------------------
55 INTEGER I,J,NIPMAX
56C=========================================================================
57 i = 0
58c-----------------------------------------------
59 i = i + 1
60 h3d_keyword_nodal_vector(i)%KEY3 = 'VEL'
61 h3d_keyword_nodal_vector(i)%TEXT1 = 'Velocity'
62 h3d_keyword_nodal_vector(i)%COMMENT = 'Node translational velocity'
63c-----------------------------------------------
64 i = i + 1
65 h3d_keyword_nodal_vector(i)%KEY3 = 'DIS'
66 h3d_keyword_nodal_vector(i)%TEXT1 = 'Displacement'
67c-----------------------------------------------
68 i = i + 1
69 h3d_keyword_nodal_vector(i)%KEY3 = 'ACC'
70 h3d_keyword_nodal_vector(i)%TEXT1 = 'Acceleration'
71c-----------------------------------------------
72 i = i + 1
73 h3d_keyword_nodal_vector(i)%KEY3 = 'CONT'
74 h3d_keyword_nodal_vector(i)%TEXT1 = 'Contact Forces'
75 h3d_keyword_nodal_vector(i)%COMMENT = 'Node contact force (sum)'
76c-----------------------------------------------
77 i = i + 1
78 h3d_keyword_nodal_vector(i)%KEY3 = 'FINT'
79 h3d_keyword_nodal_vector(i)%TEXT1 = 'Internal Forces'
80c-----------------------------------------------
81 i = i + 1
82 h3d_keyword_nodal_vector(i)%KEY3 = 'FEXT'
83 h3d_keyword_nodal_vector(i)%TEXT1 = 'External Forces'
84c-----------------------------------------------
85 i = i + 1
86 h3d_keyword_nodal_vector(i)%KEY3 = 'FOPT/FORCE'
87 h3d_keyword_nodal_vector(i)%TEXT1 = 'Sect.RBY,Wall F.'
88 h3d_keyword_nodal_vector(i)%COMMENT = 'Forces for rigid bodies, rigid walls and sections'
89c-----------------------------------------------
90 i = i + 1
91 h3d_keyword_nodal_vector(i)%KEY3 = 'FOPT/MOMENT'
92 h3d_keyword_nodal_vector(i)%TEXT1 = 'Sect.RBY Moments'
93 h3d_keyword_nodal_vector(i)%COMMENT = 'Moments for rigid bodies, rigid walls and sections'
94c-----------------------------------------------
95 i = i + 1
96 h3d_keyword_nodal_vector(i)%KEY3 = 'VROT'
97 h3d_keyword_nodal_vector(i)%TEXT1 = 'Rotational Velocity'
98 h3d_keyword_nodal_vector(i)%COMMENT = 'drot=1 must also be set in /IOFLAG otherwise, rotational dof are not computed'
99c-----------------------------------------------
100 i = i + 1
101 h3d_keyword_nodal_vector(i)%KEY3 = 'FVEL'
102 h3d_keyword_nodal_vector(i)%TEXT1 = 'Fluid velocity'
103 h3d_keyword_nodal_vector(i)%COMMENT ='Gas velocity vectors for fluid flow in Finite Volume Method monitored volume'
104c-----------------------------------------------
105 i = i + 1
106 h3d_keyword_nodal_vector(i)%KEY3 = 'FRES'
107 h3d_keyword_nodal_vector(i)%TEXT1 = 'Residual force (FEXT - FINT)'
108c-----------------------------------------------
109 i = i + 1
110 h3d_keyword_nodal_vector(i)%KEY3 = 'PCONT/NORMAL'
111 h3d_keyword_nodal_vector(i)%TEXT1 = 'Contact Pressure / Normal'
112c-----------------------------------------------
113 i = i + 1
114 h3d_keyword_nodal_vector(i)%KEY3 = 'PCONT/TANGENT'
115 h3d_keyword_nodal_vector(i)%TEXT1 = 'Contact Pressure / Tangent'
116c-----------------------------------------------
117 i = i + 1
118 h3d_keyword_nodal_vector(i)%KEY3 = 'CONT2'
119 h3d_keyword_nodal_vector(i)%TEXT1 = 'Tied Contact Forces'
120c-----------------------------------------------
121 i = i + 1
122 h3d_keyword_nodal_vector(i)%KEY3 = 'CONT2/MOMENT'
123 h3d_keyword_nodal_vector(i)%TEXT1 = 'Tied Contact Moments'
124c-----------------------------------------------
125 i = i + 1
126 h3d_keyword_nodal_vector(i)%KEY3 = 'DROT'
127 h3d_keyword_nodal_vector(i)%TEXT1 = 'Rotational DOF'
128 h3d_keyword_nodal_vector(i)%COMMENT ='drot=1 must also be set in /IOFLAG otherwise, rotational dof are not computed'
129c-----------------------------------------------
130 i = i + 1
131 h3d_keyword_nodal_vector(i)%KEY3 = 'DXANC'
132 h3d_keyword_nodal_vector(i)%TEXT1 = 'DXANC'
133c-----------------------------------------------
134 i = i + 1
135 h3d_keyword_nodal_vector(i)%KEY3 = 'GVEL'
136 h3d_keyword_nodal_vector(i)%TEXT1 = 'Gaz Velocity'
137c-----------------------------------------------
138 i = i + 1
139 h3d_keyword_nodal_vector(i)%KEY3 = 'FREAC'
140 h3d_keyword_nodal_vector(i)%TEXT1 = 'Reaction Forces'
141 h3d_keyword_nodal_vector(i)%COMMENT = 'Reaction forces for imposed velocities, displacements, accelerations and bcs'
142c-----------------------------------------------
143 i = i + 1
144 h3d_keyword_nodal_vector(i)%KEY3 = 'MREAC'
145 h3d_keyword_nodal_vector(i)%TEXT1 = 'Reaction Moments'
146 h3d_keyword_nodal_vector(i)%COMMENT ='Reaction moments for imposed velocities, displacements, accelerations and bcs'
147c-----------------------------------------------
148 i = i + 1
149 h3d_keyword_nodal_vector(i)%KEY3 = 'CLUSTER/FORCE'
150 h3d_keyword_nodal_vector(i)%TEXT1 = 'Cluster Forces'
151 h3d_keyword_nodal_vector(i)%COMMENT ='Spot weld /CLUSTER force vector in global coordinates'
152c-----------------------------------------------
153 i = i + 1
154 h3d_keyword_nodal_vector(i)%KEY3 = 'CLUSTER/MOMENT'
155 h3d_keyword_nodal_vector(i)%TEXT1 = 'Cluster Moments'
156 h3d_keyword_nodal_vector(i)%COMMENT ='Spot weld /CLUSTER moment vector in global coordinates'
157c-----------------------------------------------
158 i = i + 1
159 h3d_keyword_nodal_vector(i)%KEY3 = 'ZVEL'
160 h3d_keyword_nodal_vector(i)%TEXT1 = 'inter22 - Centroid Velocity'
161c-----------------------------------------------
162 i = i + 1
163 h3d_keyword_nodal_vector(i)%KEY3 = 'ZFVEL'
164 h3d_keyword_nodal_vector(i)%TEXT1 = 'inter22 - Faces Velocity'
165c-----------------------------------------------
166 i = i + 1
167 h3d_keyword_nodal_vector(i)%KEY3 = 'ZMOM'
168 h3d_keyword_nodal_vector(i)%TEXT1 = 'inter22 - Centroid Momentum Density'
169c-----------------------------------------------
170 i = i + 1
171 h3d_keyword_nodal_vector(i)%KEY3 = 'ZFP'
172 h3d_keyword_nodal_vector(i)%TEXT1 = 'inter22 - Faces Pressure Forces'
173c-----------------------------------------------
174 i = i + 1
175 h3d_keyword_nodal_vector(i)%KEY3 = 'ZFINT'
176 h3d_keyword_nodal_vector(i)%TEXT1 = 'inter22 - Centroid Internal Force'
177c-----------------------------------------------
178 i = i + 1
179 h3d_keyword_nodal_vector(i)%KEY3 = 'CONT/TMAX'
180 h3d_keyword_nodal_vector(i)%TEXT1 = 'Maximum Contact Forces Over time'
181 h3d_keyword_nodal_vector(i)%COMMENT = 'Node contact force (Maximum over time)'
182c-----------------------------------------------
183 i = i + 1
184 h3d_keyword_nodal_vector(i)%KEY3 = 'CONT2/TMAX'
185 h3d_keyword_nodal_vector(i)%TEXT1 = 'Maximum Tied Contact Forces Over time'
186 h3d_keyword_nodal_vector(i)%COMMENT = 'Node contact force (Maximum over time)'
187c-----------------------------------------------
188 i = i + 1
189 h3d_keyword_nodal_vector(i)%KEY3 = 'CONT2/TMIN'
190 h3d_keyword_nodal_vector(i)%TEXT1 = 'Minimum Tied Contact Forces Over time'
191 h3d_keyword_nodal_vector(i)%COMMENT = 'Node contact force (Minimum over time)'
192c-----------------------------------------------
193 i = i + 1
194 h3d_keyword_nodal_vector(i)%KEY3 = 'PCONT2/NORMAL'
195 h3d_keyword_nodal_vector(i)%TEXT1 = 'Tied Contact Pressure / Normal'
196c-----------------------------------------------
197 i = i + 1
198 h3d_keyword_nodal_vector(i)%KEY3 = 'PCONT2/TANGENT'
199 h3d_keyword_nodal_vector(i)%TEXT1 = 'Tied Contact Pressure / Tangent'
200c-----------------------------------------------
201 i = i + 1
202 h3d_keyword_nodal_vector(i)%KEY3 = 'MAXPCONT/NORMAL'
203 h3d_keyword_nodal_vector(i)%TEXT1 = 'Maximum Over Time Contact Pressure / Normal'
204c-----------------------------------------------
205 i = i + 1
206 h3d_keyword_nodal_vector(i)%KEY3 = 'MAXPCONT/TANGENT'
207 h3d_keyword_nodal_vector(i)%TEXT1 = 'Maximum Over Time Contact Pressure / Tangent'
208c-----------------------------------------------
209 i = i + 1
210 h3d_keyword_nodal_vector(i)%KEY3 = 'MAXPCONT2/NORMAL'
211 h3d_keyword_nodal_vector(i)%TEXT1 = 'Maximum Over Time Tied Contact Pressure / Normal'
212c-----------------------------------------------
213 i = i + 1
214 h3d_keyword_nodal_vector(i)%KEY3 = 'MAXPCONT2/TANGENT'
215 h3d_keyword_nodal_vector(i)%TEXT1 = 'Maximum Over Time Tied Contact Pressure / Tangent'
216c-----------------------------------------------
217 i = i + 1
218 h3d_keyword_nodal_vector(i)%KEY3 = 'MINPCONT2/NORMAL'
219 h3d_keyword_nodal_vector(i)%TEXT1 = 'Minimum Over Time Tied Contact Pressure / Normal'
220c-----------------------------------------------
221 i = i + 1
222 h3d_keyword_nodal_vector(i)%KEY3 = 'MINPCONT2/TANGENT'
223 h3d_keyword_nodal_vector(i)%TEXT1 = 'Minimum Over Time Tied Contact Pressure / Tangent'
224c-----------------------------------------------
225 i = i + 1
226 h3d_keyword_nodal_vector(i)%KEY3 = 'VEL/TMAX'
227 h3d_keyword_nodal_vector(i)%TEXT1 = 'Max_Velocity'
228 h3d_keyword_nodal_vector(i)%COMMENT = 'Maximum node translational velocity over time'
229c-----------------------------------------------
230 i = i + 1
231 h3d_keyword_nodal_vector(i)%KEY3 = 'DIS/TMAX'
232 h3d_keyword_nodal_vector(i)%TEXT1 = 'Max_Displacement'
233 h3d_keyword_nodal_vector(i)%COMMENT = 'Maximum node displacement over time'
234c-----------------------------------------------
235 i = i + 1
236 h3d_keyword_nodal_vector(i)%KEY3 = 'AROT'
237 h3d_keyword_nodal_vector(i)%TEXT1 = 'Rotational Acceleration'
238 h3d_keyword_nodal_vector(i)%COMMENT = 'drot=1 must also be set in /IOFLAG otherwise, rotational dof are not computed'
239c-----------------------------------------------
240 i = i + 1
241 h3d_keyword_nodal_vector(i)%KEY3 = 'VEL/GRID'
242 h3d_keyword_nodal_vector(i)%TEXT1 = 'Grid Velocity'
243 h3d_keyword_nodal_vector(i)%COMMENT = 'ALE only'
244c-----------------------------------------------
245 i = i + 1
246 h3d_keyword_nodal_vector(i)%KEY3 = 'SHELL_OFFSET'
247 h3d_keyword_nodal_vector(i)%TEXT1 = 'Shell offset vector'
248 h3d_keyword_nodal_vector(i)%COMMENT = 'Nodal shell offset used for contact'
249c-----------------------------------------------
250
251 nkey=i
my_real
#define my_real
Definition cppsort.cpp:32
h3d_mod
Definition h3d_mod.F:308
message_mod
Definition message_mod.F:1249