anchor.diff:      end do
     end if
   
  +  il1 = il
  +  if(sixin_ncy2 == 0) il1 = il-1
  +  do k=1,il1
  +    if(abs(kz(k)) == 12) then
  +      kz(k)    = abs(kz(k))
  +      phasc(k) = phasc(k)*rad
  +    end if
  +  end do
  +
     call ffield_mod_link(inErr)
     if(inErr) goto 9999
   
  
positive.code: ! ================================================================================================ !
  
    ! This is where the PRINT spam happens
    if(.not.st_print) goto 9500 ! Skip it
  
    write(lout,"(a)") ""
    write(lout,"(a)") "  *** RING PARAMETERS ***"
  
negative.code:   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
    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)
      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
  