anchor.diff:            return
           end if
   c
  -        ivflist(imat)=ivflist(imat)+ione
  +        ivflist(1,imat)=ivflist(1,imat)+ione
  +        ivflist(2,imat)=imat
           numelv=numelv+ione
   c
           go to 40
  +c
  +c...  determine the number of element families
  +c
  +      do j=1,maxvfamilies
  +        if(ivflist(1,j).ne.izero) nvfamilies=nvfamilies+1
  +      end do
   c
   c...  normal return
   c
  
positive.code: c
        integer maxvfamilies,numelv,nvfamilies,ietypev,kr,ierr
        integer neni(netypesi),infmatmod(6,nmatmodmax)
        integer ivflist(maxvfamilies)
        character cfile*(*),errstrng*(*)
  c
  c...  local variables
  
negative.code:       end
  c
  c version
  c $Id: scan_connect.f,v 1.5 2005/03/28 19:50:24 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  