989 {
991
992 const double vol = getMeasure();
993 auto t_h = getFTensor0FromVec(*
hPtr);
994 auto t_grad_h = getFTensor1FromMat<SPACE_DIM>(*
gradHPtr);
995 auto t_g = getFTensor0FromVec(*
gPtr);
996 auto t_coords = getFTensor1CoordsAtGaussPts();
997
998 auto t_base = data.getFTensor0N();
999 auto t_diff_base = data.getFTensor1DiffN<
SPACE_DIM>();
1000 auto t_w = getFTensor0IntegrationWeight();
1001
1002 for (int gg = 0; gg != nbIntegrationPts; ++gg) {
1003
1004 const double r = t_coords(0);
1006
1007 double set_h;
1009 set_h =
init_h(t_coords(0), t_coords(1), t_coords(2));
1010 else
1011 set_h = t_h;
1012
1013 const double f =
get_f(set_h);
1014
1015 int bb = 0;
1016 for (; bb != nbRows; ++bb) {
1017 locF[bb] += (t_base *
alpha) * (t_g - f);
1018 locF[bb] -= (t_diff_base(
i) * (
eta2 *
alpha)) * t_grad_h(
i);
1019 ++t_base;
1020 ++t_diff_base;
1021 }
1022
1023 for (; bb < nbRowBaseFunctions; ++bb) {
1024 ++t_base;
1025 ++t_diff_base;
1026 }
1027
1028 ++t_h;
1029 ++t_grad_h;
1030 ++t_g;
1031
1032 ++t_coords;
1033 ++t_w;
1034 }
1035
1037 }
#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
const double r
rate factor
constexpr IntegrationType I