anchor.diff:    call alloc(icheby,nele_new,0,'icheby')
   end subroutine cheby_expand_arrays
   
  +subroutine cheby_expand_arrays_lenses(ncheby_new)
  +  implicit none
  +  integer, intent(in) :: ncheby_new
  +  ! chebyshev lens charachteristics
  +  call alloc(cheby_itable     ,            ncheby_new,               0, 'cheby_itable'     )
  +  call alloc(cheby_r2         ,            ncheby_new,            zero, 'cheby_r2'         )
  +  call alloc(cheby_r1         ,            ncheby_new,            zero, 'cheby_r1'         )
  +  call alloc(cheby_angle      ,            ncheby_new,            zero, 'cheby_angle'      )
  +  call alloc(cheby_offset_x   ,            ncheby_new,            zero, 'cheby_offset_x'   )
  +  call alloc(cheby_offset_y   ,            ncheby_new,            zero, 'cheby_offset_y'   )
  +  call alloc(cheby_I          ,            ncheby_new,            -one, 'cheby_I'          )
  +  call alloc(cheby_scalingFact,            ncheby_new,             one, 'cheby_scalingFact')
  +end subroutine cheby_expand_arrays_lenses
  +
  +subroutine cheby_expand_arrays_map_echo(ncheby_mapEchoes_new)
  +  implicit none
  +  integer, intent(in) :: ncheby_mapEchoes_new
  +  ! map
  +  call alloc(cheby_iLens      ,            ncheby_mapEchoes_new,               0, 'cheby_iLens'      )
  +  call alloc(cheby_mapFileName, mFileName, ncheby_mapEchoes_new,             " ", 'cheby_mapFileName')
  +  call alloc(cheby_mapXmin    ,            ncheby_mapEchoes_new, -10.0e+00_fPrec, 'cheby_mapXmin'    )
  +  call alloc(cheby_mapXmax    ,            ncheby_mapEchoes_new,  10.0e+00_fPrec, 'cheby_mapXmax'    )
  +  call alloc(cheby_mapNx      ,            ncheby_mapEchoes_new,             100, 'cheby_mapNx'      )
  +  call alloc(cheby_mapYmin    ,            ncheby_mapEchoes_new, -10.0e+00_fPrec, 'cheby_mapYmin'    )
  +  call alloc(cheby_mapYmax    ,            ncheby_mapEchoes_new,  10.0e+00_fPrec, 'cheby_mapYmax'    )
  +  call alloc(cheby_mapNy      ,            ncheby_mapEchoes_new,             100, 'cheby_mapNy'      )
  +end subroutine cheby_expand_arrays_map_echo
  +
  +subroutine cheby_expand_arrays_tables(ncheby_tables_new)
  +  implicit none
  +  integer, intent(in) :: ncheby_tables_new
  +  call alloc(cheby_filename   , mFileName,       ncheby_tables_new,  " ", 'cheby_filename'                      )
  +  call alloc(cheby_coeffs     ,            0, 0, ncheby_tables_new, zero, 'cheby_coeffs'  , 0, 0, ncheby_tables )
  +  call alloc(cheby_maxOrder   ,                  ncheby_tables_new,    0, 'cheby_maxOrder'                      )
  +  call alloc(cheby_refI       ,                  ncheby_tables_new,  one, 'cheby_refI'                          )
  +  call alloc(cheby_refR       ,                  ncheby_tables_new, zero, 'cheby_refR'                          )
  +end subroutine cheby_expand_arrays_tables
   
   ! ================================================================================================ !
   !  Parse Line for Chebyshev lens
  
positive.code:   use mod_common, only : kz,bez
    use mod_settings, only : st_quiet
  
    integer jj, kk
    logical exist
    real(kind=fPrec) tmpFlt
    
    ! 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: ", &
  
negative.code:   end do
  
    ! finalise setting-up of chebyshev lenses
    do jj=1,ncheby
       
      ! find name, to get ready for error messages
      do kk=1,nele
  