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