anchor.diff:            write(*,*)
         endif
    100  write(*,*)
  -     1 'Usage: o92util -ffm FFMFILE -flt FLTFILE -mag MAGFILE ',
  -     2                        '[-fn|-pt]'
  +     1 'Usage: o92util -ffm FFMFILE -fsp FSPFILE -flt FLTFILE ',
  +     2                        '-mag MAGFILE [-fn|-pt]'
         write(*,*)
        1 '               -sta STAFILE -trg TRGFILE|S/D/R/F ',
        2                               '[-haf HAFFILE] [-xy]'
  
positive.code:      1 '    Examples can be found at event pages on earthquake.usgs.gov'
            write(*,*)
            write(*,*)
       1 '    NB: o92util assumes FFM displacements are in centimeters'
            write(*,*)
            write(*,9999)
            write(*,*)
  
negative.code:           write(*,*)
        endif
        write(*,*)
       1 'Usage: o92util -ffm FFMFILE -fsp FSPFILE -flt FLTFILE ',
       2                        '-mag MAGFILE [-fn|-pt]'
        write(*,*)
       1 '               -sta STAFILE -trg TRGFILE|S/D/R/F ',
       2                               '[-haf HAFFILE] [-xy]'
  