anchor.diff:            write(*,*)
         endif
         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:       endif
        write(*,*)
       1 '-ffm FFMFILE            Finite fault ',
       2                          'file in USGS subfault format'
        if (str.eq.'long') then
            write(*,*)
            write(*,*)
  
negative.code:      1 '    Examples can be found at event pages on earthquake.usgs.gov'
            write(*,*)
            write(*,*)
       1 '    NB: o92util assumes static FFM displacements are in cm'
            write(*,*)
            write(*,9999)
            write(*,*)
        endif
        write(*,*)
       1 '-fsp FSPFILE            Finite fault ',
       2                          'file in SRCMOD FSP format'
        if (str.eq.'long') then
            write(*,*)
            write(*,*)
       1 '    See Hayes (2017), The finite, kinematic rupture properties',
       2      ' of great-sized'
            write(*,*)
       1 '        earthquakes since 1990, EPSL.'
            write(*,*)
       1 '    File format is described at http://equake-rc.info/SRCMOD'
            write(*,*)
       1 '    Examples can be found at event pages on earthquake.usgs.gov'
            write(*,*)
            write(*,9999)
            write(*,*)
  