1006 {
1008
1011 constexpr auto size_symm = (DIM * (DIM + 1)) / 2;
1013
1014 const auto nb_integration_pts = AssemblyDomainEleOp::getGaussPts().size2();
1015 const size_t nb_row_base_functions = row_data.getN().size2();
1016 auto &locMat = AssemblyDomainEleOp::locMat;
1017
1018 auto t_res_flow_dtau =
1019 getFTensor2SymmetricFromMat<DIM>(
commonDataPtr->resFlowDtau);
1020
1021 auto t_L = FTensor::symm_l_tensor<double, DIM>();
1022
1023 auto next = [&]() { ++t_res_flow_dtau; };
1024
1025 auto t_w = AssemblyDomainEleOp::getFTensor0IntegrationWeight();
1026 auto t_row_base = row_data.getFTensor0N();
1027 for (size_t gg = 0; gg != nb_integration_pts; ++gg) {
1028 double alpha = AssemblyDomainEleOp::getMeasure() * t_w;
1029 ++t_w;
1031 t_res_vec(L) = alpha * (t_res_flow_dtau(
i,
j) * t_L(
i,
j, L));
1032 next();
1033
1034 size_t rr = 0;
1035 for (; rr != AssemblyDomainEleOp::nbRows /
size_symm; ++rr) {
1036 auto t_mat =
1038 auto t_col_base = col_data.getFTensor0N(gg, 0);
1039 for (size_t cc = 0; cc != AssemblyDomainEleOp::nbCols; cc++) {
1040 t_mat(L) += t_row_base * t_col_base * t_res_vec(L);
1041 ++t_mat;
1042 ++t_col_base;
1043 }
1044 ++t_row_base;
1045 }
1046 for (; rr != nb_row_base_functions; ++rr)
1047 ++t_row_base;
1048 }
1049
1051}
#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
static auto get_mat_tensor_sym_dscalar(size_t rr, MatrixDouble &mat, FTensor::Number< 2 >)