anchor.diff:       & s,stemp,                                                         ! stiff
        & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,npar,             ! elemnt
        & ielno,iside,ihistry,pres,pdir,                                   ! tractn
  -     & prop,mhist,infmat,                                               ! materl
  +     & prop,mhist,infmat,infmatmod,                                     ! materl
        & gauss,sh,shj,infetype,                                           ! eltype
        & histry,rtimdat,ntimdat,nvisdat,                                  ! timdat
        & rgiter,gcurr,gi,gprev,gtol,rmin,rmult,nsiter,                    ! iterate
  
positive.code:       end
  c
  c version
  c $Id: iterate.f,v 1.2 2004/07/05 20:37:17 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:      &     dx,numslp,                                                   ! slip
       &     tfault,numfn,                                                ! fault
       &     ien,lm,lmx,lmf,infiel,numelt,nconsz,                         ! elemnt
       &     prop,mhist,infmat,infmatmod,numat,npropsz,                   ! materl
       &     gauss,shj,infetype,                                          ! eltype
       &     histry,rtimdat,ntimdat,nhist,lastep,gload_cmp,               ! timdat
       &     skew,numrot,                                                 ! skew
  