Skip to main content

ReferencePrism example 1

Modules and classes​

  • [[ReferencePrism_]]

Usage​

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

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

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