IsSerendipityElement

Returns true if element is a SerendipityElement element

  MODULE PURE FUNCTION isSerendipityElement(ElemType) RESULT(Ans)
    LOGICAL(LGT) :: Ans
    INTEGER(I4B), INTENT(IN) :: ElemType
  END FUNCTION isSerendipityElement