anchor.diff:  c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   c
   c
  -      subroutine update_state(state,dstate,infiel,infmat,infetype,
  -     & nstatesz,numelt,numat,ierr,errstrng)
  +      subroutine update_state(state,dstate,infiel,infmat,infmatmod,
  +     & infetype,nstatesz,numelt,numat,ierr,errstrng)
   c
   c...program to update state variables after iteration convergence
   c
  
positive.code: c...  loop over material groups
  c
        do imat=1,numat
          nmatel=infmat(2,imat)
          nstate=infmat(3,imat)
          incstate=nstr*nstate
  c
  c...  loop over elements in group, updating appropriate state variables
  
negative.code:       end
  c
  c version
  c $Id: update_state.f,v 1.2 2004/07/09 15:25:16 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  