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
        &     ptmp,nmatel,nstate,nprop,matgpt,elas_strs_6,td_strs_6,       ! materl
        &     matchg,tminmax,                                              ! materl
        &     gauss,sh,shj,infetype,                                       ! eltype
  
positive.code:      & x,d,numnp,                                                       ! global
       & dx,numslp,                                                       ! slip
       & tfault,numfn,                                                    ! fault
       & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,ndmatsz, ! elemnt
       & numelt,nconsz,                                                   ! elemnt
       & prop,mhist,infmat,infmatmod,numat,npropsz,tminmax,               ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & histry,rtimdat,rgiter,ntimdat,nhist,lastep,stress_cmp,           ! timdat
  
negative.code: c
  c...  subroutine arguments
  c
        integer neq,numnp,numslp,numfn,nstatesz,nstatesz0,ndmatsz,numelt
        integer nconsz,nprestrflag,ipstrs,ipauto,nstate0
        integer numat,npropsz,nhist,lastep,numrot,ierr
        integer ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz),lmf(nconsz)
        integer infiel(7,numelt),iddmat(nstr,nstr),mhist(npropsz)
        integer infmat(3,numat),infmatmod(5,nmatmodmax)
        integer infetype(4,netypes)
        character errstrng*(*)
  