anchor.diff:    call chr_split(inLine, lnSplit, nSplit, spErr)
     if(spErr) then
       write(lout,"(a)") "CHEBY> ERROR Failed to split Chebyshev input line:"
  -    write(lout,"(a)") inLine
       goto 30
     end if
   
  
positive.code:     end if
      lDefI=.false.
  
    else if(inLine(1:1) == "L") then
      ! Read reference length of lens
      if(nSplit < 3) then
        write(lout,"(a)") "CHEBY> ERROR Not enough arguments for expressing ref lens length [m]."
        write(lout,"(a)") "CHEBY>       Correct format:"
        write(lout,"(a)") "L : value"
        goto 30
      end if
      call chr_cast(lnSplit(3),cheby_refL(ifile),spErr)
      if(spErr) then
        write(lout,"(a)") "CHEBY> ERROR in casting ref lens length"//trim(lnSplit(3))
        goto 30
      end if
      lDefL=.false.
  
    else if(inLine(1:1) == "R") then
      ! Read reference radius e-beam in e-lens
      if(nSplit < 3) then
  
negative.code:     end if
      call chr_cast(lnSplit(1),ii,spErr)
      if(ii > cheby_max_order) then
        write(lout,"(2(a,i0))") "CHEBY> ERROR Too high order in Chebyshev polynomial - requested (hor):", &
              ii," - available:",cheby_max_order
        goto 30
      end if
      call chr_cast(lnSplit(2),jj,spErr)
      if(jj > cheby_max_order) then
        write(lout,"(2(a,i0))") "CHEBY> ERROR Too high order in Chebyshev polynomial - requested (ver):", &
              jj," - available:",cheby_max_order
        goto 30
      end if
  