anchor.diff:  c
         integer maxvfamilies,numelv,nvfamilies,ietypev,kr,ierr
         integer neni(netypesi),infmatmod(6,nmatmodmax)
  -      integer ivflist(maxvfamilies)
  +      integer ivflist(2,maxvfamilies)
         character cfile*(*),errstrng*(*)
   c
   c...  local variables
  
positive.code:       end
  c
  c version
  c $Id: scan_connect.f,v 1.4 2005/03/26 01:05:54 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:           return
          end if
  c
          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
  