ElementType

Returns element name in integer from element name

  MODULE PURE FUNCTION Element_Type(ElemName) RESULT(Ans)
    CHARACTER(LEN=*), INTENT(IN) :: ElemName
    INTEGER(I4B) :: Ans
  END FUNCTION Element_Type