anchor.diff:  c   strains to their current values
   c
           if(converge) then
  -          call update_state(state,dstate,infiel,infmat,infetype,
  -     &     nstatesz,numelt,numat,ierr,errstrng)
  +          call update_state(state,dstate,infiel,infmat,infmatmod,
  +     &     infetype,nstatesz,numelt,numat,ierr,errstrng)
             return
           end if
           reform=.false.
  
positive.code:      &     tfault,numfn,                                                ! fault
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,nstatesz,ndmatsz,    ! elemnt
       &     numelt,nconsz,                                               ! elemnt
       &     prop,mhist,infmat,numat,npropsz,                             ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     histry,rtimdat,rgiter,ntimdat,nhist,lastep,stress_cmp,       ! timdat
       &     skew,numrot,                                                 ! skew
  
negative.code:       end
  c
  c version
  c $Id: iterate.f,v 1.3 2004/07/08 21:43:03 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  