32
33
34
37
38
39
40#include "implicit_f.inc"
41
42
43
44 TYPE (H3D_KEYWORD) H3D_KEYWORD_ONED_SCALAR(*)
46 . geo(npropg,*)
47 INTEGER, INTENT(INOUT) :: NKEY
48
49
50
51#include "param_c.inc"
52
53
54
55 INTEGER I
56
57 i = 0
58
59 i = i + 1
60 h3d_keyword_oned_scalar(i)%KEY3 = 'MASS'
61 h3d_keyword_oned_scalar(i)%TEXT1 = 'Mass'
62
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
68
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)'
74
75 i = i + 1
76 h3d_keyword_oned_scalar(i)%KEY3 = 'VONM'
77 h3d_keyword_oned_scalar(i)%TEXT1 = 'Von Mises'
78
79 i = i + 1
80 h3d_keyword_oned_scalar(i)%KEY3 = 'DAM1'
81 h3d_keyword_oned_scalar(i)%TEXT1 = 'Damage 1'
82
83 i = i + 1
84 h3d_keyword_oned_scalar(i)%KEY3 = 'DAM2'
85 h3d_keyword_oned_scalar(i)%TEXT1 = 'Damage 2'
86
87 i = i + 1
88 h3d_keyword_oned_scalar(i)%KEY3 = 'DAM3'
89 h3d_keyword_oned_scalar(i)%TEXT1 = 'Damage 3'
90
91 i = i + 1
92 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGX'
93 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress X '
94
95 i = i + 1
96 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGY'
97 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress Y '
98
99 i = i + 1
100 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGZ'
101 h3d_keyword_oned_scalar'Stress Z '
102
103 i = i + 1
104 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGXY'
105 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress XY'
106
107 i = i + 1
108 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGYZ'
109 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress YZ'
110
111 i = i + 1
112 h3d_keyword_oned_scalar(i)%KEY3 = 'SIGZX'
113 h3d_keyword_oned_scalar(i)%TEXT1 = 'Stress ZX'
114
115 i = i + 1
116 h3d_keyword_oned_scalar(i)%KEY3 = 'DT'
117 h3d_keyword_oned_scalar(i)%TEXT1 = 'Time Step'
118
119 i = i + 1
120 h3d_keyword_oned_scalar(i)%KEY3 = 'AMS'
121 h3d_keyword_oned_scalar(i)%TEXT1 = 'AMS selection'
122
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'
128
129 i = i + 1
130 h3d_keyword_oned_scalar(i)%KEY3 = 'EINT'
131 h3d_keyword_oned_scalar(i)%TEXT1 = 'Internal Energy'
132
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
138
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'
144
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
150
151 i = i + 1
152 h3d_keyword_oned_scalar(i)%KEY3 = 'GROUP'
153 h3d_keyword_oned_scalar(i)%TEXT1 = 'Group identifier'
154
155 i = i + 1
156 h3d_keyword_oned_scalar(i)%KEY3 = 'INTERNAL.ID'
157 h3d_keyword_oned_scalar(i)%TEXT1 = 'Internal identifier'
158
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'
162
163 i = i + 1
164 h3d_keyword_oned_scalar(i)%KEY3 = 'EPSD'
165 h3d_keyword_oned_scalar(i)%TEXT1 = 'Strain rate'
166
167 i = i + 1
168 h3d_keyword_oned_scalar(i)%KEY3 = 'DAMINI'
169 h3d_keyword_oned_scalar(i)%TEXT1 = 'DAMAGE INITIATION'
170
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'
175
176 i = i + 1
177 h3d_keyword_oned_scalar(i)%KEY3 = 'EINTV'
178 h3d_keyword_oned_scalar(i)%TEXT1 = 'Internal Energy per unit volume'
179
180 nkey=i
1.15.0