anchor.diff:  c
   c                             Charles A. Williams
   c                       Rensselaer Polytechnic Institute
  -c                        (C) 2004  All Rights Reserved
  +c                        (C) 2005  All Rights Reserved
   c
  -c  Copyright 2004 Rensselaer Polytechnic Institute.
   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
  
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...  subroutine arguments
  c
        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 j,n,ietypei,imat,infin
        integer ien(20)
  c
  c...  open input file
  