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:       end
  c
  c version
  c $Id: read_mathist.f,v 1.1 2004/07/13 19:54:30 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:  70   continue
          call pskip(kr)
          read(kr,*,end=60,err=30) imat,iprop,imhist
          if(imhist.le.izero.or.imhist.gt.nhist) then
            ierr=100
            errstrng="read_mathist"
            return
          end if
          indprop=infmat(3,imat)
          indpropg=indprop+iprop-ione
          mhist(indpropg)=imhist
  