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,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
252 END
my_real
#define my_real
Definition cppsort.cpp:32
drot
subroutine drot(n, dx, incx, dy, incy, c, s)
DROT
Definition drot.f:92
h3d_list_nodal_vector
subroutine h3d_list_nodal_vector(h3d_keyword_nodal_vector, geo, nkey)
Definition h3d_list_noda_vector.F:32
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