1261 {
1263
1264 const double vol = getMeasure();
1265 auto t_h = getFTensor0FromVec(*
hPtr);
1266
1267 auto t_row_base = row_data.getFTensor0N();
1268 auto t_row_diff_base = row_data.getFTensor1DiffN<
SPACE_DIM>();
1269 auto t_w = getFTensor0IntegrationWeight();
1270 auto t_coords = getFTensor1CoordsAtGaussPts();
1271
1272 for (int gg = 0; gg != nbIntegrationPts; ++gg) {
1273
1274 const double r = t_coords(0);
1276
1277 const double f_dh =
get_f_dh(t_h) * alpha;
1278 const double beta =
eta2 * alpha;
1279
1280 int rr = 0;
1281 for (; rr != nbRows; ++rr) {
1282
1283 auto t_col_base = col_data.getFTensor0N(gg, 0);
1284 auto t_col_diff_base = col_data.getFTensor1DiffN<
SPACE_DIM>(gg, 0);
1285
1286 for (int cc = 0; cc != nbCols; ++cc) {
1287
1288 if constexpr (
I ==
false)
1289 locMat(rr, cc) -= (t_row_base * t_col_base) * f_dh;
1290 locMat(rr, cc) -= (t_row_diff_base(
i) * beta) * t_col_diff_base(
i);
1291
1292 ++t_col_base;
1293 ++t_col_diff_base;
1294 }
1295
1296 ++t_row_base;
1297 ++t_row_diff_base;
1298 }
1299
1300 for (; rr < nbRowBaseFunctions; ++rr) {
1301 ++t_row_base;
1302 ++t_row_diff_base;
1303 }
1304
1305 ++t_h;
1306 ++t_w;
1307 ++t_coords;
1308 }
1309
1311 }
#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