anchor.diff:       & ntimdat,iddmat,tmax,nstate,nprop,matchg,ierr,errstrng)
   c
   c...  subroutine to compute the current stress and updated material
  -c     matrix for the time-dependent solution.  Since this is a purely
  -c     elastic material, the material matrix should not change unless the
  -c     material properties have changed for a time step.
  +c     matrix for the time-dependent solution.
   c     Note that only the upper triangle is used (or available), as
   c     dmat is assumed to always be symmetric.
   c
  
positive.code: c
  cdebug      write(6,*) "Hello from elas_mat_5_f!"
  c
        e=prop(2)
        pr=prop(3)
        pr1=one-pr
  
negative.code: c       
  
  c version
  c $Id: mat_5.f,v 1.4 2004/08/12 20:46:16 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  