anchor.diff:  c       
   
   c version
  -c $Id: mat_5.f,v 1.3 2004/08/12 02:01:55 willic3 Exp $
  +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
   
  
positive.code:      & 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     Note that only the upper triangle is used (or available), as
  c     dmat is assumed to always be symmetric.
  c
  
negative.code: c
  cdebug      write(6,*) "Hello from td_matinit_5_f!"
  c
        call fill(dmat,zero,nddmat)
        tmax=big
        e=prop(2)
        pr=prop(3)
  