#include "src/finite_elements/BiLinearFormsIntegratorsImpl.hpp"

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

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

Public Member Functions
	OpGradGradTensorGradGradImpl (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)
	Constructor for base operator implementation.

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.

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

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

Protected Member Functions inherited from MoFEM::OpBaseImpl< A, EleOp >
template<int DIM>
auto	getNf ()
	Get local vector tensor for assembly.

template<int DIM>
FTensor::Tensor2< FTensor::PackPtr< double *, DIM >, DIM, DIM >	getLocMat (const int rr)
	Get local matrix tensor for assembly.

virtual MoFEMErrorCode	aSsemble (EntData &row_data, EntData &col_data, const bool trans)
	Assemble local matrix into global matrix.

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

virtual MoFEMErrorCode	aSsemble (EntData &data)
	Assemble local vector into global vector.

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

Protected Attributes
boost::shared_ptr< MatrixDouble >	matD

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

int	nbCols
	number if dof on column

int	nbIntegrationPts
	number of integration points

int	nbRowBaseFunctions
	number or row base functions

int	rowSide
	row side number

int	colSide
	column side number

EntityType	rowType
	row type

EntityType	colType
	column type

bool	assembleTranspose

bool	onlyTranspose

MatrixDouble	locMat
	local entity block matrix

MatrixDouble	locMatTranspose
	local entity block matrix

VectorDouble	locF
	local entity vector

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)>

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

FEFun	feScalingFun
	set by fe entity handle

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

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

Detailed Description

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

Definition at line 279 of file BiLinearFormsIntegratorsImpl.hpp.

Constructor & Destructor Documentation

◆ OpGradGradTensorGradGradImpl()

template<int FIELD_DIM, int SPACE_DIM, int S, typename OpBase >

MoFEM::OpGradGradTensorGradGradImpl< 1, FIELD_DIM, SPACE_DIM, S, GAUSS, OpBase >::OpGradGradTensorGradGradImpl	(	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 281 of file BiLinearFormsIntegratorsImpl.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 FIELD_DIM, int SPACE_DIM, int S, typename OpBase >

MoFEMErrorCode MoFEM::OpGradGradTensorGradGradImpl< 1, FIELD_DIM, SPACE_DIM, S, GAUSS, OpBase >::iNtegrate	(	EntitiesFieldData::EntData &	,
		EntitiesFieldData::EntData &
	)

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 1143 of file BiLinearFormsIntegratorsImpl.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;
    FTensor::Index<'I', FIELD_DIM> I;
    FTensor::Index<'J', FIELD_DIM> J;
 
    auto &row_hessian = row_data.getN(BaseDerivatives::SecondDerivative);
    auto &col_hessian = col_data.getN(BaseDerivatives::SecondDerivative);
 
#ifndef NDEBUG
    if (row_hessian.size1() != OpBase::nbIntegrationPts) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
              "Wrong number of integration pts (%zu != %d)", row_hessian.size1(),
              OpBase::nbIntegrationPts);
    }
    if (row_hessian.size2() !=
        OpBase::nbRowBaseFunctions * SPACE_DIM * SPACE_DIM) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
              "Wrong number of base functions (%zu != %d)",
              row_hessian.size2() / (SPACE_DIM * SPACE_DIM),
              OpBase::nbRowBaseFunctions);
    }
    if (row_hessian.size2() < OpBase::nbRows * SPACE_DIM * SPACE_DIM) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
              "Wrong number of base functions (%zu < %d)", row_hessian.size2(),
              OpBase::nbRows * SPACE_DIM * SPACE_DIM);
    }
    if (col_hessian.size1() != OpBase::nbIntegrationPts) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
              "Wrong number of integration pts (%zu != %d)", col_hessian.size1(),
              OpBase::nbIntegrationPts);
    }
    if (col_hessian.size2() < OpBase::nbCols * SPACE_DIM * SPACE_DIM) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
              "Wrong number of base functions (%zu < %d)", col_hessian.size2(),
              OpBase::nbCols * 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
    using DL = DataLayoutTraits<DataLayout::GaussByCoeffs>;
    auto get_D_at_pts = MatrixSizeHelper<
        GetFTensor4FromMatType<SPACE_DIM, SPACE_DIM, SPACE_DIM, SPACE_DIM, S,
                               DL>,
        DL>::get(*matD, OpBase::nbIntegrationPts);
    auto t_D_at_pts = get_D_at_pts();
 
    constexpr auto t_kd = FTensor::Kronecker_Delta<double>();
 
    // 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_at_pts(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));
 
        auto t_mat = getFTensor2FromPtr<FIELD_DIM, FIELD_DIM, FIELD_DIM>(
            &OpBase::locMat(FIELD_DIM * rr, 0));
 
        // iterate column base functions
        for (int cc = 0; cc != OpBase::nbCols; ++cc) {
 
          // integrate block local stiffens matrix
          t_mat(I, J) += (t_rowD(i, j) * t_col_diff2(i, j)) * t_kd(I, J);
 
          // move to next column base function
          ++t_col_diff2;
 
          // move to next block of local stiffens matrix
          ++t_mat;
        }
 
        // 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_at_pts;
    }
  }
 
  MoFEMFunctionReturn(0);
}