Initiate

This method initiate an instance of FiniteElement_.

Interface

܀ Interface

INTERFACE
  MODULE SUBROUTINE Initiate(obj, param)
    CLASS(AbstractFE_), INTENT(INOUT) :: obj
    TYPE(ParameterList_), INTENT(IN) :: param
  END SUBROUTINE Initiate
END INTERFACE

️܀ See example

PROGRAM main
USE easifemBase
USE easifemClasses
IMPLICIT NONE
TYPE(FiniteElement_) :: fe
TYPE(ParameterList_) :: param
INTEGER(I4B) :: nsd, elemType, order, iptype
CALL FPL_Init
CALL param%Initiate()
nsd = 1_I4B
elemType = Line2
order = 1
iptype = Equidistance
CALL SetFiniteElementParam( &
  & param=param, &
  & nsd=nsd, &
  & elemType=elemType, &
  & baseContinuity="H1", &
  & baseInterpolation="Lagrange", &
  & iptype=iptype, &
  & basisType=[Monomial], &
  & order=order)
CALL fe%Initiate(param)
CALL Display(fe%mdencode(), "")
CALL param%DEALLOCATE()
CALL FPL_Finalize
END PROGRAM main

See results

Finite Element

nsd	1
feType	1
elemType	Line2
ipType	1
basisType	0, 0, 0
alpha	0, 0, 0
beta	0, 0, 0
lambda	0, 0, 0
dofType	1, 1, 1, 1
transformType	1
baseContinuity	H1
baseInterpolion	Lagrange
refElemDomain	BIUNIT
isIsotropicOrder	I
isAnisotropicOrder	I
isEdgeOrder	I
isFaceOrder	I
isCellOrder	I
edgeOrder
faceOrder
cellOrder

Reference Element

Element type	Line2
Xidimension	1
NSD	1
tPoints	2
tLines	1
tSurfaces	0
tVolumes	0
BaseContinuity	H1
BaseInterpolation	LagrangeInterpolation

Nodal Coordinates:

x	-1	1

PointTopology( 1 ) :

Element type	Point1
Xidimension	0
Nptrs	1

PointTopology( 2 ) :

Element type	Point1
Xidimension	0
Nptrs	2

EdgeTopology( 1 ) :

Element type	Line2
Xidimension	1
Nptrs	1	2

↢