IsTriangle

Returns true if element is a Triangle element

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