1322 {
1324
1325 const double vol = getMeasure();
1326 auto t_h = getFTensor0FromVec(*
hPtr);
1327
1328 auto t_row_diff_base = row_data.getFTensor1DiffN<
SPACE_DIM>();
1329 auto t_w = getFTensor0IntegrationWeight();
1330 auto t_coords = getFTensor1CoordsAtGaussPts();
1331
1332 for (int gg = 0; gg != nbIntegrationPts; gg++) {
1333
1334 const double r = t_coords(0);
1336
1337 double set_h;
1339 set_h =
init_h(t_coords(0), t_coords(1), t_coords(2));
1340 else
1341 set_h = t_h;
1342
1343 auto m =
get_M(set_h) * alpha;
1344
1345 int rr = 0;
1346 for (; rr != nbRows; ++rr) {
1347 auto t_col_diff_base = col_data.getFTensor1DiffN<
SPACE_DIM>(gg, 0);
1348
1349 for (int cc = 0; cc != nbCols; ++cc) {
1350 locMat(rr, cc) += (t_row_diff_base(
i) * t_col_diff_base(
i)) *
m;
1351
1352 ++t_col_diff_base;
1353 }
1354
1355 ++t_row_diff_base;
1356 }
1357
1358 for (; rr < nbRowBaseFunctions; ++rr) {
1359 ++t_row_diff_base;
1360 }
1361
1362 ++t_h;
1363 ++t_w;
1364 ++t_coords;
1365 }
1366
1368 }
#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()
auto cylindrical
[cylindrical]
auto init_h
Initialisation function.
FTensor::Index< 'i', SPACE_DIM > i
constexpr IntegrationType I
FTensor::Index< 'm', 3 > m