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,J,NIPMAX
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(I)%TEXT1 = '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