OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_shell_tensor.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_shell_tensor ../engine/source/output/h3d/input_list/h3d_list_shell_tensor.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!|| stack_mod ../engine/share/modules/stack_mod.F
31!||====================================================================
32 SUBROUTINE h3d_list_shell_tensor(H3D_KEYWORD_SHELL_TENSOR,GEO,IGEO, NKEY)
33C-----------------------------------------------
34C M o d u l e s
35C-----------------------------------------------
36 USE message_mod
37 USE h3d_mod
38 USE stack_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 (H3D_KEYWORD) H3D_KEYWORD_SHELL_TENSOR(*)
52 my_real geo(npropg,numgeo)
53 INTEGER, INTENT(INOUT) :: NKEY
54 INTEGER IGEO(NPROPGI,NUMGEO)
55C-----------------------------------------------
56C L o c a l V a r i a b l e s
57C-----------------------------------------------
58 INTEGER I,J,NIPMAX,NPTTMAX,IPLYMAX,CPTPLY,IPTMAX,CPTIPT
59C=========================================================================
60 i = 0
61c-----------------------------------------------
62 i = i + 1
63 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRESS/MEMB'
64 h3d_keyword_shell_tensor(i)%TEXT1 = 'Stress (membrane)'
65 h3d_keyword_shell_tensor(i)%COMMENT = 'generalized stresses. For full-integrated element, mean value of 4 Gauss points'
66c-----------------------------------------------
67 i = i + 1
68 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRESS/BEND'
69 h3d_keyword_shell_tensor(i)%TEXT1 = 'Stress (moment/t^2)'
70 h3d_keyword_shell_tensor(i)%COMMENT = 'generalized stresses. For full-integrated element, mean value of 4 Gauss points'
71c-----------------------------------------------
72 i = i + 1
73 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRESS'
74 h3d_keyword_shell_tensor(i)%IS_LAYER = 1
75 h3d_keyword_shell_tensor(i)%IS_LAYER_ALL = 1
76 h3d_keyword_shell_tensor(i)%IS_IPT = 1
77 h3d_keyword_shell_tensor(i)%IS_IPT_ALL = 1
78 h3d_keyword_shell_tensor(i)%IS_PLY = 1
79 h3d_keyword_shell_tensor(i)%IS_PLY_ALL = 1
80 h3d_keyword_shell_tensor(i)%TEXT1 = 'Stress'
81c-----------------------------------------------
82 i = i + 1
83 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRAIN/MEMB'
84 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strain (membrane)'
85c-----------------------------------------------
86 i = i + 1
87 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRAIN/BEND'
88 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strain (Curvature)'
89c-----------------------------------------------
90 i = i + 1
91 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRAIN'
92 h3d_keyword_shell_tensor(i)%IS_LAYER = 1
93 h3d_keyword_shell_tensor(i)%IS_LAYER_ALL = 1
94 h3d_keyword_shell_tensor(i)%IS_IPT = 1
95 h3d_keyword_shell_tensor(i)%IS_IPT_ALL = 1
96 h3d_keyword_shell_tensor(i)%IS_PLY = 1
97 h3d_keyword_shell_tensor(i)%IS_PLY_ALL = 1
98 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strain'
99c-----------------------------------------------
100 i = i + 1
101 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/EPSDOT/MEMB'
102 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strn rate (membrane)'
103c-----------------------------------------------
104 i = i + 1
105 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/EPSDOT/BEND'
106 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strn rate (Curvature)'
107c-----------------------------------------------
108 i = i + 1
109 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/EPSDOT'
110 h3d_keyword_shell_tensor(i)%IS_LAYER = 1
111 h3d_keyword_shell_tensor(i)%IS_LAYER_ALL = 1
112 h3d_keyword_shell_tensor(i)%IS_IPT = 1
113 h3d_keyword_shell_tensor(i)%IS_IPT_ALL = 1
114 h3d_keyword_shell_tensor(i)%IS_PLY = 1
115 h3d_keyword_shell_tensor(i)%IS_PLY_ALL = 1
116 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strn rate'
117c-----------------------------------------------
118 i = i + 1
119 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRAIN_ENG'
120 h3d_keyword_shell_tensor(i)%IS_LAYER = 1
121 h3d_keyword_shell_tensor(i)%IS_LAYER_ALL = 1
122 h3d_keyword_shell_tensor(i)%IS_IPT = 1
123 h3d_keyword_shell_tensor(i)%IS_IPT_ALL = 1
124 h3d_keyword_shell_tensor(i)%IS_PLY = 1
125 h3d_keyword_shell_tensor(i)%IS_PLY_ALL = 1
126 h3d_keyword_shell_tensor(i)%TEXT1 = 'Infinitesimal Strain'
127 h3d_keyword_shell_tensor(i)%COMMENT = 'Total strain tensor is calculated from 2(initial&actual) configurations'
128c-----------------------------------------------
129 i = i + 1
130 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/BSTRESS'
131 h3d_keyword_shell_tensor(i)%IS_LAYER = 1
132 h3d_keyword_shell_tensor(i)%IS_LAYER_ALL = 1
133 h3d_keyword_shell_tensor(i)%IS_IPT = 1
134 h3d_keyword_shell_tensor(i)%IS_IPT_ALL = 1
135 h3d_keyword_shell_tensor(i)%IS_PLY = 1
136 h3d_keyword_shell_tensor(i)%IS_PLY_ALL = 1
137 h3d_keyword_shell_tensor(i)%IS_ID = 1
138 h3d_keyword_shell_tensor(i)%IS_ID_ALL = 1
139 h3d_keyword_shell_tensor(i)%TEXT1 = 'BackStress'
140 h3d_keyword_shell_tensor(i)%COMMENT = ' '
141c-----------------------------------------------
142 i = i + 1
143 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRESS/TMAX'
144 h3d_keyword_shell_tensor(i)%TEXT1 = 'Max_Stress'
145 h3d_keyword_shell_tensor(i)%COMMENT = 'Maximum (P1) Stress tensor over time&ipt'
146c-----------------------------------------------
147 i = i + 1
148 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRAIN/TMAX'
149 h3d_keyword_shell_tensor(i)%TEXT1 = 'Max_Strain'
150 h3d_keyword_shell_tensor(i)%COMMENT = 'Maximum (P1) Strain tensor over time&ipt'
151c-----------------------------------------------
152 i = i + 1
153 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRESS/TMIN'
154 h3d_keyword_shell_tensor(i)%TEXT1 = 'Min_Stress'
155 h3d_keyword_shell_tensor(i)%COMMENT = 'Minimum (P3) Stress tensor over time&ipt'
156c-----------------------------------------------
157 i = i + 1
158 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRAIN/TMIN'
159 h3d_keyword_shell_tensor(i)%TEXT1 = 'Min_Strain'
160 h3d_keyword_shell_tensor(i)%COMMENT = 'Minimum (P3) Strain tensor over time&ipt'
161c-----------------------------------------------
162 i = i + 1
163 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/MSTRESS'
164 h3d_keyword_shell_tensor(i)%IS_LAYER = 1
165 h3d_keyword_shell_tensor(i)%IS_LAYER_ALL = 1
166 h3d_keyword_shell_tensor(i)%IS_IPT = 1
167 h3d_keyword_shell_tensor(i)%IS_IPT_ALL = 1
168 h3d_keyword_shell_tensor(i)%IS_PLY = 1
169 h3d_keyword_shell_tensor(i)%IS_PLY_ALL = 1
170 h3d_keyword_shell_tensor(i)%TEXT1 = 'Mstress'
171c-----------------------------------------------
172c-----------------------------------------------
173 i = i + 1
174 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/MSTRAIN'
175 h3d_keyword_shell_tensor(i)%IS_LAYER = 1
176 h3d_keyword_shell_tensor(i)%IS_LAYER_ALL = 1
177 h3d_keyword_shell_tensor(i)%IS_IPT = 1
178 h3d_keyword_shell_tensor(i)%IS_IPT_ALL = 1
179 h3d_keyword_shell_tensor(i)%IS_PLY = 1
180 h3d_keyword_shell_tensor(i)%IS_PLY_ALL = 1
181 h3d_keyword_shell_tensor(i)%TEXT1 = 'Mstrain'
182
183 nkey=i
184 END
my_real
#define my_real
Definition cppsort.cpp:32
h3d_list_shell_tensor
subroutine h3d_list_shell_tensor(h3d_keyword_shell_tensor, geo, igeo, nkey)
Definition h3d_list_shell_tensor.F:33
h3d_mod
Definition h3d_mod.F:308
message_mod
Definition message_mod.F:1249
stack_mod
Definition stack_mod.F:72