162{
163 double lambda = bulk_modulus_ - 2.0 * shear_modulus_ / 3.0;
164 double mu = shear_modulus_;
165 double two_mu = 2.0 * shear_modulus_;
166
167 for (int int_pt = 0; int_pt < num_pts; int_pt++) {
168 int offset = int_pt * 36;
169 material_tangent[offset] = lambda + two_mu;
170 material_tangent[offset + 1] = lambda;
171 material_tangent[offset + 2] = lambda;
172 material_tangent[offset + 3] = 0.0;
173 material_tangent[offset + 4] = 0.0;
174 material_tangent[offset + 5] = 0.0;
175 material_tangent[offset + 6] = lambda;
176 material_tangent[offset + 7] = lambda + two_mu;
177 material_tangent[offset + 8] = lambda;
178 material_tangent[offset + 9] = 0.0;
179 material_tangent[offset + 10] = 0.0;
180 material_tangent[offset + 11] = 0.0;
181 material_tangent[offset + 12] = lambda;
182 material_tangent[offset + 13] = lambda;
183 material_tangent[offset + 14] = lambda + two_mu;
184 material_tangent[offset + 15] = 0.0;
185 material_tangent[offset + 16] = 0.0;
186 material_tangent[offset + 17] = 0.0;
187 material_tangent[offset + 18] = 0.0;
188 material_tangent[offset + 19] = 0.0;
189 material_tangent[offset + 20] = 0.0;
190 material_tangent[offset + 21] = mu;
191 material_tangent[offset + 22] = 0.0;
192 material_tangent[offset + 23] = 0.0;
193 material_tangent[offset + 24] = 0.0;
194 material_tangent[offset + 25] = 0.0;
195 material_tangent[offset + 26] = 0.0;
196 material_tangent[offset + 27] = 0.0;
197 material_tangent[offset + 28] = mu;
198 material_tangent[offset + 29] = 0.0;
199 material_tangent[offset + 30] = 0.0;
200 material_tangent[offset + 31] = 0.0;
201 material_tangent[offset + 32] = 0.0;
202 material_tangent[offset + 33] = 0.0;
203 material_tangent[offset + 34] = 0.0;
204 material_tangent[offset + 35] = mu;
205 }
206}