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