anchor.diff:        dfile = 'none'
         time = -1.0d0
         cf = 0
  +      itype = 1 ! 1=static, 2=fsp
         narg = iargc()
         if (narg.eq.0) then
             call usage('!! Error: no command line arguments specified')
  
positive.code: C Open active output files
  C----
        if (sfile.eq.'none'.and.tfile.eq.'none'.and.zfile.eq.'none'
       1         .and.cfile.eq.'none'.and.nfile.eq.'none') then
            call usage('!! Error: no output file specified')
        endif
        if (sfile.ne.'none') open(unit=21,file=sfile,status='unknown')
  
negative.code:      1 '              [-trup TIME] [-noslip NOSLIPFILE] [-h]'
        write(*,*)
        write(*,*)
       1 '-f[fm] FFMFILE     Finite fault model in static subfault ',
       2                    'format'
        write(*,*)
       1 '-fsp FSPFILE       Finite fault model in SRCMOD FSP ',
       2                    'format'
        write(*,*)
       1 '-slip SLIPFILE     Slip value in 3rd column for use with ',
       2                    '"psxy -SJ -C<cptfile>"'
        write(*,*)
       1 '-time TIMEFILE     Rupture time in 3rd column for use with ',
       2                    '"psxy -SJ -C<cptfile>"'
        write(*,*)
       1 '-dep DEPFILE       Depth in 3rd column for use with ',
       2                    '"psxy -SJ -C<cptfile>"'
        write(*,*)
       1 '-clip CLIPFILE     Write outline of FFM to a file'
        write(*,*)
       1 '-clipseg CLIPFILE  Write outline of each segment in FFM to a ',
       2                    'file'
        write(*,*)
       1 '-epi EPIFILE       Extract earthquake epicenter to file'
        write(*,*)
       1 '-dc  DCFILE        Extract strike, dip, rake, slip'
        write(*,*)
       1 '-trup TIME         Only include subfaults that rupture before ',
       2                    'TIME'
        write(*,*)
       1 '-noslip NSLPFILE   Write patches that slip after TIME for use ',
       2                    'with "psxy -SJ"'
        write(*,*)
       1 '-h                 Online help (this screen)'
        write(*,*)
        STOP
        END
  C
  C Old options
  C     1 '-o SLPFILE     File with slip patches for use with "psxy ',
  C     2                '-SJ -C<cptfile>"'
  C     1 '-tf XYTFILE    Write lon lat trup to file'
  C     1 '-z             Replace slip with depth (km) in third column'
  C     1 '-t TIME        Only include patches that rupture before TIME ',
  C     2                 '(default: include all subfaults)'
  C     1 '-n NOSLPFILE   Write patches that slip after TIME for use ',
  C     2                'with "psxy -SJ"'
  