anchor.diff:  c                               1 = time response of material is
   c                                   nonlinear.
   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: cdebug      write(6,*) "Hello from matmod_def_f!"
  c
        call ifill(infmatmod,izero,5*nmatmodmax)
  c
  c...  Definitions for isotropic elastic material
  c
        infmatmod(1,1) =ione
        infmatmod(2,1) =itwo
        infmatmod(3,1) =ithree
  c
  c...  Dummy definitions for additional elastic material models
  c
        infmatmod(2,2)=itwo
        infmatmod(2,3)=itwo
        infmatmod(2,4)=itwo
  c
  c...  Dummy definition for Maxwell viscoelastic material
  c
  
negative.code:         do j=1,5
            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.2 2004/07/12 21:33:30 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  