SpaceTimeDeformClass Module



Contents


Derived Types

type, public :: SpaceTimeFEM_

Components

TypeVisibility AttributesNameInitial
type(STFEMDomain_), public, pointer:: STFEMDomain
real(kind=real64), public, allocatable:: DeformStress(:,:,:)
real(kind=real64), public, allocatable:: DeformStrain(:,:,:)
real(kind=real64), public, allocatable:: DeformStressInit(:,:,:)
real(kind=real64), public, allocatable:: DeformStressMat(:,:,:)
real(kind=real64), public, allocatable:: DeformStressRHS(:,:)
real(kind=real64), public, allocatable:: DeformVecEBETot(:,:)
real(kind=real64), public, allocatable:: DeformVecEBEInc(:,:)
real(kind=real64), public, allocatable:: DeformVecGloTot(:)
real(kind=real64), public, allocatable:: DeformVecGloInc(:)
real(kind=real64), public, allocatable:: TractionVecGlo(:)
real(kind=real64), public, allocatable:: ResidualVecGlo(:)
real(kind=real64), public, allocatable:: InternalVecGlo(:)
real(kind=real64), public, allocatable:: VolInitCurrEBE(:,:)
real(kind=real64), public :: dt
real(kind=real64), public :: error
logical, public :: MeshMove

Type-Bound Procedures

procedure, public :: SetMovingMesh
procedure, public :: Init
procedure, public :: SetMatrix
procedure, public :: SetRHS

Subroutines

public subroutine SetMovingMesh(obj, on_off)

Arguments

Type IntentOptional AttributesName
class(SpaceTimeFEM_), intent(inout) :: obj
logical, intent(in) :: on_off

public subroutine Init(obj)

Arguments

Type IntentOptional AttributesName
class(SpaceTimeFEM_), intent(inout) :: obj

public subroutine SetMatrix(obj)

Arguments

Type IntentOptional AttributesName
class(SpaceTimeFEM_), intent(inout) :: obj

public subroutine GetSTShapeFunc(obj, ElemID, GpID)

Arguments

Type IntentOptional AttributesName
class(SpaceTimeFEM_), intent(inout) :: obj
integer(kind=int32), intent(in), optional :: ElemID
integer(kind=int32), intent(in), optional :: GpID

public subroutine SetElementMatrix(obj)

Arguments

Type IntentOptional AttributesName
class(SpaceTimeFEM_), intent(inout) :: obj

public subroutine SetSpaceTimeShapeFunction(Nobj, Tobj)

Arguments

Type IntentOptional AttributesName
class(ShapeFunction_), intent(inout) :: Nobj
class(ShapeFunction_), intent(inout) :: Tobj

public subroutine SetRHS(obj)

Arguments

Type IntentOptional AttributesName
class(SpaceTimeFEM_), intent(inout) :: obj