anchor.diff:      end if
       elens_lFull(ielens(iElem))=elens_r1(ielens(iElem))==zero
       elens_lZeroThick(ielens(iElem))=elens_r1(ielens(iElem))==elens_r2(ielens(iElem))
  -    if ( elens_lFull(ielens(iElem)).and.elens_lZeroThick(ielens(iElem)) ) then
  -      write(lerr,"(a)") "ELENS> ERROR corner case of elens being a wire: R1=R2=0."
  -      write(lerr,"(a)") "ELENS>       theta_R2 looses meaning. Try using a wire."
  -      iErr = .true.
  -      return
  -    end if
       
       if(st_debug) then
         call sixin_echoVal("name",    bez(iElem),                   "ELENS",iLine)
  
positive.code: ! ================================================================================================ !
  subroutine elens_kick(i,ix,n)
  
    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, two, c1m15, c1m7
  
negative.code:           ! rr>R2: formula: r2/r
            frr=elens_r2(ielens(ix))/rr
          else
            if ( elens_lFull(ielens(ix)) .and. elens_lZeroThick(ielens(ix)) ) then
              ! degenerate e-lens to a wire: rr=R2=0.0!!!
              write(lerr,"(a,i0,a)") "ELENS> ERROR E-lens # ",ielens(ix)," named '"//trim(bez(ix))// &
                    "' degerate to a wire (R1=R2=0.0)"
              write(lerr,"(a)")      "ELENS>       Kick cannot be computed at wire position!"
              call prror
            else 
              ! rr=R2: formula: 1
              frr=one
            end if
          end if
          
        endif
  