anchor.diff:       &     dx,numslp,                                                   ! slip
        &     tfault,numfn,                                                ! fault
        &     state(indstate),dstate(indstate),state0(indstate0),          ! elemfamily
  -     &     dmat(1,indiel),ien(1,indiel),lm(1,indiel),lmx(1,indiel),     ! elemfamily
  -     &     lmf(1,indiel),nelfamily,nstate,nstate0,nprestrflag,ipstrs,   ! elemfamily
  -     &     ipauto,n0states,                                             ! elemfamily
  +     &     dmat(1,ielg),ien(1,ielg),lm(1,ielg),lmx(1,ielg),             ! elemfamily
  +     &     lmf(1,ielg),nelfamily,nstate,nstate0,nprestrflag,ipstrs,     ! elemfamily
  +     &     ipauto,n0states,ielg,                                        ! elemfamily
        &     ptmp,nprop,elas_strs_3,td_strs_3,matchg,tminmax,             ! materl
        &     gauss,sh,shj,nen,ngauss,nee,                                 ! eltype
        &     rtimdat,ntimdat,rgiter,                                      ! timdat
  
positive.code:      &     dx,numslp,                                                   ! slip
       &     tfault,numfn,                                                ! fault
       &     state(indstate),dstate(indstate),state0(indstate0),          ! elemfamily
       &     dmat(1,indiel),ien(1,indiel),lm(1,indiel),lmx(1,indiel),     ! elemfamily
       &     lmf(1,indiel),nelfamily,nstate,nstate0,nprestrflag,ipstrs,   ! elemfamily
       &     ipauto,n0states,                                             ! elemfamily
       &     ptmp,nprop,elas_strs_16,td_strs_16,matchg,tminmax,           ! materl
       &     gauss,sh,shj,nen,ngauss,nee,                                 ! eltype
       &     rtimdat,ntimdat,rgiter,                                      ! timdat
  
negative.code:      &     dx,numslp,                                                   ! slip
       &     tfault,numfn,                                                ! fault
       &     state(indstate),dstate(indstate),state0(indstate0),          ! elemfamily
       &     dmat(1,ielg),ien(1,ielg),lm(1,ielg),lmx(1,ielg),             ! elemfamily
       &     lmf(1,ielg),nelfamily,nstate,nstate0,nprestrflag,ipstrs,     ! elemfamily
       &     ipauto,n0states,ielg,                                        ! elemfamily
       &     ptmp,nprop,elas_strs_8,td_strs_8,matchg,tminmax,             ! materl
       &     gauss,sh,shj,nen,ngauss,nee,                                 ! eltype
       &     rtimdat,ntimdat,rgiter,                                      ! timdat
  