#include <src/finite_elements/BiLinearFormsIntegrators.hpp>

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

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

Public Member Functions
	OpGradGradSymTensorGradGradImpl (const std::string row_field_name, const std::string col_field_name, boost::shared_ptr< MatrixDouble > mat_D, boost::shared_ptr< Range > ents_ptr=nullptr)

Public Member Functions inherited from MoFEM::OpBaseImpl< A, EleOp >
	OpBaseImpl (const std::string row_field_name, const std::string col_field_name, const OpType type, boost::shared_ptr< Range > ents_ptr=nullptr)

MoFEMErrorCode	doWork (int row_side, int col_side, EntityType row_type, EntityType col_type, EntData &row_data, EntData &col_data)
	Do calculations for the left hand side. More...

MoFEMErrorCode	doWork (int row_side, EntityType row_type, EntData &row_data)
	Do calculations for the right hand side. More...

Public Attributes
FTensor::Index< 'i', SPACE_DIM >	i
	summit Index More...

Public Attributes inherited from MoFEM::OpBaseImpl< A, EleOp >
TimeFun	timeScalingFun
	assumes that time variable is set More...

FEFun	feScalingFun
	assumes that time variable is set More...

boost::shared_ptr< Range >	entsPtr
	Entities on which element is run. More...

Protected Member Functions
MoFEMErrorCode	iNtegrate (EntitiesFieldData::EntData &row_data, EntitiesFieldData::EntData &col_data)
	Integrate grad-grad operator. More...

Protected Member Functions inherited from MoFEM::OpBaseImpl< A, EleOp >
template<int DIM>
FTensor::Tensor1< FTensor::PackPtr< double *, DIM >, DIM >	getNf ()

template<int DIM>
FTensor::Tensor2< FTensor::PackPtr< double *, DIM >, DIM, DIM >	getLocMat (const int rr)

virtual MoFEMErrorCode	aSsemble (EntData &row_data, EntData &col_data, const bool trans)

virtual MoFEMErrorCode	iNtegrate (EntData &data)
	Class dedicated to integrate operator. More...

virtual MoFEMErrorCode	aSsemble (EntData &data)

virtual size_t	getNbOfBaseFunctions (EntitiesFieldData::EntData &data)
	Get number of base functions. More...

Protected Attributes
boost::shared_ptr< MatrixDouble >	matD

Protected Attributes inherited from MoFEM::OpBaseImpl< A, EleOp >
int	nbRows
	number of dofs on rows More...

int	nbCols
	number if dof on column More...

int	nbIntegrationPts
	number of integration points More...

int	nbRowBaseFunctions
	number or row base functions More...

int	rowSide
	row side number More...

int	colSide
	column side number More...

EntityType	rowType
	row type More...

EntityType	colType
	column type More...

bool	assembleTranspose

bool	onlyTranspose

MatrixDouble	locMat
	local entity block matrix More...

MatrixDouble	locMatTranspose
	local entity block matrix More...

VectorDouble	locF
	local entity vector More...

Additional Inherited Members
Public Types inherited from MoFEM::OpBaseImpl< A, EleOp >
using	OpType = typename EleOp::OpType

using	EntData = EntitiesFieldData::EntData

using	MatSetValuesHook = boost::function< MoFEMErrorCode(ForcesAndSourcesCore::UserDataOperator *op_ptr, const EntitiesFieldData::EntData &row_data, const EntitiesFieldData::EntData &col_data, MatrixDouble &m)>

Static Public Attributes inherited from MoFEM::OpBaseImpl< A, EleOp >
static MatSetValuesHook	matSetValuesHook

Detailed Description

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

Definition at line 198 of file BiLinearFormsIntegrators.hpp.

Constructor & Destructor Documentation

◆ OpGradGradSymTensorGradGradImpl()

template<int SPACE_DIM, int S, typename OpBase >

MoFEM::OpGradGradSymTensorGradGradImpl< 1, 1, SPACE_DIM, S, GAUSS, OpBase >::OpGradGradSymTensorGradGradImpl	(	const std::string	row_field_name,
		const std::string	col_field_name,
		boost::shared_ptr< MatrixDouble >	mat_D,
		boost::shared_ptr< Range >	ents_ptr = `nullptr`
	)

inline

Definition at line 201 of file BiLinearFormsIntegrators.hpp.

       : OpBase(row_field_name, col_field_name, OpBase::OPROWCOL, ents_ptr),
         matD(mat_D) {
     if (row_field_name == col_field_name)
       this->sYmm = true;
   }

Member Function Documentation

◆ iNtegrate()

template<int SPACE_DIM, int S, typename OpBase >

MoFEMErrorCode MoFEM::OpGradGradSymTensorGradGradImpl< 1, 1, SPACE_DIM, S, GAUSS, OpBase >::iNtegrate	(	EntitiesFieldData::EntData &	row_data,
		EntitiesFieldData::EntData &	col_data
	)

protectedvirtual

Integrate grad-grad operator.

Parameters

row_data	row data (consist base functions on row entity)
col_data	column data (consist base functions on column entity)

Returns: error code

Reimplemented from MoFEM::OpBaseImpl< A, EleOp >.

Definition at line 987 of file BiLinearFormsIntegrators.hpp.

                                         {
   MoFEMFunctionBegin;
  
   if (OpBase::nbRows && OpBase::nbCols) {
  
     FTensor::Index<'i', SPACE_DIM> i;
     FTensor::Index<'j', SPACE_DIM> j;
     FTensor::Index<'k', SPACE_DIM> k;
     FTensor::Index<'l', SPACE_DIM> l;
  
     auto &row_hessian = row_data.getN(BaseDerivatives::SecondDerivative);
     auto &col_hessian = col_data.getN(BaseDerivatives::SecondDerivative);
  
 #ifndef NDEBUG
     if (row_hessian.size1() != OpBase::nbIntegrationPts) {
       SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                "Wrong number of integration pts (%d != %d)",
                row_hessian.size1(), OpBase::nbIntegrationPts);
     }
     if (row_hessian.size2() !=
         OpBase::nbRowBaseFunctions * SPACE_DIM * SPACE_DIM) {
       SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                "Wrong number of base functions (%d != %d)",
                row_hessian.size2() / (SPACE_DIM * SPACE_DIM),
                OpBase::nbRowBaseFunctions);
     }
     if (row_hessian.size2() < OpBase::nbRows * SPACE_DIM * SPACE_DIM) {
       SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                "Wrong number of base functions (%d < %d)", row_hessian.size2(),
                OpBase::nbRows * SPACE_DIM * SPACE_DIM);
     }
     if (col_hessian.size1() != OpBase::nbIntegrationPts) {
       SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                "Wrong number of integration pts (%d != %d)",
                col_hessian.size1(), OpBase::nbIntegrationPts);
     }
     if (col_hessian.size2() < OpBase::nbCols * SPACE_DIM * SPACE_DIM) {
       SETERRQ2(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                "Wrong number of base functions (%d < %d)", col_hessian.size2(),
                OpBase::nbRows * SPACE_DIM * SPACE_DIM);
     }
 #endif
  
     // get element volume
     double vol = OpBase::getMeasure();
  
     // get intergrayion weights
     auto t_w = OpBase::getFTensor0IntegrationWeight();
  
     auto t_row_diff2 = getFTensor2SymmetricLowerFromPtr<SPACE_DIM>(
         &*row_hessian.data().begin());
  
     // Elastic stiffness tensor (4th rank tensor with minor and major
     // symmetry)
     auto t_D = getFTensor4DdgFromMat<SPACE_DIM, SPACE_DIM, S>(*matD);
  
     // iterate over integration points
     for (int gg = 0; gg != OpBase::nbIntegrationPts; ++gg) {
  
       // calculate scalar weight times element volume
       double a = t_w * vol;
  
       // get sub matrix for the row
       auto m_ptr = &*OpBase::locMat.data().begin();
  
       // iterate over row base functions
       int rr = 0;
       for (; rr != OpBase::nbRows; ++rr) {
  
         FTensor::Tensor2_symmetric<double, SPACE_DIM> t_rowD;
         t_rowD(k, l) = t_D(i, j, k, l) * (a * t_row_diff2(i, j));
  
         // get derivatives of base functions for columns
         auto t_col_diff2 =
             getFTensor2SymmetricLowerFromPtr<SPACE_DIM>(&col_hessian(gg, 0));
  
         // iterate column base functions
         for (int cc = 0; cc != OpBase::nbCols; ++cc) {
  
           // integrate block local stiffens matrix
           *m_ptr += t_rowD(i, j) * t_col_diff2(i, j);
  
           // move to next column base function
           ++t_col_diff2;
  
           // move to next block of local stiffens matrix
           ++m_ptr;
         }
  
         // move to next row base function
         ++t_row_diff2;
       }
  
       for (; rr < OpBase::nbRowBaseFunctions; ++rr)
         ++t_row_diff2;
  
       // move to next integration weight
       ++t_w;
       ++t_D;
     }
   }
  
   MoFEMFunctionReturn(0);
 }