anchor.diff:        if (kmag.eq.1) then
             call readmag(magf,evlo,evla,evdp,str,dip,rak,dx,dy,slip,
        1                 nflt)
  +      endif
  +      if (nflt.lt.1) then
  +          write(*,*) '!! Error: no input faults read'
  +          call usage('!! Check input files for correct format')
         endif
   C     If FFM not used, use unweighted mean coordinates as hylo and hyla
         if (kffm.ne.1) then
  
positive.code:           dy(i) = 1.0d3*dy(i)
            goto 321
    322 continue
        nflt = i - 1
        close(32)
        RETURN
  
negative.code:           evdp(i) = 1.0d3*evdp(i)
            goto 331
    332 continue
        if (f-1.ne.ln) then
            call usage('!! Error: NFLT in -mag file not equal to NLINE')
        endif
        nflt = i - 1
        close(33)
        RETURN
  