anchor.diff:        REAL*8 sthr
         nflt = 0
         if (kffm.eq.1) then
  +          if (verbos.ge.2) then
  +              write(0,*) '    READING STATIC FFM FILE'
  +          endif
             call readffm(ffmf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
        1                 hylo,hyla,nflt)
         endif
         if (kfsp.eq.1) then
  +          if (verbos.ge.2) then
  +              write(0,*) '    READING SRCMOD FSP FILE'
  +          endif
             call readfsp(fspf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
        1                 hylo,hyla,nflt)
         endif
         if (kflt.eq.1) then
  +          if (verbos.ge.2) then
  +              write(0,*) '    READING INPUT FAULTS (SLIP WID LEN)'
  +          endif
             call readflt(fltf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
        1                 nflt)
         endif
         if (kmag.eq.1) then
  +          if (verbos.ge.2) then
  +              write(0,*) '    READING INPUT FAULTS (MAG)'
  +          endif
             call readmag(magf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
        1                 nflt,emprel,haff)
         endif
  
positive.code:      1                  slip)
        endif
  
        END
  
  C======================================================================C
  
negative.code:       COMMON /ICHECK/ kffm,kfsp,kflt,kmag,ksta,khaf,ktrg,kvol
        COMMON /OCHECK/ kdsp,kstn,ksts,knor,kshr,kcou,kgmt
  
  C---- Program timing variables
        REAL*8 time1,time2
  
  C----
  C Parse command line
  C----
        call gcmdln(ffmf,fspf,fltf,magf,haff,staf,trgf,dspf,stnf,stsf,
       1            norf,shrf,coulf,gmtf,flttyp,auto,incr,adist,xy,prog,
       2            long,emprel,volf,sthr,verbos)
        if (verbos.ge.1) then
            write(0,*) '********** RUNNING IN VERBOSE MODE **********'
            write(0,*)
            write(0,*) 'READ THE FOLLOWING FROM THE COMMAND LINE:'
            write(0,*) 'FFMF:   ',trim(ffmf)
            write(0,*) 'FSPF:   ',trim(fspf)
            write(0,*) 'FLTF:   ',trim(fltf)
  