anchor.diff:            frr = frr*((rvv(jj)-elens_beta_e(ielens(ix))*beta0)/(one-elens_beta_e(ielens(ix))*beta0))
           end if
         endif
  -      yv1(jj)=yv1(jj)-(frr*xx)/rr
  -      yv2(jj)=yv2(jj)-(frr*yy)/rr
  +      yv1(jj)=yv1(jj)-frr*(xx/rr)
  +      yv2(jj)=yv2(jj)-frr*(yy/rr)
       endif
     end do
   end subroutine elens_kick
  
positive.code:   use mod_common, only : beta0, napx
    use mod_common_main, only : xv1, xv2, yv1, yv2, moidpsv, rvv
    use mathlib_bouncer
    use numerical_constants, only : zero, one
    use mod_utils, only : polinterp
  
    implicit none
  
negative.code:      
    case("FOX")
      if(nSplit .ne. 2) then
        write(lerr,"(a,i0)") "ELENS> ERROR Expected at least 1 input parameters for FOX line, got ",nSplit-1
        iErr = .true.
        return
      end if
      call chr_cast(lnSPlit(2), elens_lFox(melens),iErr)
      if(st_debug) then
        call sixin_echoVal("fox",elens_lFox(melens),"ELENS",iLine)
      end if
       
    case("INTER")
      if(nSplit .ne. 2) then
        write(lerr,"(a,i0)") "ELENS> ERROR Expected at least 1 input parameters for INTERpolation line, got ",nSplit-1
        iErr = .true.
        return
      end if
  