anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer numat,npropsz,nhist,kr,kw,kp,idout,idsk,ierr
  -      integer mhist(npropsz),infmat(3,numat)
  +      integer nvfamilies,npropsz,nhist,kr,kw,kp,idout,idsk,ierr
  +      integer mhist(npropsz),ivfamily(5,nvfamilies)
         character mhfile*(*),ofile*(*),pfile*(*),errstrng*(*)
   c
   c...  local variables
   c
  -      integer imat,iprop,imhist,indprop,indpropg,i
  +      integer ifam,iprop,imhist,indprop,indpropg,i
   c
         ierr=izero
         call ifill(mhist,izero,npropsz)
  
positive.code:       end
  c
  c version
  c $Id: read_mathist.f,v 1.3 2004/08/25 01:12:48 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
  c                             Charles A. Williams
  c                       Rensselaer Polytechnic Institute
  c                        (C) 2005  All Rights Reserved
  c
  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
  