anchor.diff:  c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   c
   c
  -      subroutine scan_connect(neni,infmat,infmatmod,matmod,
  -     & indprop,numat,numelt,nconsz,kr,cfile,ierr,errstrng)
  +      subroutine scan_connect(neni,infmatmod,ivflist,maxvfamilies,
  +     & numat,numelv,nvfamilies,ietypev,kr,cfile,ierr,errstrng)
   c
   c...  subroutine to perform an initial scan of the element connectivity
   c     file to determine the total number of elements and the number of
  -c     elements of each material type.
  +c     elements of each material type.  At present, each material type
  +c     is assumed to represent an 'element family', and only a single
  +c     element type is allowed.  In the near future, families will be
  +c     defined by material model (not type) and element type.
   c
   c     Note that the variable netypesi (and the associated arrays) only
   c     defines the number of 'primitive' element types, and does not
  
positive.code: c
  c...  subroutine arguments
  c
        integer numat,numelt,nconsz,kr,ierr
        integer neni(netypesi),infmat(3,numat),infmatmod(5,nmatmodmax)
        integer matmod(numat),indprop(numat)
        character cfile*(*),errstrng*(*)
  c
  c...  local variables
  
negative.code:           return
          end if
  c
          numelv=numelv+ione
          ifamilyv(1,imat)=ifamilyv(1,imat)+ione
  c
          go to 40
  c
  