anchor.diff:                    write(26,9992) stlo,stla,coul
                 endif
             endif
  +C         Update progress indicator
             call progbar(i,nsta,progout)
  -  101 continue
  +  201 continue
    9990 format(2F12.4,X,3F12.4)
    9991 format(2F12.4,X,6E16.6)
    9992 format(2F12.4,X,1E16.6)
  
positive.code:      1       rak(FMAX),dx(FMAX),dy(FMAX),slip(FMAX)
        open (unit=32,file=fltfile,status='old')
        f = 0
    201 f = f + 1
        i = nflt + f
        read (32,*,END=202) evlo(i),evla(i),evdp(i),str(i),dip(i),rak(i),
       1                    slip(i),dy(i),dx(i)
            evdp(i) = 1.0d3*evdp(i)
            dx(i) = 1.0d3*dx(i)
            dy(i) = 1.0d3*dy(i)
            goto 201
    202 continue
        nflt = i - 1
        close(32)
        RETURN
  
negative.code:       flttyp = 1
        auto = 0
        incr = 0.1d0
  C     Input file status indicators (ICHECK block variables)
  C     0=unspecified; 1=specified; -1=specified, but file not found
        kffm = 0
        kflt = 0
        kmag = 0
  