anchor.diff:        INTEGER kdsp,kstn,ksts,knor,kshr,kcou,kgmt
         COMMON /ICHECK/ kffm,kflt,kmag,ksta,khaf,ktrg,kvol
         COMMON /OCHECK/ kdsp,kstn,ksts,knor,kshr,kcou,kgmt
  +      REAL*8 sthr
         nflt = 0
         if (kffm.eq.1) then
             call readffm(ffmf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
  
positive.code: C----
        call gcmdln(ffmf,fltf,magf,haff,staf,trgf,dspf,stnf,stsf,norf,
       1            shrf,coulf,gmtf,flttyp,auto,incr,adist,xy,prog,long,
       2            emprel,volf)
  
  C----
  C Check for input fault source files, and whether output is specified
  
negative.code:               endif
                i = i + 1
                call getarg(i,dspf)
            elseif (tag(1:4).eq.'-thr') then
                i = i + 1
                call getarg(i,tag)
                read(tag,'(BN,F10.0)') sthr
            elseif (tag(1:3).eq.'-az') then
                if (kdsp.eq.1) then
                    kdsp = 2
  