anchor.diff:        end
   c
   c version
  -c $Id: td_matinit_cmp_ss.f,v 1.2 2004/07/09 01:29:45 willic3 Exp $
  +c $Id: td_matinit_cmp_ss.f,v 1.3 2004/08/02 21:29:45 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c...  loop over elements in group if there is material property
  c     variation for the material type.
  c
          nstateinc=nstr*nstate
          do ind=matgpt,matgpt+nmatel-1
            iel=infiel(4,ind)
            ietype=infiel(3,iel)
  
negative.code:      &       ierr,errstrng)
              if(ierr.ne.izero) return
              tminmax=min(tminmax,tmax)
              inddmatg=inddmatg+ione
              indstateg=indstateg+nstate
            end do
          end do
        end if
  