1130 {
1132
1133 const double vol = getMeasure();
1134
1135 auto t_row_base = row_data.getFTensor0N();
1136 auto t_w = getFTensor0IntegrationWeight();
1137 auto t_coords = getFTensor1CoordsAtGaussPts();
1138
1139 for (int gg = 0; gg != nbIntegrationPts; ++gg) {
1140
1141 const double r = t_coords(0);
1143
1144 int rr = 0;
1145 for (; rr != nbRows; ++rr) {
1146 auto t_col_base = col_data.getFTensor0N(gg, 0);
1147 const double beta =
alpha * t_row_base;
1148 for (int cc = 0; cc != nbCols; ++cc) {
1149 locMat(rr, cc) += (t_col_base * beta);
1150 ++t_col_base;
1151 }
1152
1153 ++t_row_base;
1154 }
1155
1156 for (; rr < nbRowBaseFunctions; ++rr) {
1157 ++t_row_base;
1158 }
1159
1160 ++t_w;
1161 ++t_coords;
1162 }
1163
1165 }
#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()