anchor.diff:      if (nSplit>=4) then
         select case (chr_toLower(trim(lnSplit(4))))
         case('all')
  +        do tmpi1=1,nelens-1
  +          elens_emin(tmpi1) = -one
  +          elens_iSet(tmpi1) = tmpi2
  +          elens_sigdpp(tmpi1) = tmpflt
  +        end do
           elens_emin_def=-one
           elens_sigdpp_def=tmpflt
           elens_iSet_def=tmpi2
  -        do tmpi1=1,nelens-1
  -          elens_emin(tmpi1) = elens_emin_def
  -          elens_iSet(tmpi1) = elens_iSet_def
  -          elens_sigdpp(tmpi1) = elens_sigdpp_def
  -        end do
           if(st_debug) write(lout,"(a)") "ELENS> Applying read rms of delta distribution to all e-lenses"
         case('before')
           do tmpi1=1,nelens-1
  
positive.code:     if (nSplit>=3) then
        select case (chr_toLower(trim(lnSplit(3))))
        case('all')
          elens_lFox_def=tmpl
          do tmpi1=1,nelens-1
            elens_lFox(tmpi1) = elens_lFox_def
          end do
          if(st_debug) write(lout,"(a)") "ELENS> Setting lFox as read to all e-lenses"
        case('bef','before')
          do tmpi1=1,nelens-1
  
negative.code:     if (nSplit>=4) then
        select case (chr_toLower(trim(lnSplit(4))))
        case('all')
          do tmpi1=1,nelens-1
            elens_emin(tmpi1) = tmpflt
            elens_iSet(tmpi1) = tmpi2
            elens_sigdpp(tmpi1) = -one
          end do
          elens_emin_def=tmpflt
          elens_iSet_def=tmpi2
          elens_sigdpp_def=-one
          if(st_debug) write(lout,"(a)") "ELENS> Applying read normalised emittance to all e-lenses"
        case('bef','before')
          do tmpi1=1,nelens-1
  