346{
347 double lambda = bulk_modulus_ - 2.0 * shear_modulus_ / 3.0;
348 double mu = shear_modulus_;
349 double two_mu = 2.0 * shear_modulus_;
350
351 for (int int_pt = 0; int_pt < num_pts; int_pt++) {
352 int offset = int_pt * 36;
353 material_tangent[offset] = lambda + two_mu;
354 material_tangent[offset + 1] = lambda;
355 material_tangent[offset + 2] = lambda;
356 material_tangent[offset + 3] = 0.0;
357 material_tangent[offset + 4] = 0.0;
358 material_tangent[offset + 5] = 0.0;
359 material_tangent[offset + 6] = lambda;
360 material_tangent[offset + 7] = lambda + two_mu;
361 material_tangent[offset + 8] = lambda;
362 material_tangent[offset + 9] = 0.0;
363 material_tangent[offset + 10] = 0.0;
364 material_tangent[offset + 11] = 0.0;
365 material_tangent[offset + 12] = lambda;
366 material_tangent[offset + 13] = lambda;
367 material_tangent[offset + 14] = lambda + two_mu;
368 material_tangent[offset + 15] = 0.0;
369 material_tangent[offset + 16] = 0.0;
370 material_tangent[offset + 17] = 0.0;
371 material_tangent[offset + 18] = 0.0;
372 material_tangent[offset + 19] = 0.0;
373 material_tangent[offset + 20] = 0.0;
374 material_tangent[offset + 21] = mu;
375 material_tangent[offset + 22] = 0.0;
376 material_tangent[offset + 23] = 0.0;
377 material_tangent[offset + 24] = 0.0;
378 material_tangent[offset + 25] = 0.0;
379 material_tangent[offset + 26] = 0.0;
380 material_tangent[offset + 27] = 0.0;
381 material_tangent[offset + 28] = mu;
382 material_tangent[offset + 29] = 0.0;
383 material_tangent[offset + 30] = 0.0;
384 material_tangent[offset + 31] = 0.0;
385 material_tangent[offset + 32] = 0.0;
386 material_tangent[offset + 33] = 0.0;
387 material_tangent[offset + 34] = 0.0;
388 material_tangent[offset + 35] = mu;
389 }
390}