anchor.diff:    use checkpoint_restart
   #endif
   
  -implicit none
  +  implicit none
   
     integer i,irrtr,ix,j,k,n,nmz,nthinerr,dotrack,xory,nac,nfree,nramp1,nplato,nramp2,turnrep,elemEnd,&
       kxxa
  
positive.code: #include "include/kickvxxh.f90"
          end do
          if(doFField) then
            if((ic(i) /= ic(i+2)).and.(ic(i) /= ic(i+3))) then
              call ffield_exitQuad(i)   !A optimizer!!!
            end if
          end if
  
negative.code:         goto 640
        case (12) ! NORMAL QUADRUPOLE
          if(doFField) then
            if(ic(i) /= ic(i-2) .and. ic(i) /= ic(i-3)) then
              call ffield_enterQuad(i)  !A optimizer!!!
            end if
          end if
  