Display

  MODULE SUBROUTINE Display(obj, Msg, UnitNo)
    CLASS(ElemshapeData_), INTENT(IN) :: obj
    CHARACTER(LEN=*), INTENT(IN) :: Msg
    INTEGER(I4B), INTENT(IN), OPTIONAL :: UnitNo
  END SUBROUTINE Display

  MODULE SUBROUTINE Display(obj, Msg, UnitNo)
    CLASS(STElemshapeData_), INTENT(IN) :: obj(:)
    CHARACTER(LEN=*), INTENT(IN) :: Msg
    INTEGER(I4B), INTENT(IN), OPTIONAL :: UnitNo
  END SUBROUTINE Display