486 {
488
489 const double vol = getMeasure();
490 auto t_u = getFTensor1FromMat<U_FIELD_DIM>(*
uPtr);
491 auto t_grad_u = getFTensor2FromMat<U_FIELD_DIM, SPACE_DIM>(*
gradUPtr);
492 auto t_h = getFTensor0FromVec(*
hPtr);
493 auto t_coords = getFTensor1CoordsAtGaussPts();
494
495 auto t_row_base = row_data.getFTensor0N();
496 auto t_row_diff_base = row_data.getFTensor1DiffN<
SPACE_DIM>();
497
498 auto t_w = getFTensor0IntegrationWeight();
499
500 auto get_mat = [&](const int rr) {
501 return getFTensor2FromArray<SPACE_DIM, SPACE_DIM, SPACE_DIM>(locMat, rr);
502 };
503
504 auto ts_a = getTSa();
506
507 for (int gg = 0; gg != nbIntegrationPts; gg++) {
508
509 const double r = t_coords(0);
513
515 const double beta1 = beta0 * ts_a;
517
518 int rr = 0;
520
522 auto t_col_base = col_data.getFTensor0N(gg, 0);
523 auto t_col_diff_base = col_data.getFTensor1DiffN<
SPACE_DIM>(gg, 0);
524
526
527
528
529 t_d_stress(
l,
j,
k) = t_D(
i,
j,
k,
l) * (
alpha * t_row_diff_base(
i));
530
531 for (
int cc = 0; cc != nbCols /
U_FIELD_DIM; ++cc) {
532
533 const double bb = t_row_base * t_col_base;
534
535 t_mat(
i,
j) += (beta1 * bb) *
t_kd(
i,
j);
536 t_mat(
i,
j) += (beta0 * bb) * t_grad_u(
i,
j);
538 (beta0 * t_row_base) *
t_kd(
i,
j) * (t_col_diff_base(
k) * t_u(
k));
539 t_mat(
i,
j) += t_d_stress(
i,
j,
k) * t_col_diff_base(
k);
540
542 t_mat(0, 0) += (bb * (
alpha / t_coords(0))) * (2 *
mu);
543 }
544
545 ++t_mat;
546 ++t_col_base;
547 ++t_col_diff_base;
548 }
549
550 ++t_row_base;
551 ++t_row_diff_base;
552 }
553
554 for (; rr < nbRowBaseFunctions; ++rr) {
555 ++t_row_diff_base;
556 ++t_row_base;
557 }
558
559 ++t_u;
560 ++t_grad_u;
561 ++t_h;
562
563 ++t_coords;
564 ++t_w;
565 }
566
568 }
Kronecker Delta class symmetric.
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
constexpr int U_FIELD_DIM
FTensor::Index< 'i', SPACE_DIM > i
constexpr CoordinateTypes coord_type
FTensor::Index< 'l', 3 > l
FTensor::Index< 'j', 3 > j
FTensor::Index< 'k', 3 > k