SpaceTimeDeformClass Module

Uses

Derived Types

type, public :: SpaceTimeFEM_

Components

Type	Visibility	Attributes		Name		Initial
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	Intent	Optional	Attributes		Name
class(SpaceTimeFEM_),	intent(inout)			::	obj
logical,	intent(in)			::	on_off

public subroutine Init(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpaceTimeFEM_),	intent(inout)			::	obj

public subroutine SetMatrix(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpaceTimeFEM_),	intent(inout)			::	obj

public subroutine GetSTShapeFunc(obj, ElemID, GpID)

Arguments

Type	Intent	Optional	Attributes		Name
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	Intent	Optional	Attributes		Name
class(SpaceTimeFEM_),	intent(inout)			::	obj

public subroutine SetSpaceTimeShapeFunction(Nobj, Tobj)

Arguments

Type	Intent	Optional	Attributes		Name
class(ShapeFunction_),	intent(inout)			::	Nobj
class(ShapeFunction_),	intent(inout)			::	Tobj

public subroutine SetRHS(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpaceTimeFEM_),	intent(inout)			::	obj