anchor.diff:  c       
   
   c version
  -c $Id: mat_1.f,v 1.8 2004/07/21 19:18:23 willic3 Exp $
  +c $Id: mat_1.f,v 1.9 2004/08/02 20:34:49 willic3 Exp $
   
   c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
   
  
positive.code:       end
  c
  c
        subroutine td_matinit_1(state,dstate,dmat,prop,iddmat,tmax,nstate,
       & nprop,matchg,ierr,errstrng)
  c
  c...  subroutine to form the material matrix for an integration point
  c     for the time-dependent solution.  This routine is meant to be
  
negative.code:         errstrng="mat_prt_1"
          return
  c
   700  format("Material number:       ",i7,/,
       &       "Material type:         ",a24,/,
       &       "Number of properties:  ",i7,/)
   710  format(15x,a15,3x,1pe15.8)
  c
  