anchor.diff:        end
   c
   c version
  -c $Id: td_strs_cmp_ss.f,v 1.1 2004/06/24 20:06:03 willic3 Exp $
  +c $Id: td_strs_cmp_ss.f,v 1.2 2004/07/02 18:36:36 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:         ngauss=infetype(1,ietype)
          nen=infetype(2,ietype)
          nee=infetype(4,ietype)
  c
  c...  localize coordinates and displacements
  c
  
negative.code: c
        nmatel=infmat(2)
        nstate=infmat(3)
        incstate=nstr*nstate
  c
  c...  loop over elements in a material group
  c
  