anchor.diff:        end
   c
   c version
  -c $Id: read_mathist.f,v 1.3 2004/08/25 01:12:48 willic3 Exp $
  +c $Id: read_mathist.f,v 1.4 2005/03/26 00:50:58 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine read_mathist(mhist,infmat,numat,npropsz,nhist,
       & kr,kw,kp,idout,idsk,mhfile,ofile,pfile,ierr,errstrng)
  c
  c...     reads material history information.
  
negative.code: c
   70   continue
          call pskip(kr)
          read(kr,*,end=60,err=30) ifam,iprop,imhist
          if(imhist.le.izero.or.imhist.gt.nhist) then
            ierr=100
            errstrng="read_mathist"
            return
          end if
          indprop=ivfamily(5,ifam)
          indpropg=indprop+iprop-ione
          mhist(indpropg)=imhist
          if(idout.gt.izero) write(kw,810,err=50) ifam,iprop,imhist
          go to 70
   60   continue
        close(kr)
  