anchor.diff:        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)")          "CHEBY> - map     filename : '"//trim(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,i0)")       "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,i0)")       "CHEBY> - Ny             []: ",cheby_mapNy  (jj)
  -        call cheby_potentialMap(jj,kk)
  -      end if
  +      do ii=1,ncheby_mapEchoes
  +        if ( cheby_iLens(ii) .eq. jj) then
  +          write(lout,"(a)")          "CHEBY> requested dump of potential map:"
  +          write(lout,"(a)")          "CHEBY> - map     filename : '"//trim(cheby_mapFileName(ii))//"'"
  +          write(lout,"(a,1pe22.15)") "CHEBY> - xmin         [mm]: ",cheby_mapXmin(ii)
  +          write(lout,"(a,1pe22.15)") "CHEBY> - xmax         [mm]: ",cheby_mapXmax(ii)
  +          write(lout,"(a,i0)")       "CHEBY> - Nx             []: ",cheby_mapNx  (ii)
  +          write(lout,"(a,1pe22.15)") "CHEBY> - ymin         [mm]: ",cheby_mapYmin(ii)
  +          write(lout,"(a,1pe22.15)") "CHEBY> - ymin         [mm]: ",cheby_mapYmax(ii)
  +          write(lout,"(a,i0)")       "CHEBY> - Ny             []: ",cheby_mapNy  (ii)
  +          call cheby_potentialMap(jj,kk)
  +        end if
  +      end do
       end if
     end do
  + 
     return
   
   10 continue
  
positive.code:     end if
     
      ! checks on maps
      if ( cheby_lMap(jj) ) then
        if (cheby_mapXmax(jj)<cheby_mapXmin(jj)) then
          ! swap
          tmpFlt=cheby_mapXmax(jj)
          cheby_mapXmax(jj)=cheby_mapXmin(jj)
          cheby_mapXmin(jj)=tmpFlt
        end if
        if (cheby_mapXmax(jj)==cheby_mapXmin(jj)) then
          write(lout,"(a)")                     "CHEBY> ERROR X-extremes for map coincide!"
          write(lout,"(a,1pe22.15,a,1pe22.15)") "CHEBY>       xmin [mm]: ",cheby_mapXmin(jj), &
                                                          " - xmax [mm]: ",cheby_mapXmax(jj)
          goto 10 
        end if
        if (cheby_mapNx(jj)<1) then
          write(lout,"(a)")    "CHEBY> ERROR wrong X-stepping for map!"
          write(lout,"(a,i0)") "CHEBY>       must be >0 - got: ",cheby_mapNx(jj)
          goto 10 
        end if
        if (cheby_mapYmax(jj)<cheby_mapYmin(jj)) then
          ! swap
          tmpFlt=cheby_mapYmax(jj)
          cheby_mapYmax(jj)=cheby_mapYmin(jj)
          cheby_mapYmin(jj)=tmpFlt
        end if
        if (cheby_mapYmax(jj)==cheby_mapYmin(jj)) then
          write(lout,"(a)")                     "CHEBY> ERROR Y-extremes for map coincide!"
          write(lout,"(a,1pe22.15,a,1pe22.15)") "CHEBY>       ymin [mm]: ",cheby_mapYmin(jj), &
                                                          " - ymax [mm]: ",cheby_mapYmax(jj)
          goto 10 
        end if
        if (cheby_mapNy(jj)<1) then
          write(lout,"(a)")    "CHEBY> ERROR wrong Y-stepping for map!"
          write(lout,"(a,i0)") "CHEBY>       must be >0 - got: ",cheby_mapNy(jj)
          goto 10 
        end if
      end if
     
      if(st_quiet < 2) then
        write(lout,"(a)") ''
        write(lout,"(a,i0,a)")       "CHEBY> status of chebyshev lens #",jj," - name: '"//trim(bez(kk))//"'"
  
negative.code:     end if
  
    end select
  
  end subroutine cheby_parseInputLine
  
  
  