Deallocate

  MODULE PURE SUBROUTINE Deallocate(obj)
    CLASS(ReferenceTopology_), INTENT(INOUT) :: obj
  END SUBROUTINE Deallocate

  MODULE PURE SUBROUTINE Deallocate(obj)
    CLASS(ReferenceElement_), INTENT(INOUT) :: obj
  END SUBROUTINE Deallocate