Skip to main content

ReferencePyramid example 1

Modules and classes​

  • [[ReferencePyramid_]]

Usage​

program main
  use easifembase
  use easifemclasses
  implicit none
  type( test_ReferencePyramid_ ) :: obj
  real( dfp ) :: avar
  integer( i4b ), parameter :: nsd=3_I4B

!!! note "Initiate" Initiate an instance of [[ReferencePyramid_]]

  CALL obj%Initiate(nsd=nsd)
  CALL obj%display( 'Obj : ' )
END PROGRAM main