anchor.diff:        PARAMETER (FMAX=150000)
   
   C---- Input files
  -      CHARACTER*40 ffmf      ! faults, finite fault model format
  +      CHARACTER*40 ffmf      ! faults, static out finite fault format
  +      CHARACTER*40 fspf      ! faults, SRCMOD finite fault format
         CHARACTER*40 fltf      ! faults, lon-lat-dep-str-dip-rak-slip-wid-len format
         CHARACTER*40 magf      ! faults, lon-lat-dep-str-dip-rak-mag format
         CHARACTER*40 haff      ! half-space parameters
  
positive.code:       SUBROUTINE readffm(ffmf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
       1                   hylo,hyla,nflt)
  C----
  C Read shear dislocations from FFM in USGS subfault format.
  C All units are converted to SI, angles are in degrees.
  C----
        IMPLICIT NONE
  
negative.code:           inquire(file=ffmf,EXIST=ex)
            if (.not.ex) kffm = -1
        endif
        if (kfsp.eq.1) then
            inquire(file=fspf,EXIST=ex)
            if (.not.ex) kfsp = -1
        endif
        if (kflt.eq.1) then
            inquire(file=fltf,EXIST=ex)
            if (.not.ex) kflt = -1
  