anchor.diff:        open (unit=23,file=haffile,status='old')
         open (unit=24,file=trgfile,status='old')
         read (23,*) vp,vs,dens
  -      read (24,*) trgstr,trgdip,trgrak,frict
  +
  +C----
  +C Compare number of lines in stations.txt and targetparams.txt
  +C and use line count of stations.txt to initialize progress indicator
  +C----
  +      stact = 0
  +  112 read (22,*,end=113)
  +          stact = stact + 1
  +          goto 112
  +  113 continue
  +      trgct = 0
  +  114 read (24,*,end=115)
  +           trgct = trgct + 1
  +           goto 114
  +  115 continue
  +      rewind 22
  +      rewind 24
  +
  +      prog100 = stact
  +      if (trgct.eq.1) then
  +          if (verbose) write (*,8997)
  +      elseif (trgct.eq.stact) then
  +          if (verbose) write (*,8998)
  +          trgmatchsta = .true.
  +      else
  +          write (*,8999)
  +          call usage()
  +      endif
  + 8997 format ('NL in targetparams.txt = 1')
  + 8998 format ('NL in targetparams.txt = NL in stations.txt')
  + 8999 format ('Error: NL in targetparams.txt must be 1 or',
  +     1        ' equal to NL in stations.txt')
  +
   C----
   C Output files
   C----
  
positive.code: 
  C----------------------------------------------------------------------C
  
        SUBROUTINE checkctrlfiles(srcfile,stafile,haffile,trgfile,verbose)
        IMPLICIT none
        CHARACTER*20 srcfile,stafile,haffile,trgfile
  
negative.code:      1       dip(maxflt),rak(maxflt),slip(maxflt),dx(maxflt),dy(maxflt),
       2       area(maxflt)
  
        INTEGER prog,prog100,progtag,stact,trgct
  
        REAL*8 stlo,stla,stdp,dist,az,x,y
        REAL*8 vp,vs,dens,trgstr,trgdip,trgrak,frict
  
        REAL*8 e(3,3),enet(3,3),stress(3,3),norml,shear,coul,n(3)
  
        call gcmdln(verbose)
  
        trgmatchsta = .false.
  
  C----
  C Input files
  