Skip to main content

Initiate

This routine contructs an instance of ReferenceTriangle_.

  • User can specify the coordinates of the triangle.
  • This routine will contruct a three node triangle.

Interface​

MODULE PURE SUBROUTINE Initiate( obj, NSD, XiJ )
  CLASS( ReferenceTriangle_ ), INTENT( INOUT ) :: obj
  INTEGER( I4B ), INTENT( IN ) :: NSD
  REAL( DFP ), INTENT( IN ), OPTIONAL :: XiJ( :, : )
END SUBROUTINE Initiate
xij
  • The shape of xij is [3,3]
  • If xij is not present, then we use the following coordinates:
010
001
000
nsd

Number of spatial dimension.

ReferenceTriangle (Constructor)​

MODULE PURE FUNCTION ReferenceTriangle(NSD, XiJ) RESULT( obj )
  INTEGER( I4B ), INTENT( IN ) :: NSD
  REAL( DFP ), INTENT( IN ), OPTIONAL :: XiJ(:,:)
  TYPE( ReferenceTriangle_ ) :: obj
END FUNCTION ReferenceTriangle

ReferenceTriangle_Pointer​

MODULE PURE FUNCTION ReferenceTriangle_pointer(NSD, XiJ) RESULT( obj )
  INTEGER( I4B ), INTENT( IN ) :: NSD
  REAL( DFP ), INTENT( IN ), OPTIONAL :: XiJ(:,:)
  CLASS( ReferenceTriangle_ ), POINTER :: obj
END FUNCTION ReferenceTriangle_pointer