anchor.diff:  c...  open input file
   c
         ierr=izero
  -      numelt=izero
  -      nconsz=izero
  -      call ifill(infmat,izero,ithree*numat)
  +      numelv=izero
  +      ietypev=izero
  +      call ifill(ifamilyv,izero,ithree*nvfamilies)
         open(kr,file=cfile,status="old",err=20)
   c
  -c...  set up part of the infmat array that has already been determined
  +c...  set up part of the ifamilyv array that has already been determined
   c     by python material property input routine.
   c
  -      do i=1,numat
  -        infmat(1,i)=matmod(i)
  -        infmat(3,i)=indprop(i)
  +      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
  
positive.code: c    comment.
  c
        call pskip(kr)
   40   continue
          read(kr,*,end=10,err=30) n,ietypei,imat,infin,
       &   (ien(j),j=1,neni(ietypei))
  c
          matm=infmat(1,imat)
  c
          if(ietypei.le.izero.or.ietypei.gt.netypesi) then
            ierr=106
            errstrng="scan_connect"
            return
  
negative.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
  