anchor.diff:  
     integer ih1,ih2,j,kz1,l,l1,l2
   
  -  ! Local version of variables normally found in mod_common_main
  -  real(kind=fPrec) fokqv(npart)
     real(kind=fPrec) aek,afok,as3,as4,as6,co,fi,fok,fok1,g,gl,hc,hi,hi1,hm,hp,hs,rho,rhoc,rhoi,&
       si,siq,sm1,sm12,sm2,sm23,sm3,wf,wfa,wfhi,fokm
   
  
positive.code:   use mod_commons
    use mod_common_track
    use mod_common_da
    use mod_common_main, only : dpsv,oidpsv,rvv,ekv,dpd,dpsq
  
    use mod_alloc
  
  
negative.code:     else
  !  COMBINED FUNCTION MAGNET VERTICAL
        do j=1,napx
          fokqv(j) = -ekv(j,l)
        end do
        ih1 = 2
        ih2 = 1
  