anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer numat,npropsz,idout,idsk,kw,kp,ierr
  -      integer infmat(3,numat),infmatmod(5,nmatmodmax)
  +      integer nvfamilies,npropsz,idout,idsk,kw,kp,ierr
  +      integer ivfamily(5,nvfamilies),infmatmod(6,nmatmodmax)
         double precision prop(npropsz),grav(ndof)
         character ofile*(*),pfile*(*),errstrng*(*)
   c
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine write_props(prop,grav,infmat,infmatmod,numat,npropsz,
       & idout,idsk,kw,kp,ofile,pfile,ierr,errstrng)
  c
  c...  program to print properties for each material type.
  c
  
negative.code: c
  c...  local variables
  c
        integer numat,ifam,matmodel,indprop,nprop,i
  c
  c...  included variable definitions
  c
  