anchor.diff:       & ielno,iside,ihistry,pres,pdir,                                   ! tractn
        & prop,mhist,infmat,infmatmod,tminmax,                             ! materl
        & gauss,sh,shj,infetype,                                           ! eltype
  -     & histry,rtimdat,ntimdat,nvisdat,                                  ! timdat
  +     & histry,rtimdat,ntimdat,nvisdat,iprestress,                       ! timdat
        & rgiter,gcurr,gi,gprev,gtol,rmin,rmult,nsiter,                    ! iterate
        & skew,                                                            ! skew
        & ncodat,nunits,nprint,                                            ! ioinfo
  
positive.code: c...loop over iterations
  c
        do iter=1,itmaxp
          updats=((ipstrs.ne.1).or.(ipstrs.eq.1.and.nstep.eq.0.and.
       &   iter.eq.1).or.(nstep.gt.0)).and.lgdefp.ge.1
          skc=iter.gt.1.and.lgdefp.ge.1.and.(numslp.ne.0.and.
       &   (iskopt.eq.2.or.(iskopt.le.0.and.abs(iskopt).eq.nstep)))
          nittot=nittot+1
  
negative.code:       end
  c
  c version
  c $Id: iterate.f,v 1.8 2005/01/18 17:55:16 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  