anchor.diff:        ierr=izero
         numelv=izero
         ietypev=izero
  -      call ifill(ifamilyv,izero,ithree*nvfamilies)
  +      call ifill(ivflist,izero,maxvfamilies)
         open(kr,file=cfile,status="old",err=20)
  -c
  -c...  set up part of the ifamilyv array that has already been determined
  -c     by python material property input routine.
  -c
  -      do i=1,nvfamilies
  -        ifamilyv(2,i)=matmod(i)
  -        ifamilyv(3,i)=indprop(i)
  -      end do
   c
   c... scan the file, counting the number of entries for each type of
   c    material.
  
positive.code:       end
  c
  c version
  c $Id: scan_connect.f,v 1.3 2005/03/19 01:53:32 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:         read(kr,*,end=10,err=30) n,ietypei,imat,infin,
       &   (ien(j),j=1,neni(ietypei))
  c
          if(ietypei.ne.ietypev) then
            ierr=106
            errstrng="scan_connect"
            return
          end if
  c
          if(imat.le.izero.or.imat.gt.maxvfamilies) then
            ierr=107
            errstrng="scan_connect"
            return
          end if
  c
          ivflist(imat)=ivflist(imat)+ione
          numelv=numelv+ione
  c
          go to 40
  c
  