anchor.diff:        endif
     100 write(*,*)
        1 'Usage: o92util -ffm FFMFILE -flt FLTFILE -mag MAGFILE ',
  -     2                        '[-fn|-pt] [-haf HAFFILE]'
  +     2                        '[-fn|-pt]'
         write(*,*)
        1 '               -sta STAFILE -trg TRGFILE|S/D/R/F ',
  -     2                                      '[-xy]'
  +     2                               '[-haf HAFFILE] [-xy]'
         write(*,*)
        1 '               -disp DSPFILE -strain STNFILE -stress ',
  -     2                             'STSFILE '
  -      write(*,*)
  -     1 '               -normal NORFILE -shear SHRFILE -coul COULFILE',
  -     2                                       ' [-long]'
  -      write(*,*)
  -     1 '               -autodisp -autocoul OPT [-incr INCR] ',
  -     2                              '[-dep DEPTH]'
  -      write(*,*)
  -     2 '               [-gmt GMTFILE] [-prog] [-h|-help] ',
  -     2                                     '[-d|-details]'
  +     2                             'STSFILE'
  +      write(*,*)
  +     1 '               -normal NORFILE -shear SHRFILE -coul COULFILE'
  +      write(*,*)
  +     1 '               [-auto AB VALUE INCR] [-long] [-prog] ',
  +     2                   '[-gmt GMTFILE]'
  +      write(*,*)
  +     1 '               [-h|-help] [-d|-details]'
         write(*,*)
         if (str.eq.'long') then
             write(*,*)
  
positive.code:       print *,'FLTTYP',flttyp
        print *,'AUTO',auto
        print *,'INCR',incr
        print *,'DEP',depth
        print *,'XY?',xy
        print *,'PROG',prog
        print *,'LONG',long
        RETURN
        END
  
negative.code:       auto = 0
        xy = 0
        prog = 0
        incr = 1.0d99
        val = 1.0d99
        long = 0
  C Input file status indicators (ICHECK block)
  C 0=unspecified; 1=specified; -1=specified, but file not found
  