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_5,td_strs_5,       ! 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,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,nmatel,nstate,nprop,matgpt,elas_strs_19,td_strs_19,     ! materl
       &     matchg,tminmax,                                              ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
  
negative.code:      &     x,d,numnp,                                                   ! global
       &     dx,numslp,                                                   ! slip
       &     tfault,numfn,                                                ! fault
       &     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_11,td_strs_11,     ! materl
       &     matchg,tminmax,                                              ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
  