anchor.diff:         CASE ( ELEMENT_WEDGE15 )
            NumNodes = 15
          CASE DEFAULT
  -         write(0,*)'NumNodes: internal error: invalid argument ', Xelement
  -         call progabort('')
  +         CALL ProgAbort('NumNodes: internal error: invalid argument '//TRIM(Num2LStr(Xelement)))
        END SELECT
      END FUNCTION NumNodes
   
  
positive.code: 
     END TYPE MeshType
  
    CONTAINS
     INTEGER FUNCTION NumNodes( Xelement )
       INTEGER, INTENT(IN) :: Xelement
  
  
negative.code:      TYPE(ElemRecType), POINTER  :: Neighbors(:) => NULL() ! neighbor list
     END TYPE ElemRecType
  
     TYPE, PUBLIC :: ElemTabType   ! element table
       INTEGER                         :: nelem, maxelem
       INTEGER                         :: Xelement     ! which kind of element
       TYPE(ElemRecType), POINTER      :: Elements(:) => NULL()
  