anchor.diff:  c...  local variables
   c
         integer iel,indstate0,inddmat0,ietype,nstate,ng
  -      integer inddmatg,l,nstateinc,ind,indstate,inddmat,ngauss,indstateg
  +      integer inddmatg,l,ind,indstate,inddmat,ngauss,indstateg
         integer indien,nen,nee,ngtest,ngaussdim
         double precision tmax
   c
  
positive.code:       end
  c
  c version
  c $Id: td_matinit_cmp_ss.f,v 1.2 2004/07/09 01:29:45 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c...  loop over elements in group if there is material property
  c     variation for the material type.
  c
          do ind=matgpt,matgpt+nmatel-1
            iel=infiel(4,ind)
            ietype=infiel(3,iel)
  