anchor.diff:        IF (NY.GT.0) Z(MI)=10000.
         RETURN
   C
  -14    FORMAT (62H ERROR -- CORNERS OF QUADRILATERAL PATCH DO NOT LIE IN 
  +14    FORMAT (62H ERROR -- CORNERS OF QUADRILATERAL PATCH DO NOT LIE IN
        1A PLANE)
         END
         SUBROUTINE PCINT (XI,YI,ZI,CABI,SABI,SALPI,E)
  
positive.code: c                                   = user time + system time
  c       I am uncertain whether to let cpunow = return value or
  c       else tarray(1).
  c 
  C        cpunow  = etime(tarray)
  C        wallnow = stime()
  C#endif
  
negative.code: 183   FORMAT (20X,2(F7.2,3X),1X,F7.2,4X,1P,E11.4)
  184   FORMAT (///,36X,32H- - - INPUT IMPEDANCE DATA - - -,/   ,45X,18HSO
       1URCE SEGMENT NO.,I4,/  ,45X,21HNORMALIZATION FACTOR=,1P,E12.5,//
       2,7X,5HFREQ.,13X,34H-  -  UNNORMALIZED IMPEDANCE  -  -,21X,   32H-
       3 -  NORMALIZED IMPEDANCE  -  -,/    ,19X,10HRESISTANCE,4X,9HREACTA
       4NCE,6X,9HMAGNITUDE,4X,5HPHASE,7X,10HRESISTANCE,4X,9HREACTANCE,6X,
       5 9HMAGNITUDE,4X,5HPHASE,/    ,8X,3HMHZ,11X,4HOHMS,10X,4HOHMS,11X,
  