OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_solid_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_solid_tensor ../engine/source/output/h3d/input_list/h3d_list_solid_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!||====================================================================
31 SUBROUTINE h3d_list_solid_tensor(H3D_KEYWORD_SOLID_TENSOR,GEO,IGEO,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_SOLID_TENSOR(*)
50 my_real geo(npropg,numgeo)
51 INTEGER IGEO(NPROPGI,NUMGEO)
52 INTEGER, INTENT(INOUT) :: NKEY
53C-----------------------------------------------
54C L o c a l V a r i a b l e s
55C-----------------------------------------------
56 INTEGER I,J,NIPMAX
57C=========================================================================
58 i = 0
59c-----------------------------------------------
60 i = i + 1
61 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRESS'
62 h3d_keyword_solid_tensor(i)%IS_LAYER = 1
63 h3d_keyword_solid_tensor(i)%IS_LAYER_ALL = 1
64 h3d_keyword_solid_tensor(i)%IS_IR = 1
65 h3d_keyword_solid_tensor(i)%IS_IR_ALL = 1
66 h3d_keyword_solid_tensor(i)%IS_IS = 1
67 h3d_keyword_solid_tensor(i)%IS_IS_ALL = 1
68 h3d_keyword_solid_tensor(i)%IS_IT = 1
69 h3d_keyword_solid_tensor(i)%IS_IT_ALL = 1
70 h3d_keyword_solid_tensor(i)%TEXT1 = 'Stress'
71c-----------------------------------------------
72 i = i + 1
73 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN'
74 h3d_keyword_solid_tensor(i)%IS_LAYER = 1
75 h3d_keyword_solid_tensor(i)%IS_LAYER_ALL = 1
76 h3d_keyword_solid_tensor(i)%IS_IR = 1
77 h3d_keyword_solid_tensor(i)%IS_IR_ALL = 1
78 h3d_keyword_solid_tensor(i)%IS_IS = 1
79 h3d_keyword_solid_tensor(i)%IS_IS_ALL = 1
80 h3d_keyword_solid_tensor(i)%IS_IT = 1
81 h3d_keyword_solid_tensor(i)%IS_IT_ALL = 1
82 h3d_keyword_solid_tensor(i)%TEXT1 = 'Strain'
83c-----------------------------------------------
84 i = i + 1
85 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/DAMA'
86 h3d_keyword_solid_tensor(i)%TEXT1 = 'Damage'
87 h3d_keyword_solid_tensor(i)%COMMENT =
88 .'Cracks (LAW24 only)'
89c-----------------------------------------------
90 i = i + 1
91 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/EPSP'
92 h3d_keyword_solid_tensor(i)%IS_LAYER = 1
93 h3d_keyword_solid_tensor(i)%IS_LAYER_ALL = 1
94 h3d_keyword_solid_tensor(i)%IS_IR = 1
95 h3d_keyword_solid_tensor(i)%IS_IR_ALL = 1
96 h3d_keyword_solid_tensor(i)%IS_IS = 1
97 h3d_keyword_solid_tensor(i)%IS_IS_ALL = 1
98 h3d_keyword_solid_tensor(i)%IS_IT = 1
99 h3d_keyword_solid_tensor(i)%IS_IT_ALL = 1
100 h3d_keyword_solid_tensor(i)%TEXT1 = 'Plastic Strain Tensor'
101 h3d_keyword_solid_tensor(i)%COMMENT = 'Plastic Strain tensor is output only for law 24'
102c-----------------------------------------------
103 i = i + 1
104 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRESS/OUTER'
105 h3d_keyword_solid_tensor(i)%IS_SKIN = 1
106 h3d_keyword_solid_tensor(i)%TEXT1 = 'Outer Stress'
107c-----------------------------------------------
108 i = i + 1
109 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN/OUTER'
110 h3d_keyword_solid_tensor(i)%IS_SKIN = 1
111 h3d_keyword_solid_tensor(i)%TEXT1 = 'Outer Strain'
112c-----------------------------------------------
113 i = i + 1
114 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN_ENG'
115 h3d_keyword_solid_tensor(i)%IS_LAYER = 1
116 h3d_keyword_solid_tensor(i)%IS_LAYER_ALL = 1
117 h3d_keyword_solid_tensor(i)%IS_IR = 1
118 h3d_keyword_solid_tensor(i)%IS_IR_ALL = 1
119 h3d_keyword_solid_tensor(i)%IS_IS = 1
120 h3d_keyword_solid_tensor(i)%IS_IS_ALL = 1
121 h3d_keyword_solid_tensor(i)%IS_IT = 1
122 h3d_keyword_solid_tensor(i)%IS_IT_ALL = 1
123 h3d_keyword_solid_tensor(i)%TEXT1 = 'Infinitesimal Strain'
124 h3d_keyword_solid_tensor(i)%COMMENT = 'Total strain tensor is calculated from 2(initial&actual) configurations'
125c-----------------------------------------------
126 i = i + 1
127 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRESS/CORNER_DATA'
128 h3d_keyword_solid_tensor(i)%IS_CORNER_DATA = 1
129 h3d_keyword_solid_tensor(i)%TEXT1 = 'CornerStress'
130c-----------------------------------------------
131 i = i + 1
132 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN/CORNER_DATA'
133 h3d_keyword_solid_tensor(i)%IS_CORNER_DATA = 1
134 h3d_keyword_solid_tensor(i)%TEXT1 = 'CornerStrain'
135c-----------------------------------------------
136 i = i + 1
137 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/BSTRESS'
138 h3d_keyword_solid_tensor(i)%IS_LAYER = 1
139 h3d_keyword_solid_tensor(i)%IS_LAYER_ALL = 1
140 h3d_keyword_solid_tensor(i)%IS_IR = 1
141 h3d_keyword_solid_tensor(i)%IS_IR_ALL = 1
142 h3d_keyword_solid_tensor(i)%IS_IS = 1
143 h3d_keyword_solid_tensor(i)%IS_IS_ALL = 1
144 h3d_keyword_solid_tensor(i)%IS_IT = 1
145 h3d_keyword_solid_tensor(i)%IS_IT_ALL = 1
146 h3d_keyword_solid_tensor(i)%IS_ID = 1
147 h3d_keyword_solid_tensor(i)%IS_ID_ALL = 1
148 h3d_keyword_solid_tensor(i)%TEXT1 = 'BackStress'
149c-----------------------------------------------
150 i = i + 1
151 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRESS/TMAX'
152 h3d_keyword_solid_tensor(i)%TEXT1 = 'Max_Stress'
153 h3d_keyword_solid_tensor(i)%COMMENT = 'Maximum (P1) Stress tensor over time&ipt'
154c-----------------------------------------------
155 i = i + 1
156 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN/TMAX'
157 h3d_keyword_solid_tensor(i)%TEXT1 = 'Max_Strain'
158 h3d_keyword_solid_tensor(i)%COMMENT = 'Maximum (P1) Strain tensor over time&ipt'
159c-----------------------------------------------
160 i = i + 1
161 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRESS/TMIN'
162 h3d_keyword_solid_tensor(i)%TEXT1 = 'Min_Stress'
163 h3d_keyword_solid_tensor(i)%COMMENT = 'Minimum (P3) Stress tensor over time&ipt'
164c-----------------------------------------------
165 i = i + 1
166 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN/TMIN'
167 h3d_keyword_solid_tensor(i)%TEXT1 = 'Min_Strain'
168 h3d_keyword_solid_tensor(i)%COMMENT = 'Minimum (P3) Strain tensor over time&ipt'
169c-----------------------------------------------
170 i = i + 1
171 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN/OUTER_AVERAGE'
172 h3d_keyword_solid_tensor(i)%IS_SKIN = 1
173 h3d_keyword_solid_tensor(i)%TEXT1 = 'Outer Average Strain'
174c-----------------------------------------------
175 nkey=i
176 END
my_real
#define my_real
Definition cppsort.cpp:32
h3d_list_solid_tensor
subroutine h3d_list_solid_tensor(h3d_keyword_solid_tensor, geo, igeo, nkey)
Definition h3d_list_solid_tensor.F:32
h3d_mod
Definition h3d_mod.F:308
message_mod
Definition message_mod.F:1249