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: c
  c
        subroutine read_connect(neni,infetype,infmat,infmatmod,ien,infiel,
       & indmat,imgrp,nconsz,numelt,numnp,numat,nstatesz,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.
  
negative.code: c...  local variables
  c
        integer imat,npage,matmod,i,n,j,inf,ietypei,ngauss,nstate,imatvar
        integer ietype,nen,i1,i2,incstate0,nstatesz0
  cdebug      integer idb,jdb
  c
  cdebug      write(6,*) "Hello from read_connect_f!"
  