anchor.diff:  C----------------------------------------------------------------------c
   
         SUBROUTINE readffm(ffmfile,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
  -     1                   trup,hylo,hyla,nflt)
  +     1                   trup,hylo,hyla,seg,nseg,nflt)
   C----
   C Read shear dislocations from FFM in standard subfault format.
   C----
  
positive.code:       write(*,*)
       1 '-clip CLIPFILE     Write outline of FFM to a file'
        write(*,*)
       1 '-trup TIME         Only include subfaults that rupture before ',
       2                    'TIME'
  C     1 '-t TIME        Only include patches that rupture before TIME ',
  
negative.code:       PARAMETER (pi=4.0d0*datan(1.0d0),d2r=pi/180.0d0)
        CHARACTER*40 ifile,sfile,tfile,zfile,cfile,nfile
        LOGICAL ex
        INTEGER i,nflt,FMAX,cf
        PARAMETER (FMAX=1500)
        REAL*8 evlo(FMAX),evla(FMAX),evdp(FMAX),str(FMAX),dip(FMAX),
       1       rak(FMAX),dx(FMAX),dy(FMAX),slip(FMAX),trup(FMAX),hylo,hyla
        REAL*8 time,cosd
        INTEGER seg(FMAX),nseg
  
  C----
  C Parse command line, check for files
  C----
        call gcmdln(ifile,sfile,tfile,zfile,cfile,nfile,time,cf)
        if (ifile.eq.'none') then
            write(*,*) '!! Error: Input finite fault file unspecified'
            call usage('!! Use -f FFMFILE to specify input file')
  