anchor.diff:    integer j
   
     ! Loop over single elements to check that they have been defined in the fort.3 block
  -  if(mcheby /= 0) then
  +  if(ncheby /= 0) then
       do j=1,nele
         if(kz(j) == cheby_kz) then
           if( icheby(j) == 0) then
  
positive.code:   end do
  
    ! finalise setting-up of chebyshev lenses
    do jj=1,mcheby
       
      ! find name, to get ready for error messages
      do kk=1,nele
  
negative.code:         iErr = .true.
          return
        endif
        call chr_cast(lnSplit(4),cheby_mapXmin(ncheby_mapEchoes),iErr)
        call chr_cast(lnSplit(5),cheby_mapXmax(ncheby_mapEchoes),iErr)
        call chr_cast(lnSplit(6),cheby_mapNx  (ncheby_mapEchoes),iErr)
        call chr_cast(lnSplit(7),cheby_mapYmin(ncheby_mapEchoes),iErr)
        call chr_cast(lnSplit(8),cheby_mapYmax(ncheby_mapEchoes),iErr)
        call chr_cast(lnSplit(9),cheby_mapNy  (ncheby_mapEchoes),iErr)
      end if
      
      if(st_debug) then
        call sixin_echoVal("name",trim(bez(iElem)),                              "CHEBY",iLine)
        call sixin_echoVal("filename", trim(cheby_mapFileName(ncheby_mapEchoes)),"CHEBY",iLine)
        call sixin_echoVal("xmin [mm]",cheby_mapXmin(ncheby_mapEchoes),          "CHEBY",iLine)
        call sixin_echoVal("xmax [mm]",cheby_mapXmax(ncheby_mapEchoes),          "CHEBY",iLine)
        call sixin_echoVal("Nx     []",cheby_mapNx  (ncheby_mapEchoes),          "CHEBY",iLine)
        call sixin_echoVal("ymin [mm]",cheby_mapYmin(ncheby_mapEchoes),          "CHEBY",iLine)
        call sixin_echoVal("ymin [mm]",cheby_mapYmax(ncheby_mapEchoes),          "CHEBY",iLine)
        call sixin_echoVal("Ny     []",cheby_mapNy  (ncheby_mapEchoes),          "CHEBY",iLine)
      end if
       
    case default
  