32
33
34
37
38
39
40#include "implicit_f.inc"
41
42
43
44#include "param_c.inc"
45#include "com04_c.inc"
46
47
48
49 TYPE (H3D_KEYWORD) H3D_KEYWORD_SOLID_TENSOR(*)
51 INTEGER IGEO(NPROPGI,NUMGEO)
52 INTEGER, INTENT(INOUT) :: NKEY
53
54
55
56 INTEGER I,J,NIPMAX
57
58 i = 0
59
60 i = i + 1
61 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRESS'
62 h3d_keyword_solid_tensor(i)%IS_LAYER = 1
63 h3d_keyword_solid_tensor(i)%IS_LAYER_ALL = 1
64 h3d_keyword_solid_tensor(i)%IS_IR = 1
65 h3d_keyword_solid_tensor(i)%IS_IR_ALL = 1
66 h3d_keyword_solid_tensor(i)%IS_IS = 1
67 h3d_keyword_solid_tensor(i)%IS_IS_ALL = 1
68 h3d_keyword_solid_tensor(i)%IS_IT = 1
69 h3d_keyword_solid_tensor(i)%IS_IT_ALL = 1
70 h3d_keyword_solid_tensor(i)%TEXT1 = 'Stress'
71
72 i = i + 1
73 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN'
74 h3d_keyword_solid_tensor(i)%IS_LAYER = 1
75 h3d_keyword_solid_tensor(i)%IS_LAYER_ALL = 1
76 h3d_keyword_solid_tensor(i)%IS_IR = 1
77 h3d_keyword_solid_tensor(i)%IS_IR_ALL = 1
78 h3d_keyword_solid_tensor(i)%IS_IS = 1
79 h3d_keyword_solid_tensor(i)%IS_IS_ALL = 1
80 h3d_keyword_solid_tensor(i)%IS_IT = 1
81 h3d_keyword_solid_tensor(i)%IS_IT_ALL = 1
82 h3d_keyword_solid_tensor(i)%TEXT1 = 'Strain'
83
84 i = i + 1
85 h3d_keyword_solid_tensor(i)%KEY3 = 'tens/dama'
86 H3D_KEYWORD_SOLID_TENSOR(I)%TEXT1 = 'damage'
87 H3D_KEYWORD_SOLID_TENSOR(I)%COMMENT =
88 .'cracks(law24 only)'
89
90 I = I + 1
91 H3D_KEYWORD_SOLID_TENSOR(I)%KEY3 = 'tens/epsp'
92 H3D_KEYWORD_SOLID_TENSOR(I)%IS_LAYER = 1
93 H3D_KEYWORD_SOLID_TENSOR(I)%IS_LAYER_ALL = 1
94 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IR = 1
95 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IR_ALL = 1
96 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IS = 1
97 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IS_ALL = 1
98 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IT = 1
99 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IT_ALL = 1
100 H3D_KEYWORD_SOLID_TENSOR(I)%TEXT1 = 'plastic strain tensor'
101 H3D_KEYWORD_SOLID_TENSOR(I)%COMMENT = 'plastic strain tensor is output only
for'
102
103 I = I + 1
104 H3D_KEYWORD_SOLID_TENSOR(I)%KEY3 = 'tens/stress/outer'
105 H3D_KEYWORD_SOLID_TENSOR(I)%IS_SKIN = 1
106 H3D_KEYWORD_SOLID_TENSOR(I)%TEXT1 = 'outer stress'
107
108 I = I + 1
109 H3D_KEYWORD_SOLID_TENSOR(I)%KEY3 = 'tens/strain/outer'
110 H3D_KEYWORD_SOLID_TENSOR(I)%IS_SKIN = 1
111 H3D_KEYWORD_SOLID_TENSOR(I)%TEXT1 = 'outer strain'
112
113 I = I + 1
114 H3D_KEYWORD_SOLID_TENSOR(I)%KEY3 = 'tens/strain_eng'
115 H3D_KEYWORD_SOLID_TENSOR(I)%IS_LAYER = 1
116 H3D_KEYWORD_SOLID_TENSOR(I)%IS_LAYER_ALL = 1
117 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IR = 1
118 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IR_ALL = 1
119 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IS = 1
120 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IS_ALL = 1
121 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IT = 1
122 H3D_KEYWORD_SOLID_TENSOR(I)%IS_IT_ALL = 1
123 H3D_KEYWORD_SOLID_TENSOR(I)%TEXT1 = 'infinitesimal strain'
124 H3D_KEYWORD_SOLID_TENSOR(I)%COMMENT = 'total strain tensor is calculated from 2(initial'
125
126 I = I + 1
127 H3D_KEYWORD_SOLID_TENSOR(I)%KEY3 = 'tens/stress/corner_data'
128 H3D_KEYWORD_SOLID_TENSOR(I)%IS_CORNER_DATA = 1
129 H3D_KEYWORD_SOLID_TENSOR(I)%TEXT1 = 'cornerstress'
130
131 I = I + 1
132 H3D_KEYWORD_SOLID_TENSOR(I)%KEY3 = 'tens/strain/corner_data'
133 h3d_keyword_solid_tensor(i)%IS_CORNER_DATA = 1
134 h3d_keyword_solid_tensor(i)%TEXT1 = 'CornerStrain'
135
136 i = i + 1
137 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/BSTRESS'
138 h3d_keyword_solid_tensor(i)%IS_LAYER = 1
139 h3d_keyword_solid_tensor(i)%IS_LAYER_ALL = 1
140 h3d_keyword_solid_tensor(i)%IS_IR = 1
141 h3d_keyword_solid_tensor(i)%IS_IR_ALL = 1
142 h3d_keyword_solid_tensor(i)%IS_IS = 1
143 h3d_keyword_solid_tensor(i)%IS_IS_ALL = 1
144 h3d_keyword_solid_tensor(i)%IS_IT = 1
145 h3d_keyword_solid_tensor(i)%IS_IT_ALL = 1
146 h3d_keyword_solid_tensor(i)%IS_ID = 1
147 h3d_keyword_solid_tensor(i)%IS_ID_ALL = 1
148 h3d_keyword_solid_tensor(i)%TEXT1 = 'BackStress'
149
150 i = i + 1
151 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRESS/TMAX'
152 h3d_keyword_solid_tensor(i)%TEXT1 = 'Max_Stress'
153 h3d_keyword_solid_tensor(i)%COMMENT = 'Maximum (P1) Stress tensor over time&ipt'
154
155 i = i + 1
156 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN/TMAX'
157 h3d_keyword_solid_tensor(i)%TEXT1 = 'Max_Strain'
158 h3d_keyword_solid_tensor(i)%COMMENT = 'Maximum (P1) Strain tensor over time&ipt'
159
160 i = i + 1
161 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRESS/TMIN'
162 h3d_keyword_solid_tensor(i)%TEXT1 = 'Min_Stress'
163 h3d_keyword_solid_tensor(i)%COMMENT = 'Minimum (P3) Stress tensor over time&ipt'
164
165 i = i + 1
166 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN/TMIN'
167 h3d_keyword_solid_tensor(i)%TEXT1 = 'Min_Strain'
168 h3d_keyword_solid_tensor(i)%COMMENT = 'Minimum (P3) Strain tensor over time&ipt'
169
170 i = i + 1
171 h3d_keyword_solid_tensor(i)%KEY3 = 'TENS/STRAIN/OUTER_AVERAGE'
172 h3d_keyword_solid_tensor(i)%IS_SKIN = 1
173 h3d_keyword_solid_tensor(i)%TEXT1 = 'Outer Average Strain'
174
175 nkey=i
for(i8=*sizetab-1;i8 >=0;i8--)
1.15.0