anchor.diff:          do j=2,6
             infmatmod(j,i)=infmatmod(j,5)
           end do
  -        do j=1,nstatesmax
  -          ismatmod(j,i)=ismatmod(j,5)
  -        end do
         end do
   c
         return
         end
   c
   c version
  -c $Id: matmod_def.f,v 1.4 2005/03/21 23:19:11 willic3 Exp $
  +c $Id: matmod_def.f,v 1.5 2005/03/28 23:52:18 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c                               change in the future.
  c                 
  c
  c     In addition, this routine generates a simple integer (binary)
  c     matrix (ismatmod) indicating whether a state variable is used for
  c     a particular material model.
  c
        include "implicit.inc"
  c
  c...  parameter definitions
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine matmod_def(infmatmod)
  c
  c...  quick and dirty method of defining global parameters for all
  c     material models.
  