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:       ierr=izero
        numelv=izero
        ietypev=izero
        call ifill(ivflist,izero,maxvfamilies)
        open(kr,file=cfile,status="old",err=20)
  c
  c... scan the file, counting the number of entries for each type of
  c    material.
  c    Note:  Due to speed considerations, we are not allowing the option
  c    of putting comments within the list.  To do this, we
  c    would need to scan each line twice to determine whether it was a
  
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
  