anchor.diff:          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.1 2004/07/08 20:00:02 willic3 Exp $
  +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
  
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:       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
  