anchor.diff:        end if
       end do
       if(iElem == -1) then
  -      write(lout,"(a)") "CHEBY> ERROR Element '"//trim(lnSplit(1))//"' not a Chebyshev lens."
  +      write(lout,"(a)") "CHEBY> ERROR Element '"//trim(lnSplit(2))//"' not a Chebyshev lens."
  +      write(lout,"(a)") "CHEBY>       Either you mis-typed the element name or"
  +      write(lout,"(a)") "CHEBY>       SHOW line comes before the declaration of the lens"
         iErr = .true.
         return
       end if
  
positive.code:    
      if(st_quiet < 2) then
        write(lout,"(a)") ''
        write(lout,"(a,i0,a)") 'CHEBY> status of chebyshev lens #',jj," - name: '"//trim(bez(kk))//"'"
        write(lout,"(a)")          "CHEBY> - filename         : '"//trim(cheby_filename(cheby_itable(jj)))//"'"
        write(lout,"(a,1pe22.15)") "CHEBY> - R2           [mm]: ",cheby_r2(jj)
        write(lout,"(a,1pe22.15)") "CHEBY> - R1           [mm]: ",cheby_r1(jj)
        write(lout,"(a,1pe22.15)") "CHEBY> - tilt angle  [deg]: ",cheby_angle(jj)
        write(lout,"(a,1pe22.15)") "CHEBY> - hor offset   [mm]: ",cheby_offset_x(jj)
        write(lout,"(a,1pe22.15)") "CHEBY> - ver offset   [mm]: ",cheby_offset_y(jj)
        write(lout,"(a,1pe22.15)") "CHEBY> - lens powering [A]: ",cheby_I(jj)
        write(lout,"(a,1pe22.15)") "CHEBY> - scaling factor []: ",cheby_scalingFact(jj)
        if ( cheby_lMap(jj) ) then
          write(lout,"(a)") 'CHEBY> requested dump of potential map'
          write(lout,"(a,a)")        "CHEBY> - map filename : ",cheby_mapFileName(jj)
          write(lout,"(a,1pe22.15)") "CHEBY> - xmin     [mm]: ",cheby_mapXmin(jj)
          write(lout,"(a,1pe22.15)") "CHEBY> - xmax     [mm]: ",cheby_mapXmax(jj)
          write(lout,"(a,1pe22.15)") "CHEBY> - Nx         []: ",cheby_mapNx  (jj)
          write(lout,"(a,1pe22.15)") "CHEBY> - ymin     [mm]: ",cheby_mapYmin(jj)
          write(lout,"(a,1pe22.15)") "CHEBY> - ymin     [mm]: ",cheby_mapYmax(jj)
          write(lout,"(a,1pe22.15)") "CHEBY> - Ny         []: ",cheby_mapNy  (jj)
          call cheby_potentialMap(jj,kk)
        end if
      end if
  
negative.code: 
  10 continue
     write(lout,"(a,i0,a)") "CHEBY>       concerned lens #", jj," - name: '"//trim(bez(kk))//"'"
     call prror(-1)
     
  end subroutine cheby_postInput
  