anchor.diff:        end
   c
   c
  -      subroutine td_mat_1(state,dmat,prop,iddmat,nstr,nstate,nddmat,
  -     & nprop,matchg)
  +      subroutine td_mat_1(state,dmat,prop,iddmat,nstate,nprop,matchg)
   c
   c...  subroutine to form the material matrix for an integration point
   c     for the time-dependent solution.  This routine is meant to be
  
positive.code: c       
  
  c version
  c $Id: mat_1.f,v 1.1 2004/06/15 21:06:04 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  
negative.code: c
        include "implicit.inc"
  c
  c...  parameter definitions
  c
        include "ndimens.inc"
        include "nconsts.inc"
        include "rconsts.inc"
  c
  c...  subroutine arguments
  c
        integer nstate,nprop
        integer iddmat(nstr,nstr)
        double precision state(nstr,nstate),dmat(nddmat),prop(nprop)
  c
        call dspmv("u",nstr,one,dmat,state(1,2),ione,zero,state(1,1),ione)
  c
  