anchor.diff:  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
  
positive.code:         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
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:       infmatmod(2,1) =12
        infmatmod(3,1) =ithree
        infmatmod(6,1) =6
  c
  c...  Dummy definitions for additional elastic material models
  c
  