Implement the following method in ReferencePrism_Method.F90
INTERFACE
MODULE PURE SUBROUTINE highOrderElement_Prism(RefElem, Order, obj, ipType)
CLASS(ReferenceElement_), INTENT(IN) :: RefElem
INTEGER(I4B), INTENT(IN) :: Order
CLASS(ReferenceElement_), INTENT(INOUT) :: obj
INTEGER(I4B), INTENT(IN) :: ipType
END SUBROUTINE highOrderElement_Prism
END INTERFACE
Implement the following method in
ReferencePrism_Method.F90INTERFACE MODULE PURE SUBROUTINE highOrderElement_Prism(RefElem, Order, obj, ipType) CLASS(ReferenceElement_), INTENT(IN) :: RefElem INTEGER(I4B), INTENT(IN) :: Order CLASS(ReferenceElement_), INTENT(INOUT) :: obj INTEGER(I4B), INTENT(IN) :: ipType END SUBROUTINE highOrderElement_Prism END INTERFACE