anchor.diff:  c...  local variables
   c
         integer imat,npage,matmod,i,n,j,inf,ietypei,ngauss,nstate,imatvar
  -      integer ietype,nen,i1,i2
  +      integer ietype,nen,i1,i2,incstate0,nstatesz0
   cdebug      integer idb,jdb
   c
   cdebug      write(6,*) "Hello from read_connect_f!"
  
positive.code:           infiel(6,i)=ndmatsz+ione
            ndmatsz=ndmatsz+ngauss
          end if
  cdebug        write(6,*) i,(infiel(jdb,i),jdb=1,6)
        end do
        close(kr)
  cdebug      write(6,*) "infiel:"
  cdebug      do idb=1,numelt
  
negative.code: c
  c
        subroutine read_connect(neni,infetype,infmat,infmatmod,ien,infiel,
       & indmat,imgrp,nconsz,nprestrflag,numelt,ngausstot,numnp,numat,
       & nstatesz,nstatesz0,ndmatsz,kr,kw,kp,idout,idsk,ifile,ofile,pfile,
       & ierr,errstrng)
  c
  c      this subroutine reads element types and connectivities, material
  c      types, and infinite element info.
  