anchor.diff:      if (str.eq.'long') then
           write(0,*)
       endif
  +    write(0,*) '-D                        Define background(foreground) colors as beginning(ending) colors in cpt'
  +    if (str.eq.'long') then
  +        write(0,*)
  +    endif
       write(0,*) '-verbose                  Turn on verbose mode'
       if (str.eq.'long') then
           write(0,*)
  
positive.code:             read(tag,*) lim1,lim2,dz
          elseif (tag(1:2).eq.'-v') then
              vrb = 1
          elseif (tag(1:2).eq.'-d') then
              call usage('long')
          else
  
negative.code: !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  
  subroutine gcmdln(option,hue1,hue2,light1,light2,chroma1,chroma2,ncolors,convert1,convert2,&
                    gmt,lim1,lim2,saturate)
      use colormodule
      implicit none
      integer :: i,j,narg
  