anchor.diff:  #include "include/kicklxxv.f90"
   !--SKEW 14-POLE
         case(7)
  -        ekk=ekk*c1m15
  +        ekk = ekk*c1m15
   #include "include/kicksho.f90"
   #include "include/kicksho.f90"
   #include "include/kicksho.f90"
  
positive.code:       if(kzz == 24) then
          t(i,2) = (t(i,2)+t(i,1)*qu)-qv*t(i,3)
          t(i,4) = (t(i,4)-t(i,3)*quz)-qvz*t(i,1)
        elseif(kzz.eq.25) then !--solenoid
  #include "include/phassolenoid.f90"
        else
          t(i,4) = (t(i,4)-t(i,3)*qu)-qv*t(i,1)
          t(i,2) = (t(i,2)+t(i,1)*qu)-qv*t(i,3)
        end if
      end do
      bexi = t(2,1)**2+t(3,1)**2
      bezii = t(4,3)**2+t(5,3)**2
      if(ncorru == 0) then
        if(kz(ix) == 11) then
          if(abs(aa(2)) > pieni.and.nmz > 1) then
            write(34,10070) etl,bez(ix),-2,aa(2),bexi,bezii,phi
          end if
          do iiii=3,nmz
            if(abs(bb(iiii)) > pieni) then
              write(34,10070) etl,bez(ix),iiii,bb(iiii),bexi,bezii,phi
            end if
            if(abs(aa(iiii)) > pieni) then
              write(34,10070) etl,bez(ix),-iiii,aa(iiii),bexi,bezii,phi
            end if
          end do
        else if(abs(ekk) > pieni.and.abs(kz(ix)) >= 3) then
          write(34,10070) etl,bez(ix),kz(ix),ekk,bexi,bezii,phi
        else if(abs(ekk) > pieni.and.kz(ix) == -2) then
          write(34,10070) etl,bez(ix),kz(ix),ekk,bexi,bezii,phi
        end if
      end if
  
  
negative.code: #include "include/kicklxxv.f90"
  !--SKEW 16-POLE
        case(8)
          ekk = ekk*c1m18
  #include "include/kicksho.f90"
  #include "include/kicksho.f90"
  #include "include/kicksho.f90"
  