m_MEF90_HookesLawZero Module


Uses


Derived Types

type, public, extends(MEF90HookesLaw) ::  MEF90HookesLawZero

Components

Type Visibility Attributes Name Initial
integer(kind=C_INT32_T), public :: comm
character(kind=c_char, len=MEF90MXSTRLEN), public :: name = "NULL"
character(kind=c_char, len=MEF90MXSTRLEN), public :: prefix

Type-Bound Procedures

procedure, public :: mult => MEF90HookesLawZero_mult
procedure, public :: multmult => MEF90HookesLawZero_multmult
procedure, public :: setFromOptions => MEF90HookesLawZero_setFromOptions
procedure, public, pass(self) :: view => MEF90Object_view
procedure, public :: view_internal => MEF90HookesLawZero_View

Subroutines

private subroutine MEF90HookesLawZero_View(self, viewer, ierr)

Author
Blaise Bourdin (2025, bourdin@mcmaster.ca)

MEF90HookesLawZero_view: the default viewer for a MEF90_DefMechAT_Type

Arguments

Type IntentOptional Attributes Name
class(MEF90HookesLawZero), intent(in) :: self
type(tPetscViewer), intent(in) :: viewer
integer(kind=C_INT32_T), intent(inout) :: ierr

private subroutine MEF90HookesLawZero_mult(A, phi, Aphi, ierr)

Arguments

Type IntentOptional Attributes Name
class(MEF90HookesLawZero), intent(in) :: A
class(mef90Mat), intent(in) :: phi
class(mef90Mat), intent(out), allocatable :: Aphi
integer(kind=C_INT32_T), intent(inout) :: ierr

private subroutine MEF90HookesLawZero_multmult(A, phi, psi, Aphipsi, ierr)

Arguments

Type IntentOptional Attributes Name
class(MEF90HookesLawZero), intent(in) :: A
class(mef90Mat), intent(in) :: phi
class(mef90Mat), intent(in) :: psi
real(kind=C_DOUBLE), intent(out) :: Aphipsi
integer(kind=C_INT32_T), intent(inout) :: ierr

private subroutine MEF90HookesLawZero_setFromOptions(self, ierr)

Author
Blaise Bourdin (2025, bourdin@mcmaster.ca)

MEF90HookesLawZero_setFromOptions: initializes a MEF90HookesLawZero from options

Arguments

Type IntentOptional Attributes Name
class(MEF90HookesLawZero), intent(inout) :: self
integer(kind=C_INT32_T), intent(inout) :: ierr