anchor.diff:       1                  slip)
         endif
   
  +      if (verbos.ge.1) then
  +          call cpu_time(time2)
  +          write(0,9999) time2-time1,nsta*nflt
  +      endif
  + 9999 format('O92UTIL TOOK ',F10.3,' SECONDS FOR ',I12,
  +     1       ' FAULT-STATION PAIRS')
         END
   
   C======================================================================C
  
positive.code:       REAL*8 sthr
        nflt = 0
        if (kffm.eq.1) then
            call readffm(ffmf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
       1                 hylo,hyla,nflt)
        endif
        if (kfsp.eq.1) then
            call readfsp(fspf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
       1                 hylo,hyla,nflt)
        endif
        if (kflt.eq.1) then
            call readflt(fltf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
       1                 nflt)
        endif
        if (kmag.eq.1) then
            call readmag(magf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
       1                 nflt,emprel,haff)
        endif
  
negative.code:           write(0,*) 'VOLF:   ',volf
            write(0,*) 'STHR:   ',sthr
            write(0,*) 'VERBOS: ',verbos
            write(0,*)
            call cpu_time(time1)
        endif
  
  C----
  C Check for input fault source files, and whether output is specified
  C----
        if (verbos.ge.1) then
            write(0,*) 'CHECKING SOURCE FAULT INPUTS'
        endif
        call chksrc(ffmf,fspf,fltf,magf,volf)
        if (verbos.ge.1) then
            write(0,*) 'SOURCE FAULTS DEFINED, FILE(S) FOUND'
            write(0,*)
        endif
        if (verbos.ge.1) then
            write(0,*) 'CHECKING DEFORMATION OUTPUTS'
        endif
        call chkout()
        if (verbos.ge.1) then
            write(0,*) 'DEFORMATION OUTPUT DEFINED'
            write(0,*)
        endif
        if (kvol.eq.1) goto 101
  
  C----
  C Read input fault files
  C----
        if (verbos.ge.1) then
            write(0,*) 'READING SOURCE FAULT INPUTS'
        endif
        call readsrc(ffmf,fspf,fltf,magf,nflt,evlo,evla,evdp,str,dip,rak,
       1             dx,dy,slip,hylo,hyla,emprel,haff,sthr,verbos)
        if (verbos.ge.1) then
            write(0,*) 'SOURCE FAULT READING COMPLETE:',nflt,
       1                                         'SUBFAULTS'
            write(0,*)
        endif
        
  C----
  C Check for auto flag to define stations
  