1094 {
1096
1099 constexpr auto size_symm = (DIM * (DIM + 1)) / 2;
1101
1102 const auto nb_integration_pts = AssemblyDomainEleOp::getGaussPts().size2();
1103 const auto nb_row_base_functions = row_data.getN().size2();
1104
1105 auto t_c_dstrain =
1106 getFTensor2SymmetricFromMat<SPACE_DIM>(
commonDataPtr->resCdStrain);
1107 auto t_c_dplastic_strain =
1108 getFTensor2SymmetricFromMat<SPACE_DIM>(
commonDataPtr->resCdPlasticStrain);
1109
1110 auto next = [&]() {
1111 ++t_c_dstrain;
1112 ++t_c_dplastic_strain;
1113 };
1114
1115 auto t_L = FTensor::symm_l_tensor<double, SPACE_DIM>();
1116
1117 auto t_w = AssemblyDomainEleOp::getFTensor0IntegrationWeight();
1118 auto t_row_base = row_data.getFTensor0N();
1119 for (auto gg = 0; gg != nb_integration_pts; ++gg) {
1120 const double alpha = AssemblyDomainEleOp::getMeasure() * t_w;
1121 ++t_w;
1122
1124 t_res_vec(L) =
1125 t_L(
i,
j, L) * (t_c_dplastic_strain(
i,
j) - t_c_dstrain(
i,
j));
1126 next();
1127
1130 size_t rr = 0;
1131 for (; rr != AssemblyDomainEleOp::nbRows; ++rr) {
1132 const auto row_base = alpha * t_row_base;
1133 auto t_col_base = col_data.getFTensor0N(gg, 0);
1134 for (
size_t cc = 0; cc != AssemblyDomainEleOp::nbCols /
size_symm; cc++) {
1135 t_mat(L) += (row_base * t_col_base) * t_res_vec(L);
1136 ++t_mat;
1137 ++t_col_base;
1138 }
1139 ++t_row_base;
1140 }
1141 for (; rr != nb_row_base_functions; ++rr)
1142 ++t_row_base;
1143 }
1144
1146}
#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()
FTensor::Index< 'i', SPACE_DIM > i
FTensor::Index< 'j', 3 > j
auto get_mat_scalar_dtensor_sym(MatrixDouble &mat, FTensor::Number< 2 >)