33
34
35
39
40
41
42#include "implicit_f.inc"
43
44
45
46#include "param_c.inc"
47#include "com04_c.inc"
48
49
50
51 TYPE (H3D_KEYWORD) H3D_KEYWORD_SHELL_TENSOR(*)
53 INTEGER, INTENT(INOUT) :: NKEY
54 INTEGER IGEO(NPROPGI,NUMGEO)
55
56
57
58 INTEGER I
59
60 i = 0
61
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'
66
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'
71
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'
81
82 i = i + 1
83 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRAIN/MEMB'
84 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strain (membrane)'
85
86 i = i + 1
87 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/STRAIN/BEND'
88 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strain (Curvature)'
89
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'
99
100 i = i + 1
101 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/EPSDOT/MEMB'
102 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strn rate (membrane)'
103
104 i = i + 1
105 h3d_keyword_shell_tensor(i)%KEY3 = 'TENS/EPSDOT/BEND'
106 h3d_keyword_shell_tensor(i)%TEXT1 = 'Strn rate (Curvature)'
107
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'
117
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'
128
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 = ' '
141
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'
146
147 I = I + 1
148 H3D_KEYWORD_SHELL_TENSOR(I)%KEY3 = 'tens/strain'
149 H3D_KEYWORD_SHELL_TENSOR(I)%TEXT1 = 'max_strain'
150 H3D_KEYWORD_SHELL_TENSOR(I)%COMMENT = 'maximum(p1) strain tensor over time&ipt'
151
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'
156
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'
161
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'
171
172
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
1.15.0