anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer nconsz,numelt,numnp,numat,nstatesz,ndmatsz,kr,kw,kp
  -      integer idout,idsk,ierr
  +      integer nconsz,nprestrflag,numelt,ngausstot,numnp,numat
  +      integer nstatesz,ndmatsz,kr,kw,kp,idout,idsk,ierr
         integer neni(netypesi),infetype(4,netypes),infmat(3,numat)
  -      integer infmatmod(5,nmatmodmax),ien(nconsz),infiel(6,numelt)
  +      integer infmatmod(5,nmatmodmax),ien(nconsz),infiel(7,numelt)
         integer indmat(numat),imgrp(numat)
         character ifile*(*),ofile*(*),pfile*(*),errstrng*(*)
   c
  
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:       call ifill(ien,izero,nconsz)
        call ifill(indmat,izero,numat)
        call ifill(imgrp,izero,numat)
        call ifill(infiel,izero,iseven*numelt)
        nstatesz=izero
        ngausstot=izero
        ndmatsz=izero
        incstate0=izero
        nstatesz0=izero
        if(nprestrflag.ne.izero) incstate0=ione
        ierr=izero
  c
  c...  set initial pointers for different material types
  