anchor.diff:   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
  
positive.code: c
  c...  subroutine arguments
  c
        integer numat,npropsz,kr,kw,kp,idout,idsk,ierr
        integer mhist(npropsz),infmat(3,numat)
        character mhfile*(*),ofile*(*),pfile*(*),errstrng*(*)
  c
  
negative.code: c         2:  Error opening output file
  c         3:  Read error
  c         4:  Write error
  c       100:  Attempt to use undefined history
  c
        include "implicit.inc"
  c
  