anchor.diff:       &     x,d,numnp,                                                   ! global
        &     dx,numslp,                                                   ! slip
        &     tfault,numfn,                                                ! fault
  -     &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
  -     &     ndmatsz,numelt,nconsz,                                       ! elemnt
  +     &     state,dstate,state0,dmat,ien,lm,lmx,lmf,infiel,iddmat,       ! elemnt
  +     &     nstatesz,nstatesz0,ndmatsz,numelt,nconsz,nprestrflag,ipstrs, ! elemnt
  +     &     ipauto,nstate0,                                              ! elemnt
        &     prop,mhist,infmat,infmatmod,numat,npropsz,tminmax,           ! materl
        &     gauss,sh,shj,infetype,                                       ! eltype
        &     histry,rtimdat,rgiter,ntimdat,nhist,lastep,stress_cmp,       ! timdat
  
positive.code:       character errstrng*(*)
        double precision alnz(*),pcg(*),zcg(*),dprev(*)
        double precision bextern(*),btraction(*),bgravity(*),bconcforce(*)
        double precision bprestress(*),bintern(*),bresid(*),bwork(*)
        double precision dispvec(*),grav(*)
        double precision x(*),d(*),deld(*),dcur(*),wink(*)
        double precision dx(*),deldx(*),dxcur(*),winkx(*)
        double precision dfault(*),tfault(*)
        double precision s(*),stemp(*)
        double precision state(*),dstate(*),dmat(*)
        double precision pres(*),pdir(*)
        double precision prop(*),tminmax
        double precision gauss(*),sh(*),shj(*)
  
negative.code:      &     dx,iwinkx,winkx,numslp,numsn,nwinkx,                         ! slip
       &     tfault,numfn,                                                ! fault
       &     s,stemp,                                                     ! stiff
       &     state,dstate,state0,dmat,ien,lm,lmx,lmf,infiel,iddmat,       ! elemnt
       &     nstatesz,nstatesz0,ndmatsz,numelt,nconsz,nprestrflag,ipstrs, ! elemnt
       &     ipauto,nstate0,                                              ! elemnt
       &     prop,mhist,infmat,infmatmod,numat,npropsz,tminmax,           ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     histry,rtimdat,rgiter,ntimdat,nhist,lastep,stress_mat_cmp,   ! timdat
  