#include <src/finite_elements/LinearFormsIntegratorsImpl.hpp>

Inheritance diagram for MoFEM::OpBaseTimesScalarImpl< 1, S, GAUSS, OpBase >:

Collaboration diagram for MoFEM::OpBaseTimesScalarImpl< 1, S, GAUSS, OpBase >:

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

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

Protected Attributes
ScalarFun	betaCoeff

boost::shared_ptr< VectorDouble >	sourceVec

Detailed Description

template<int S, typename OpBase>
struct MoFEM::OpBaseTimesScalarImpl< 1, S, GAUSS, OpBase >

Definition at line 123 of file LinearFormsIntegratorsImpl.hpp.

Constructor & Destructor Documentation

◆ OpBaseTimesScalarImpl()

template<int S, typename OpBase >

MoFEM::OpBaseTimesScalarImpl< 1, S, GAUSS, OpBase >::OpBaseTimesScalarImpl	(	const std::string	field_name,
		boost::shared_ptr< VectorDouble >	vec,
		ScalarFun	beta_coeff = `[](double, double, double) constexpr { return 1; }`,
		boost::shared_ptr< Range >	ents_ptr = `nullptr`
	)

inline

Definition at line 125 of file LinearFormsIntegratorsImpl.hpp.

                                                                   { return 1; },
       boost::shared_ptr<Range> ents_ptr = nullptr)
       : OpBase(field_name, field_name, OpBase::OPROW, ents_ptr), sourceVec(vec),
         betaCoeff(beta_coeff) {}

Member Function Documentation

◆ iNtegrate()

template<int S, typename OpBase >

MoFEMErrorCode MoFEM::OpBaseTimesScalarImpl< 1, S, GAUSS, OpBase >::iNtegrate ( EntitiesFieldData::EntData & data )

protected

Definition at line 597 of file LinearFormsIntegratorsImpl.hpp.

                                         {
   MoFEMFunctionBegin;
  
   // get element volume
   const double vol = OpBase::getMeasure();
   // get integration weights
   auto t_w = OpBase::getFTensor0IntegrationWeight();
   // get base function gradient on rows
   auto t_row_base = row_data.getFTensor0N();
   // get vector values
   auto t_vec = getFTensor0FromVec<S>(*sourceVec);
  
 #ifndef NDEBUG
   if (sourceVec->size() != OpBase::nbIntegrationPts) {
     SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
              "Wrong number of integration points %d != %d",
              OpBase::nbIntegrationPts, sourceVec->size());
   }
 #endif
  
   // get coords
   auto t_coords = OpBase::getFTensor1CoordsAtGaussPts();
   // loop over integration points
   for (int gg = 0; gg != OpBase::nbIntegrationPts; gg++) {
     // take into account Jacobian
     const double alpha =
         t_w * vol * betaCoeff(t_coords(0), t_coords(1), t_coords(2));
     // loop over rows base functions
     int rr = 0;
     for (; rr != OpBase::nbRows; ++rr) {
       OpBase::locF[rr] += alpha * t_row_base * t_vec;
       ++t_row_base;
     }
     for (; rr < OpBase::nbRowBaseFunctions; ++rr)
       ++t_row_base;
     ++t_w; // move to another integration weight
     ++t_vec;
     ++t_coords;
   }
   MoFEMFunctionReturn(0);
 }