anchor.diff:        subroutine mathist(ptmp,prop,mhist,histry,nprop,imat,nstep,nhist,
        & lastep,matchg,ierr,errstrng)
   c
  -c...subroutine to assign material properties based on time histories
  +c...  subroutine to assign material properties based on time histories
   c
         include "implicit.inc"
  +c
  +c...  parameter definitions
  +c
  +      include "nconsts.inc"
   c
   c...  subroutine arguments
   c
  
positive.code:       end
  c
  c version
  c $Id: mathist.f,v 1.4 2004/07/05 19:40:17 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:       logical matchg
        character errstrng*(*)
        double precision ptmp(nprop),prop(nprop),histry(nhist,lastep+1)
  c
  c...  local variables
  c
  