anchor.diff:  
         RETURN
         END
  +
  +C----------------------------------------------------------------------C
   
         SUBROUTINE mattr(matout,matin)
         IMPLICIT none
  
positive.code: 
  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)
  
negative.code:   104             continue
    105         continue
    106     continue
  
            call strain2stress(stress,enet,vp,vs,dens)
            call coulomb(coul,norml,shear,stress,trgstr,trgdip,trgrak,
       1                 frict)
  