anchor.diff:        DATA TA/1.745329252D-02/,CVEL/299.8/
   
   Cav05-7 DATA LOADMX,NSMAX,NETMX/30,30,30/,NORMF/200/
  -      DATA NORMF/200/							
  +      DATA NORMF/200/
   
         print *, ''
         print *, 'Numerical Electromagnetics Code, ',
  
positive.code: 
  Cav03 SUBROUTINE ERROR
  C ***
  C     GET REASON FOR FILE ERROR (VAX ONLY).  ERROR SHOULD BE REDUCED TO 
  C     "RETURN END" FOR MACINTOSH.
  C
  C      IMPLICIT INTEGER (A-Z)
  
negative.code:       IF (NY.GT.0) Z(MI)=10000.
        RETURN
  C
  14    FORMAT (62H ERROR -- CORNERS OF QUADRILATERAL PATCH DO NOT LIE IN
       1A PLANE)
        END
        SUBROUTINE PCINT (XI,YI,ZI,CABI,SABI,SALPI,E)
  