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: 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,
  
negative.code: Cav03      Write(*,*)
  Cav03     & 'J. Bergervoet (bergervo@prl.philips.nl)'
        print *, 'Maximum number of segments in core : MAXMAT=',MAXMAT
        If(MaxSeg.ne.MaxMat)
       &print *, 'Maximum when using swap files      : MAXSEG=',MAXSEG
  
        print *, ''
  	print *,
       & 'Merged nec2d/som2d file created by Arie. (4nec2@gmx.net)'
  	print *,
       & 'V2.2  31-jan-2003   (maxLD=MaxSeg, MaxEX=99, MaxTL=64)'
  