anchor.diff:       & dx,iwinkx,winkx,numslp,numsn,nwinkx,                             ! slip
        & tfault,numfn,                                                    ! fault
        & s,stemp,                                                         ! stiff
  -     & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,ndmatsz, ! elemnt
  -     & numelt,nconsz,                                                   ! elemnt
  +     & state,dstate,state0,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,  ! elemnt
  +     & nstatesz0,ndmatsz,numelt,nconsz,nprestrflag,ipstrs,ipauto,       ! elemnt
  +     & 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
  
positive.code:      &     dx,numslp,numsn,                                             ! slip
       &     tfault,numfn,                                                ! fault
       &     s,stemp,                                                     ! stiff
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,nmatel,imatvar,nstate,nprop,matgpt,elas_strs_6,         ! materl
       &     td_strs_mat_6,matchg,tminmax,                                ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
  
negative.code:      &     dx,numslp,numsn,                                             ! 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
       &     ptmp,nmatel,imatvar,nstate,nprop,matgpt,elas_strs_13,        ! materl
       &     td_strs_mat_13,matchg,tminmax,                               ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
  