anchor.diff:  C----
   C Read finite fault model
   C----
  -      call readffm(ifile,evlo,evla,evdp,str,dip,rak,dx,dy,slip,trup,
  -     1             hylo,hyla,seg,nseg,nflt)
  +      if (itype.eq.1) then
  +          call readffm(ifile,evlo,evla,evdp,str,dip,rak,dx,dy,slip,trup,
  +     1                 hylo,hyla,seg,nseg,nflt)
  +      elseif (itype.eq.2) then
  +          call readfsp(ifile,evlo,evla,evdp,str,dip,rak,dx,dy,slip,trup,
  +     1                 hylo,hyla,seg,nseg,nflt)
  +      endif
   
   C----
   C Write output files
  
positive.code: C Parse command line, check for files
  C----
        call gcmdln(ifile,sfile,tfile,zfile,cfile,nfile,efile,dfile,
       1            time,cf)
        if (ifile.eq.'none') then
            write(*,*) '!! Error: Input finite fault file unspecified'
            call usage('!! Use -f FFMFILE to specify input file')
  
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"'
  