729 {
731
732 const double vol = getMeasure();
733 auto t_grad_h = getFTensor1FromMat<SPACE_DIM>(*
gradHPtr);
734 auto t_coords = getFTensor1CoordsAtGaussPts();
735
736 auto t_row_base = row_data.getFTensor0N();
737 auto t_w = getFTensor0IntegrationWeight();
738
739 for (int gg = 0; gg != nbIntegrationPts; gg++) {
740
741 const double alpha = t_w * vol;
742 auto t_mat = getFTensor1FromPtr<U_FIELD_DIM>(&locMat(0, 0));
743
744 int rr = 0;
745 for (; rr != nbRows; ++rr) {
746 auto t_col_base = col_data.getFTensor0N(gg, 0);
747 for (
int cc = 0; cc != nbCols /
U_FIELD_DIM; ++cc) {
748 t_mat(
i) += (t_row_base * t_col_base *
alpha) * t_grad_h(
i);
749 ++t_mat;
750 ++t_col_base;
751 }
752 ++t_row_base;
753 }
754
755 for (; rr < nbRowBaseFunctions; ++rr)
756 ++t_row_base;
757
758 ++t_grad_h;
759 ++t_w;
760 }
761
763 }
#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()
constexpr int U_FIELD_DIM
FTensor::Index< 'i', SPACE_DIM > i