anchor.diff:        end
   c
   c version
  -c $Id: iterate.f,v 1.4 2004/07/21 15:43:51 willic3 Exp $
  +c $Id: iterate.f,v 1.5 2004/07/21 19:44:53 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:      &     x,d,numnp,                                                   ! global
       &     dx,numslp,                                                   ! slip
       &     tfault,numfn,                                                ! fault
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,nstatesz,ndmatsz,    ! elemnt
       &     numelt,nconsz,                                               ! elemnt
       &     prop,mhist,infmat,infmatmod,numat,npropsz,                   ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     histry,rtimdat,rgiter,ntimdat,nhist,lastep,stress_cmp,       ! timdat
       &     skew,numrot,                                                 ! skew
  
negative.code:       double precision s(*),stemp(*)
        double precision state(*),dstate(*),dmat(*)
        double precision pres(*),pdir(*)
        double precision prop(*),tminmax
        double precision gauss(*),sh(*),shj(*)
        double precision histry(*)
        double precision skew(*)
  