anchor.diff:        WRITE (IGFL) (BET(I),I=J,LD),(SALP(I),I=J,LD)
   C
   C*** ERROR CORRECTED 11/20/89 *******************************
  -                                                             
  +
         WRITE (IGFL) (T2X(I),I=J,LD),(T2Y(I),I=J,LD)
         WRITE (IGFL) (T2Z(I),I=J,LD)
   C      WRITE (IGFL) (ICON1(I),I=J,LD),(ICON2(I),I=J,LD)
  
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: 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,
  