anchor.diff:    use mathlib_bouncer
     use numerical_constants
     use physical_constants
  -  use crcoall
     use mod_common
     use mod_settings
     use string_tools
  
positive.code: !  Last modified: 2019-02-25
  ! ================================================================================================ !
  subroutine cheby_parseInputLine(inLine, iLine, iErr)
    implicit none
  
    character(len=*), intent(in)    :: inLine
    integer,          intent(in)    :: iLine
    logical,          intent(inout) :: iErr
  end subroutine cheby_parseInputLine
  
  
  
negative.code: 
  
  subroutine cheby_postInput
    use utils
    use mod_common, only : kz,bez
    use mod_settings, only : st_quiet
  
    integer jj, kk
    logical exist
    
    ! Parse files with coefficients for Chebyshev polynomials:
     do jj=1,mcheby_tables
      inquire(file=cheby_filename(jj), exist=exist)
      if(.not. exist) then
        write(lout,"(a)") "CHEBY> ERROR Problems with file with coefficients for Chebyshev polynominals: ", &
              trim(cheby_filename(jj))
        call prror(-1)
      end if
      call parseChebyFile(jj)
    end do
  
    ! finalise setting-up of chebyshev lenses
    do jj=1,mcheby
      ! some checks and further post-processing of declared lines
      if (cheby_r2(jj)<=zero) cheby_r2(jj)=cheby_refR(cheby_itable(jj))
      if (cheby_r1(jj)<=zero) cheby_r1(jj)=zero
      if (cheby_L (jj)<=zero) then
        cheby_L (jj)=cheby_refL(cheby_itable(jj))
      else
        cheby_scalingFact(jj)=cheby_scalingFact(jj)*((cheby_L(jj))/(cheby_refL(cheby_itable(jj))))
      end if
      if (cheby_I (jj)<=zero) then
        cheby_I (jj)=cheby_refI(cheby_itable(jj))
      else
        cheby_scalingFact(jj)=cheby_scalingFact(jj)*((cheby_I(jj))/(cheby_refI(cheby_itable(jj))))
      end if
      if(st_quiet < 2) then
        write(lout,"(a)") ''
        write(lout,"(a,i0)") ' status of chebyshev lens #',jj
        do kk=1,nele
          if(kz(kk) == kzcheby .and. icheby(kk) == mcheby ) then
            write(lout,"(a,i0)") ' name:',trim(bez(kk))
            exit
          end if
        end do
        write(lout,"(a)")        " - filename         :",trim(cheby_filename(cheby_itable(jj)))
        write(lout,"(a,e22.15)") " - R2           [mm]:",cheby_r2(jj)
        write(lout,"(a,e22.15)") " - R1           [mm]:",cheby_r1(jj)
        write(lout,"(a,e22.15)") " - tilt angle  [rad]:",cheby_angle(jj)
        write(lout,"(a,e22.15)") " - hor offset   [mm]:",cheby_offset_x(jj)
        write(lout,"(a,e22.15)") " - ver offset   [mm]:",cheby_offset_y(jj)
        write(lout,"(a,e22.15)") " - lens length   [m]:",cheby_L(jj)
        write(lout,"(a,e22.15)") " - lens powering [A]:",cheby_I(jj)
      end if
    end do
  
  end subroutine cheby_postInput
  
  
  ! ================================================================================================ !
  !  Last modified: 2019-02-25
  