anchor.diff:  c
   c                             Charles A. Williams
   c                       Rensselaer Polytechnic Institute
  -c                        (C) 2004  All Rights Reserved
  +c                        (C) 2005  All Rights Reserved
   c
  -c  Copyright 2004 Rensselaer Polytechnic Institute.
   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
  
positive.code: c
  c...  subroutine arguments
  c
        integer numat,npropsz,nhist,kr,kw,kp,idout,idsk,ierr
        integer mhist(npropsz),infmat(3,numat)
        character mhfile*(*),ofile*(*),pfile*(*),errstrng*(*)
  c
  c...  local variables
  c
        integer imat,iprop,imhist,indprop,indpropg,i
  c
        ierr=izero
        call ifill(mhist,izero,npropsz)
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine read_mathist(mhist,ivfamily,nvfamilies,npropsz,nhist,
       & kr,kw,kp,idout,idsk,mhfile,ofile,pfile,ierr,errstrng)
  c
  c...     reads material history information.
  