anchor.diff:          errstrng="mat_prt_1"
           return
   c
  - 700  format("Material number:   ",i7,/,10x,a80,/,
  + 700  format("Material number:       ",i7,/,
  +     &       "Material type:         ",a24,/,
        &       "Number of properties:  ",i7,/)
    710  format(15x,a15,3x,1pe15.8)
   c
  
positive.code: c       
  
  c version
  c $Id: mat_1.f,v 1.8 2004/07/21 19:18:23 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  
negative.code:       end
  c
  c
        subroutine td_matinit_1(state,dstate,dmat,prop,rtimdat,rgiter,
       & ntimdat,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
  