anchor.diff:            infiel(6,i)=ndmatsz+ione
             ndmatsz=ndmatsz+ngauss
           end if
  -cdebug        write(6,*) i,(infiel(jdb,i),jdb=1,6)
  +cdebug        write(6,*) "i,infiel:",i,(infiel(jdb,i),jdb=1,7)
         end do
  +      if(nprestrflag.eq.izero) nstatesz0=ngaussmax
         close(kr)
   cdebug      write(6,*) "infiel:"
   cdebug      do idb=1,numelt
  
positive.code:       end
  c
  c version
  c $Id: read_connect.f,v 1.5 2004/08/25 01:12:48 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c...  set state variable and material matrix indices, and increment the
  c     total size of the state variable and material matrices.
  c
          ngauss=infetype(1,infiel(3,i))
          infiel(5,i)=nstatesz+ione
          infiel(7,i)=nstatesz0+ione
          ngausstot=ngausstot+ngauss
          nstate=infmatmod(2,matmod)
          imatvar=infmatmod(4,matmod)
          nstatesz=nstatesz+nstate*ngauss
          nstatesz0=nstatesz0+incstate0*ngauss
          if(imatvar.eq.izero) then
            if(imgrp(imat).eq.izero) then
              infiel(6,i)=ndmatsz+ione
  