Inherits UserDataOperator.

Collaboration diagram for OpS:

Public Member Functions
	OpS (const bool beta=1)

MoFEMErrorCode	doWork (int row_side, int col_side, EntityType row_type, EntityType col_type, DataForcesAndSourcesCore::EntData &row_data, DataForcesAndSourcesCore::EntData &col_data)
	Do calculations for give operator. More...

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

MoFEMErrorCode	aSsemble (DataForcesAndSourcesCore::EntData &row_data, DataForcesAndSourcesCore::EntData &col_data)
	Assemble local entity block matrix. More...

Private Attributes
const double	bEta
	error code More...

int	nbRows
	number of dofs on rows More...

int	nbCols
	number if dof on column More...

int	nbIntegrationPts
	number of integration points More...

bool	isDiag
	true if this block is on diagonal More...

FTensor::Index< 'i', 3 >	i
	summit Index More...

MatrixDouble	locMat
	local entity block matrix More...

Detailed Description

Examples: analytical_poisson_field_split.cpp.

Definition at line 85 of file analytical_poisson_field_split.cpp.

Constructor & Destructor Documentation

◆ OpS()

OpS::OpS ( const bool beta = 1 )

Examples: analytical_poisson_field_split.cpp.

Definition at line 87 of file analytical_poisson_field_split.cpp.

       : FaceElementForcesAndSourcesCore::UserDataOperator("U", "U", OPROWCOL,
                                                           true),
         bEta(beta) {}

Member Function Documentation

◆ aSsemble()

MoFEMErrorCode OpS::aSsemble	(	DataForcesAndSourcesCore::EntData &	row_data,
		DataForcesAndSourcesCore::EntData &	col_data
	)

private

Assemble local entity block matrix.

Parameters

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

Returns: error code

Examples: analytical_poisson_field_split.cpp.

Definition at line 196 of file analytical_poisson_field_split.cpp.

                                                                             {
     MoFEMFunctionBegin;
     // get pointer to first global index on row
     const int *row_indices = &*row_data.getIndices().data().begin();
     // get pointer to first global index on column
     const int *col_indices = &*col_data.getIndices().data().begin();
     Mat B = getFEMethod()->ksp_B != PETSC_NULL ? getFEMethod()->ksp_B
                                                : getFEMethod()->snes_B;
     // assemble local matrix
     CHKERR MatSetValues(B, nbRows, row_indices, nbCols, col_indices,
                         &*locMat.data().begin(), ADD_VALUES);
     if (!isDiag) {
       // if not diagonal term and since global matrix is symmetric assemble
       // transpose term.
       locMat = trans(locMat);
       CHKERR MatSetValues(B, nbCols, col_indices, nbRows, row_indices,
                           &*locMat.data().begin(), ADD_VALUES);
     }
     MoFEMFunctionReturn(0);
   }

◆ doWork()

MoFEMErrorCode OpS::doWork	(	int	row_side,
		int	col_side,
		EntityType	row_type,
		EntityType	col_type,
		DataForcesAndSourcesCore::EntData &	row_data,
		DataForcesAndSourcesCore::EntData &	col_data
	)

Do calculations for give operator.

Parameters

row_side	row side number (local number) of entity on element
col_side	column side number (local number) of entity on element
row_type	type of row entity MBVERTEX, MBEDGE, MBTRI or MBTET
col_type	type of column entity MBVERTEX, MBEDGE, MBTRI or MBTET
row_data	data for row
col_data	data for column

Returns: error code

Examples: analytical_poisson_field_split.cpp.

Definition at line 102 of file analytical_poisson_field_split.cpp.

                                                                    {
     MoFEMFunctionBegin;
     // get number of dofs on row
     nbRows = row_data.getIndices().size();
     // if no dofs on row, exit that work, nothing to do here
     if (!nbRows)
       MoFEMFunctionReturnHot(0);
     // get number of dofs on column
     nbCols = col_data.getIndices().size();
     // if no dofs on Columbia, exit nothing to do here
     if (!nbCols)
       MoFEMFunctionReturnHot(0);
     // get number of integration points
     nbIntegrationPts = getGaussPts().size2();
     // check if entity block is on matrix diagonal
     if (row_side == col_side && row_type == col_type) {
       isDiag = true; // yes, it is
     } else {
       isDiag = false;
     }
     // integrate local matrix for entity block
     CHKERR iNtegrate(row_data, col_data);
     // assemble local matrix
     CHKERR aSsemble(row_data, col_data);
     MoFEMFunctionReturn(0);
   }

◆ iNtegrate()

MoFEMErrorCode OpS::iNtegrate	(	DataForcesAndSourcesCore::EntData &	row_data,
		DataForcesAndSourcesCore::EntData &	col_data
	)

private

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

Examples: analytical_poisson_field_split.cpp.

Definition at line 151 of file analytical_poisson_field_split.cpp.

                                                                              {
     MoFEMFunctionBegin;
     // set size of local entity bock
     locMat.resize(nbRows, nbCols, false);
     // clear matrix
     locMat.clear();
     // get element area
     double area = getArea() * bEta;
     // get integration weights
     auto t_w = getFTensor0IntegrationWeight();
     // get base function gradient on rows
     auto t_row_base = row_data.getFTensor0N();
     // loop over integration points
     for (int gg = 0; gg != nbIntegrationPts; gg++) {
       // take into account Jacobean
       const double alpha = t_w * area;
       // take fist element to local matrix
       FTensor::Tensor0<FTensor::PackPtr<double *, 1>> a(
           &*locMat.data().begin());
       // loop over rows base functions
       for (int rr = 0; rr != nbRows; rr++) {
         // get column base functions gradient at gauss point gg
         auto t_col_base = col_data.getFTensor0N(gg, 0);
         // loop over columns
         for (int cc = 0; cc != nbCols; cc++) {
           // calculate element of local matrix
           a += alpha * t_row_base * t_col_base;
           ++t_col_base; // move to another gradient of base function on column
           ++a;          // move to another element of local matrix in column
         }
         ++t_row_base; // move to another element of gradient of base function on
                       // row
       }
       ++t_w; // move to another integration weight
     }
     MoFEMFunctionReturn(0);
   }