#include <src/finite_elements/LinearFormsIntegratorsImpl.hpp>

Inheritance diagram for MoFEM::OpNormalMixVecTimesScalarImpl< 3, GAUSS, OpBase >:

Collaboration diagram for MoFEM::OpNormalMixVecTimesScalarImpl< 3, GAUSS, OpBase >:

Public Member Functions
	OpNormalMixVecTimesScalarImpl (const std::string field_name, ScalarFun source_fun=[](double, double, double) constexpr { return 1;}, boost::shared_ptr< Range > ents_ptr=nullptr)

Protected Member Functions
MoFEMErrorCode	iNtegrate (EntitiesFieldData::EntData &data)

Protected Attributes
ScalarFun	sourceFun

FTensor::Index< 'i', 3 >	i

Detailed Description

template<typename OpBase>
struct MoFEM::OpNormalMixVecTimesScalarImpl< 3, GAUSS, OpBase >

Definition at line 395 of file LinearFormsIntegratorsImpl.hpp.

Constructor & Destructor Documentation

◆ OpNormalMixVecTimesScalarImpl()

template<typename OpBase >

MoFEM::OpNormalMixVecTimesScalarImpl< 3, GAUSS, OpBase >::OpNormalMixVecTimesScalarImpl	(	const std::string	field_name,
		ScalarFun	source_fun = `[](double, double, double) constexpr { return 1; }`,
		boost::shared_ptr< Range >	ents_ptr = `nullptr`
	)

inline

Definition at line 396 of file LinearFormsIntegratorsImpl.hpp.

                                                                   { return 1; },
       boost::shared_ptr<Range> ents_ptr = nullptr)
       : OpBase(field_name, field_name, OpBase::OPROW, ents_ptr),
         sourceFun(source_fun) {}

Member Function Documentation

◆ iNtegrate()

template<typename OpBase >

MoFEMErrorCode MoFEM::OpNormalMixVecTimesScalarImpl< 3, GAUSS, OpBase >::iNtegrate ( EntitiesFieldData::EntData & data )

protected

Definition at line 1043 of file LinearFormsIntegratorsImpl.hpp.

                                         {
   MoFEMFunctionBegin;
  
   const size_t nb_base_functions = row_data.getN().size2() / 3;
   // get element volume
   // get integration weights
   auto t_w = OpBase::getFTensor0IntegrationWeight();
   // get base function gradient on rows
   auto t_row_base = row_data.getFTensor1N<3>();
   // get coordinate at integration points
   auto t_coords = OpBase::getFTensor1CoordsAtGaussPts();
   // get normal
   auto t_normal = OpBase::getFTensor1NormalsAtGaussPts();
   double a = 1;
   if (this->getNumeredEntFiniteElementPtr()->getEntType() == MBTRI)
     a *= 2;
   // loop over integration points
   for (int gg = 0; gg != OpBase::nbIntegrationPts; gg++) {
     // take into account Jacobian
     const double alpha =
         t_w * sourceFun(t_coords(0), t_coords(1), t_coords(2)) / a;
     // loop over rows base functions
     int rr = 0;
     for (; rr != OpBase::nbRows; ++rr) {
       OpBase::locF[rr] += alpha * t_row_base(i) * t_normal(i);
       ++t_row_base;
     }
     for (; rr < nb_base_functions; ++rr)
       ++t_row_base;
     ++t_coords;
     ++t_w; // move to another integration weight
     ++t_normal;
   }
   MoFEMFunctionReturn(0);
 }