anchor.diff:        end
   c
   c version
  -c $Id: read_connect.f,v 1.3 2004/08/02 21:25:14 willic3 Exp $
  +c $Id: read_connect.f,v 1.4 2004/08/12 02:24:21 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
        indmat(1)=ione
        do imat=2,numat
          indmat(imat)=indmat(imat-1)+infmat(2,imat)
        end do
  c
  c...  read connectivity, material number, and infinite element info
  c
  
negative.code: c
        integer imat,npage,matmod,i,n,j,inf,ietypei,ngauss,nstate,imatvar
        integer ietype,nen,i1,i2
  cdebug      integer idb,jdb
  c
  cdebug      write(6,*) "Hello from read_connect_f!"
  cdebug      write(6,*) nconsz,numelt,numnp,numat,nstatesz,ndmatsz,kr,kw,kp
  cdebug      write(6,*) (neni(idb),idb=1,netypesi)
  cdebug      write(6,*) "infetype:"
  cdebug      do idb=1,netypes
  cdebug        write(6,*) (infetype(jdb,idb),jdb=1,4)
  cdebug      end do
  cdebug      write(6,*) "infmat:"
  cdebug      do idb=1,numat
  cdebug        write(6,*) (infmat(jdb,idb),jdb=1,3)
  cdebug      end do
  cdebug      write(6,*) "infmatmod:"
  cdebug      do idb=1,nmatmodmax
  cdebug        write(6,*) (infmatmod(jdb,idb),jdb=1,5)
  cdebug      end do
        call ifill(ien,izero,nconsz)
        call ifill(indmat,izero,numat)
  