OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_noda_vector.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_vector ../engine/source/output/h3d/input_list/h3d_list_noda_vector.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_nodal_vector(H3D_KEYWORD_NODAL_VECTOR,GEO,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 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
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
252 END
my_real
#define my_real
Definition cppsort.cpp:32
h3d_list_nodal_vector
subroutine h3d_list_nodal_vector(h3d_keyword_nodal_vector, geo, nkey)
Definition h3d_list_noda_vector.F:32
h3d_mod
Definition h3d_mod.F:311
message_mod
Definition message_mod.F:1257