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,J,NIPMAX,NPTTMAX,IPLYMAX,CPTPLY,IPTMAX,CPTIPT
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/TMAX'
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