1061 {
1063
1064 const double vol = getMeasure();
1065 auto t_h = getFTensor0FromVec(*
hPtr);
1066
1067 auto t_row_base = row_data.getFTensor0N();
1068 auto t_row_diff_base = row_data.getFTensor1DiffN<
SPACE_DIM>();
1069 auto t_w = getFTensor0IntegrationWeight();
1070 auto t_coords = getFTensor1CoordsAtGaussPts();
1071
1072 for (int gg = 0; gg != nbIntegrationPts; ++gg) {
1073
1074 const double r = t_coords(0);
1076
1079
1080 int rr = 0;
1081 for (; rr != nbRows; ++rr) {
1082
1083 auto t_col_base = col_data.getFTensor0N(gg, 0);
1084 auto t_col_diff_base = col_data.getFTensor1DiffN<
SPACE_DIM>(gg, 0);
1085
1086 for (int cc = 0; cc != nbCols; ++cc) {
1087
1088 if constexpr (
I ==
false)
1089 locMat(rr, cc) -= (t_row_base * t_col_base) * f_dh;
1090 locMat(rr, cc) -= (t_row_diff_base(
i) * beta) * t_col_diff_base(
i);
1091
1092 ++t_col_base;
1093 ++t_col_diff_base;
1094 }
1095
1096 ++t_row_base;
1097 ++t_row_diff_base;
1098 }
1099
1100 for (; rr < nbRowBaseFunctions; ++rr) {
1101 ++t_row_base;
1102 ++t_row_diff_base;
1103 }
1104
1105 ++t_h;
1106 ++t_w;
1107 ++t_coords;
1108 }
1109
1111 }
#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
constexpr IntegrationType I