Skip to main content

AbstractPolySpace1D

AbstractPolynomialSpace1D

Abstract class for defining polynomial spaces.

Structure​

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

Methods​

Deallocate​

Destroy the instance.

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

Display​

INTERFACE
  MODULE SUBROUTINE Display(obj, msg, unitno)
    CLASS(AbstractPolynomialSpace1D_), 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(AbstractPolynomialSpace1D_), INTENT(INOUT) :: obj
    INTEGER(I4B), OPTIONAL, INTENT(IN) :: n
  END SUBROUTINE SetParam
END INTERFACE