anchor.diff:        infmatmod(3,5) = ifour
         infmatmod(4,5) = ione
         infmatmod(5,5) = izero
  +      ismatmod(1,5) =ione
  +      ismatmod(2,5) =ione
  +      ismatmod(3,5) =ione
   c
   c...  Dummy definitions for remaining materials
   c
  
positive.code: c                               1 = time response of material is
  c                                   nonlinear.
  c
        include "implicit.inc"
  c
  c...  parameter definitions
  
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
  