anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer numat,npropsz,kr,kw,kp,idout,idsk,ierr
  +      integer numat,npropsz,nhist,kr,kw,kp,idout,idsk,ierr
         integer mhist(npropsz),infmat(3,numat)
         character mhfile*(*),ofile*(*),pfile*(*),errstrng*(*)
   c
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine read_mathist(mhist,infmat,numat,npropsz,
       & kr,kw,kp,idout,idsk,mhfile,ofile,pfile,ierr,errstrng)
  c
  c...     reads material history information.
  
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
  