846 {
848
849 using DL = DataLayoutTraits<DataLayout::GaussByCoeffs>;
850 auto get_adjoint_lambda_at_pts =
853
858
859 OP::locF.resize(row_data.getIndices().size(), false);
860 OP::locF.clear();
861
864 &
m(0, 0), &
m(0, 1), &
m(0, 2));
865 };
866
867 double d_loc_J = 0;
868
869 double triangle_scale = 1.0;
870 if (OP::getFEType() == MBTRI)
871 triangle_scale = 0.5;
872
874 auto sense = bd.getSense();
875
876
877
878
879
881 auto t_w = this->getFTensor0IntegrationWeight();
884 auto t_flux = getFTensor2FromMat<3, 3>(bd.getFlux());
885 auto t_adjoint_lambda_at_pts = get_adjoint_lambda_at_pts();
889 d_loc_J +=
890 (sense * triangle_scale * t_w) *
891 (t_adjoint_lambda_at_pts(
i) * (t_flux(
i,
J) * t_tmp_normal(
J)));
892 ++t_w;
893 ++t_t1;
894 ++t_t2;
895 ++t_flux;
896 ++t_adjoint_lambda_at_pts;
897 }
898 }
899 }
900
901
902
907 }
908
910}
#define FTENSOR_INDEX(DIM, I)
#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
FTensor::Index< 'J', DIM1 > J
FTensor::Index< 'j', 3 > j
FTensor::Index< 'k', 3 > k
constexpr std::enable_if<(Dim0<=2 &&Dim1<=2), Tensor2_Expr< Levi_Civita< T >, T, Dim0, Dim1, i, j > >::type levi_civita(const Index< i, Dim0 > &, const Index< j, Dim1 > &)
levi_civita functions to make for easy adhoc use
DataLayoutTraits< DataLayout::GaussByCoeffs > DL
UBlasMatrix< double > MatrixDouble
decltype(GetFTensor1FromMatImpl< Tensor_Dim, S, DL, M >::get(std::declval< M & >(), 0, 0)) GetFTensor1FromMatType
FTensor::Index< 'm', 3 > m
int nbIntegrationPts
number of integration points
boost::shared_ptr< MatrixDouble > tangent2DiffPtr
boost::shared_ptr< MatrixDouble > tangent1DiffPtr