OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_list_1d_scalar.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_1d_scalar ../engine/source/output/h3d/input_list/h3d_list_1d_scalar.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_1d_scalar(H3D_KEYWORD_ONED_SCALAR,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 D u m m y A r g u m e n t s
43C-----------------------------------------------
44 TYPE (H3D_KEYWORD) H3D_KEYWORD_ONED_SCALAR(*)
45 my_real
46 . geo(npropg,*)
47 INTEGER, INTENT(INOUT) :: NKEY
48C-----------------------------------------------
49C C o m m o n B l o c k s
50C-----------------------------------------------
51#include "param_c.inc"
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_oned_scalar(i)%KEY3 = 'MASS'
61 h3d_keyword_oned_scalar(i)%TEXT1 = 'Mass'
62c-----------------------------------------------
63 i = i + 1
64 h3d_keyword_oned_scalar(i)%KEY3 = 'EPSP'
65 h3d_keyword_oned_scalar(i)%TEXT1 = 'Plastic Strain'
66 h3d_keyword_oned_scalar(i)%IS_IPT = 1
67 h3d_keyword_oned_scalar(i)%IS_IPT_ALL = 1
68c-----------------------------------------------
69 i = i + 1
70 h3d_keyword_oned_scalar(i)%KEY3 = 'ENER'
71 h3d_keyword_oned_scalar(i)%TEXT1 = 'Specific Energy'
72 h3d_keyword_oned_scalar(i)%COMMENT =
73 .'Specific energy density (internal energy divided by the element mass)'
74c-----------------------------------------------
75 i = i + 1
76 h3d_keyword_oned_scalar(i)%KEY3 = 'VONM'
77 h3d_keyword_oned_scalar(i)%TEXT1 = 'Von Mises'
78c-----------------------------------------------
79 i = i + 1
80 h3d_keyword_oned_scalar(i)%KEY3 = 'DAM1'
81 h3d_keyword_oned_scalar(i)%TEXT1 = 'Damage 1'
82c-----------------------------------------------
83 i = i + 1
84 h3d_keyword_oned_scalar(i)%KEY3 = 'DAM2'
85 h3d_keyword_oned_scalar(i)%TEXT1 = 'Damage 2'
86c-----------------------------------------------
87 i = i + 1
88 h3d_keyword_oned_scalar(i)%KEY3 = 'DAM3'
89 h3d_keyword_oned_scalar(i)%TEXT1 = 'Damage 3'
90c-----------------------------------------------
91 i = i + 1
92 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGX'
93 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress X '
94c-----------------------------------------------
95 i = i + 1
96 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGY'
97 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress Y '
98c-----------------------------------------------
99 i = i + 1
100 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGZ'
101 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress Z '
102c-----------------------------------------------
103 i = i + 1
104 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGXY'
105 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress XY'
106c-----------------------------------------------
107 i = i + 1
108 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGYZ'
109 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress YZ'
110c-----------------------------------------------
111 i = i + 1
112 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGZX'
113 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress ZX'
114c-----------------------------------------------
115 i = i + 1
116 h3d_keyword_oned_scalar(i)%KEY3 = 'DT'
117 h3d_keyword_oned_scalar(i)%TEXT1 = 'Time Step'
118c-----------------------------------------------
119 i = i + 1
120 h3d_keyword_oned_scalar(i)%KEY3 = 'AMS'
121 h3d_keyword_oned_scalar(i)%TEXT1 = 'AMS selection'
122c-----------------------------------------------
123 i = i + 1
124 h3d_keyword_oned_scalar(i)%KEY3 = 'OFF'
125 h3d_keyword_oned_scalar(i)%TEXT1 = 'Element status'
126 h3d_keyword_oned_scalar(i)%COMMENT =
127 .'0.0:deleted >0.&<1.:under failure process 1.0:activated <0:Standby'
128c-----------------------------------------------
129 i = i + 1
130 h3d_keyword_oned_scalar(i)%KEY3 = 'EINT'
131 h3d_keyword_oned_scalar(i)%TEXT1 = 'Internal Energy'
132c-----------------------------------------------
133 i = i + 1
134 h3d_keyword_oned_scalar(i)%KEY3 = 'FRACTION/MARTENSITE'
135 h3d_keyword_oned_scalar(i)%TEXT1 = 'Martensite fraction'
136 h3d_keyword_oned_scalar(i)%IS_IPT = 1
137 h3d_keyword_oned_scalar(i)%IS_IPT_ALL = 1
138c-----------------------------------------------
139 i = i + 1
140 h3d_keyword_oned_scalar(i)%KEY3 = 'FRACTION/MARTENSITE/TMAX'
141 h3d_keyword_oned_scalar(i)%TEXT1 = 'Maximum of martensite fraction'
142 h3d_keyword_oned_scalar(i)%COMMENT =
143 .' - over time and over integration points'
144c-----------------------------------------------
145 i = i + 1
146 h3d_keyword_oned_scalar(i)%KEY3 = 'TEPS'
147 h3d_keyword_oned_scalar(i)%TEXT1 = 'Transformation strain'
148 h3d_keyword_oned_scalar(i)%IS_IPT = 1
149 h3d_keyword_oned_scalar(i)%IS_IPT_ALL = 1
150c-----------------------------------------------
151 i = i + 1
152 h3d_keyword_oned_scalar(i)%KEY3 = 'GROUP'
153 h3d_keyword_oned_scalar(i)%TEXT1 = 'Group identifier'
154c-----------------------------------------------
155 i = i + 1
156 h3d_keyword_oned_scalar(i)%KEY3 = 'INTERNAL.ID'
157 h3d_keyword_oned_scalar(i)%TEXT1 = 'Internal identifier'
158c-----------------------------------------------
159 i = i + 1
160 h3d_keyword_oned_scalar(i)%KEY3 = 'LOCAL.ID'
161 h3d_keyword_oned_scalar(i)%TEXT1 = 'Local identifier within the group'
162c-----------------------------------------------
163 i = i + 1
164 h3d_keyword_oned_scalar(i)%KEY3 = 'EPSD'
165 h3d_keyword_oned_scalar(i)%TEXT1 = 'Strain rate'
166c-----------------------------------------------
167 i = i + 1
168 h3d_keyword_oned_scalar(i)%KEY3 = 'DAMINI'
169 h3d_keyword_oned_scalar(i)%TEXT1 = 'DAMAGE INITIATION'
170c-----------------------------------------------
171 i = i + 1
172 h3d_keyword_oned_scalar(i)%KEY3 = 'DAMA'
173 h3d_keyword_oned_scalar(i)%TEXT1 = 'MAX DAMAGE'
174 h3d_keyword_oned_scalar(i)%COMMENT = 'maximum damage over time'
175c-----------------------------------------------
176 i = i + 1
177 h3d_keyword_oned_scalar(i)%KEY3 = 'EINTV'
178 h3d_keyword_oned_scalar(i)%TEXT1 = 'Internal Energy per unit volume'
179c-----------------------------------------------
180 nkey=i
181 END
my_real
#define my_real
Definition cppsort.cpp:32
h3d_list_1d_scalar
subroutine h3d_list_1d_scalar(h3d_keyword_oned_scalar, geo, nkey)
Definition h3d_list_1d_scalar.F:32
h3d_mod
Definition h3d_mod.F:308
message_mod
Definition message_mod.F:1249