#include <users_modules/basic_finite_elements/src/ConvectiveMassElement.hpp>

Collaboration diagram for ConvectiveMassElement::MatShellCtx:

Public Member Functions
	MatShellCtx ()

virtual	~MatShellCtx ()

MoFEMErrorCode	iNit ()

MoFEMErrorCode	dEstroy ()

Public Attributes
Mat	K

Mat	M

VecScatter	scatterU

VecScatter	scatterV

double	ts_a

bool	iNitialized

Mat	barK

Vec	u

Vec	v

Vec	Ku

Vec	Mv

Friends
MoFEMErrorCode	MultOpA (Mat A, Vec x, Vec f)

MoFEMErrorCode	ZeroEntriesOp (Mat A)

Detailed Description

Examples: nonlinear_dynamics.cpp.

Definition at line 502 of file ConvectiveMassElement.hpp.

Constructor & Destructor Documentation

◆ MatShellCtx()

ConvectiveMassElement::MatShellCtx::MatShellCtx ( )

Definition at line 2343 of file ConvectiveMassElement.cpp.

2343: iNitialized(false) {}

ConvectiveMassElement::MatShellCtx::iNitialized

bool iNitialized

Definition: ConvectiveMassElement.hpp:508

◆ ~MatShellCtx()

ConvectiveMassElement::MatShellCtx::~MatShellCtx ( )

virtual

Definition at line 2344 of file ConvectiveMassElement.cpp.

                                               {
  if (iNitialized) {
 
    CHKERR dEstroy();
    CHKERRABORT(PETSC_COMM_WORLD, ierr);
  }
}

Member Function Documentation

◆ dEstroy()

MoFEMErrorCode ConvectiveMassElement::MatShellCtx::dEstroy ( )

Definition at line 2369 of file ConvectiveMassElement.cpp.

                                                         {
  MoFEMFunctionBeginHot;
  if (iNitialized) {
 
    CHKERR VecDestroy(&u);
    CHKERR VecDestroy(&Ku);
    CHKERR VecDestroy(&v);
    CHKERR VecDestroy(&Mv);
    CHKERR MatDestroy(&barK);
    iNitialized = false;
  }
  MoFEMFunctionReturnHot(0);
}

◆ iNit()

MoFEMErrorCode ConvectiveMassElement::MatShellCtx::iNit ( )

Examples: nonlinear_dynamics.cpp.

Definition at line 2352 of file ConvectiveMassElement.cpp.

                                                      {
  MoFEMFunctionBeginHot;
  if (!iNitialized) {
 
#if PETSC_VERSION_GE(3, 5, 3)
    CHKERR MatCreateVecs(K, &u, &Ku);
    CHKERR MatCreateVecs(M, &v, &Mv);
#else
    CHKERR MatGetVecs(K, &u, &Ku);
    CHKERR MatGetVecs(M, &v, &Mv);
#endif
    CHKERR MatDuplicate(K, MAT_SHARE_NONZERO_PATTERN, &barK);
    iNitialized = true;
  }
  MoFEMFunctionReturnHot(0);
}