anchor.diff:  c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   c
   c
  -      subroutine read_mathist(mhist,infmat,numat,npropsz,
  +      subroutine read_mathist(mhist,infmat,numat,npropsz,nhist,
        & kr,kw,kp,idout,idsk,mhfile,ofile,pfile,ierr,errstrng)
   c
   c...     reads material history information.
  
positive.code: c         2:  Error opening output file
  c         3:  Read error
  c         4:  Write error
  c
        include "implicit.inc"
  c
  
negative.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
  