Skip to main content

AbstractPolySpace3D

AbstractPolynomialSpace3D

Abstract class for defining polynomial spaces.

Structure​

TYPE, ABSTRACT :: AbstractPolynomialSpace3D_
  PRIVATE
  INTEGER(I4B) :: n = 0_I4B
  !! order of space
END TYPE AbstractPolynomialSpace3D_

Methods​

Deallocate​

Destroy the instance.

INTERFACE
  MODULE SUBROUTINE Deallocate(obj)
    CLASS(AbstractPolynomialSpace3D_), INTENT(INOUT) :: obj
  END SUBROUTINE Deallocate
END INTERFACE

Display​

INTERFACE
  MODULE SUBROUTINE Display(obj, msg, unitno)
    CLASS(AbstractPolynomialSpace3D_), INTENT(IN) :: obj
    CHARACTER(LEN=*), INTENT(IN) :: msg
    INTEGER(I4B), OPTIONAL, INTENT(IN) :: unitno
  END SUBROUTINE Display
END INTERFACE

SetParam​

INTERFACE
  MODULE PURE SUBROUTINE SetParam(obj, n)
    CLASS(AbstractPolynomialSpace3D_), INTENT(INOUT) :: obj
    INTEGER(I4B), OPTIONAL, INTENT(IN) :: n
  END SUBROUTINE SetParam
END INTERFACE