anchor.diff:  c       
   
   c version
  -c $Id: mat1.f,v 1.1 2004/05/19 16:41:12 willic3 Exp $
  +c $Id: mat1.f,v 1.2 2004/05/20 21:13:21 willic3 Exp $
   
   c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
   
  
positive.code:       end
  c
  c
        subroutine elasstrs1(state,dmat,nstr,nstate,nddmat)
  c
  c...  subroutine to compute stresses for the elastic solution.  For this
  c     material, there are just 2 state variables:  total stress and
  c     total strain.
  c
  c     state(nstr,1) = Cauchy stress
  c     state(nstr,2) = linear strain
  
negative.code: c...  subroutine arguments
  c
        integer nstr,nstate,nddmat
        double precision state(nstr,nstate),ee(nstr),dmat(nddmat)
  c
  c...  parameters
  c
  