anchor.diff:    write(lout,"(a)") "   NO NAME                TYP  1/RHO         STRENGTH      LENGTH        X-POS"//&
       "         X-RMS         Y-POS         Y-RMS"
     write(lout,"(a)") str_divLine
  -  il1=il
  +  il1 = il
     if(sixin_ncy2 == 0) il1 = il-1
     do k=1,il1
       if(abs(kz(k)) == 12) then
         write(lout,"(i5,1x,a20,1x,i2,7(1x,e13.6))") k,bez(k)(1:20),kz(k),ed(k),ek(k),phasc(k),xpl(k),xrms(k),zpl(k),zrms(k)
  -      kz(k)=abs(kz(k))
  -      phasc(k)=phasc(k)*rad
       else
         write(lout,"(i5,1x,a20,1x,i2,7(1x,e13.6))") k,bez(k)(1:20),kz(k),ed(k),ek(k),el(k),xpl(k),xrms(k),zpl(k),zrms(k)
       end if
  
positive.code:     end do
    end if
  
    call ffield_mod_link(inErr)
    if(inErr) goto 9999
  
  
negative.code: ! ================================================================================================ !
  
    ! This is where the PRINT spam happens
    if(st_print) goto 9500 ! Skip it
  
    write(lout,"(a)") ""
    write(lout,"(a)") "  *** RING PARAMETERS ***"
  