anchor.diff:          write(0,*) str
           write(0,*)
       endif
  -    write(0,*) 'Usage: colortool -cmap OPTION [-hue H1,H2] [-lightness L1,L2] [-chroma C1,C2] [-ncolors N]'
  -    write(0,*) '                 [-convert ITYP=X,Y,Z OTYP] [-v verbose] [-d]'
  +    write(0,*) 'Usage: colortool -cmap OPTION [-hue H1,H2] [-lightness L1,L2] [-chroma C1,C2] [-n[colors] N]'
  +    write(0,*) '                 [-convert ITYP=X,Y,Z OTYP] [-v verbose] [-gmt CPTFILE] [-limits MIN,MAX] [-dc D] [-d]'
       write(0,*)
       write(0,*) '-cmap OPTION              Generate a perceptually linear colormap'
       if (str.eq.'long') then
  
positive.code:         endif
          i = i + 1
      enddo
  return
  end
  
  
negative.code:             call lab2rgb(l,a,b,red,grn,blu)
              call checkrgb(red,grn,blu,clip)
              call formatrgb(red,grn,blu,rgbstring)
              if (gmt.eq.'none') then
                  write(*,*) trim(rgbstring)
              else
                  c = lim1 + (lim2-lim1)*(i-1)/n
                  write(11,1003) c,trim(rgbstring),c+(lim2-lim1)/n,trim(rgbstring)
              endif
          enddo
      else
          call usage('!! Error: no option named "'//trim(option)//'"')
      endif
      1003 format(2(F16.4,X,A30))
  end
  
  !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  