anchor.diff:    
     integer          :: iLens, iRadial, nBin, nPoints, mPoints, kMin, kMax, kk
     real(kind=fPrec) :: rra, frra, xa, ya, xffset, yffset, ele_r1, ele_r2, ele_rr, elenor, elesig, elebet, tmpcof
  -  real(kind=fPrec) :: eletrf, epsilon, gteps, lteps
  +  real(kind=fPrec) :: eletrf, epsilon, gteps, lteps, cl2ori
     real(kind=fPrec), allocatable :: cof(:)
   
   ! for FOX
  
positive.code: ! M. Fitterer, FNAL, A. Mereghtti, CERN
  ! last modified: 10-09-2019
  ! Common block for electron lens definition
  module elens
  
  
negative.code: end subroutine normaliseRadialProfile
  
  ! ================================================================================================ !
  !  Last modified: 2020-03-02
  !  compute kick from electron lens
  ! ================================================================================================ !
  subroutine elens_kick(i,ix,n)
  