anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer maxvfamilies,numat,numelv,nvfamilies,ietypev,kr,ierr
  -      integer neni(netypesi),infmatmod(5,nmatmodmax)
  +      integer maxvfamilies,numelv,nvfamilies,ietypev,kr,ierr
  +      integer neni(netypesi),infmatmod(6,nmatmodmax)
         integer ivflist(maxvfamilies)
         character cfile*(*),errstrng*(*)
   c
   c...  local variables
   c
  -      integer i,j,n,ietypei,imat,infin,matm
  +      integer j,n,ietypei,imat,infin
         integer ien(20)
   c
   c...  open input file
  
positive.code:         read(kr,*,end=10,err=30) n,ietypei,imat,infin,
       &   (ien(j),j=1,neni(ietypei))
  c
          matm=ifamilyv(2,imat)
  c
          if(ietypei.ne.ietypev) then
            ierr=106
            errstrng="scan_connect"
            return
          end if
  c
          if(imat.le.izero.or.imat.gt.numat) then
            ierr=107
            errstrng="scan_connect"
            return
          end if
  c
          if(matm.gt.nmatmodmax.or.infmatmod(1,matm).eq.izero) then
            ierr=101
            errstrng="scan_connect"
            return
          end if
  c
          numelv=numelv+ione
          ifamilyv(1,imat)=ifamilyv(1,imat)+ione
  c
          go to 40
  c
  
negative.code: c
  c                             Charles A. Williams
  c                       Rensselaer Polytechnic Institute
  c                        (C) 2005  All Rights Reserved
  c
  c  All worldwide rights reserved.  A license to use, copy, modify and
  c  distribute this software for non-commercial research purposes only
  c  is hereby granted, provided that this copyright notice and
  