1330 {
1332
1333 const double vol = getMeasure();
1334
1335 auto t_row_base = row_data.getFTensor0N();
1336 auto t_w = getFTensor0IntegrationWeight();
1337 auto t_coords = getFTensor1CoordsAtGaussPts();
1338
1339 for (int gg = 0; gg != nbIntegrationPts; ++gg) {
1340
1341 const double r = t_coords(0);
1343
1344 int rr = 0;
1345 for (; rr != nbRows; ++rr) {
1346 auto t_col_base = col_data.getFTensor0N(gg, 0);
1347 const double beta = alpha * t_row_base;
1348 for (int cc = 0; cc != nbCols; ++cc) {
1349 locMat(rr, cc) += (t_col_base * beta);
1350 ++t_col_base;
1351 }
1352
1353 ++t_row_base;
1354 }
1355
1356 for (; rr < nbRowBaseFunctions; ++rr) {
1357 ++t_row_base;
1358 }
1359
1360 ++t_w;
1361 ++t_coords;
1362 }
1363
1365 }
#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()