anchor.diff:       & dx,numslp,                                                       ! slip
        & tfault,numfn,                                                    ! fault
        & ien,lm,lmx,lmf,infiel,numelt,nconsz,                             ! elemnt
  -     & prop,mhist,infmat,numat,npropsz,                                 ! materl
  +     & prop,mhist,infmat,infmatmod,numat,npropsz,                       ! materl
        & gauss,shj,infetype,                                              ! eltype
        & histry,rtimdat,ntimdat,nhist,lastep,gload_cmp,                   ! timdat
        & skew,numrot,                                                     ! skew
  
positive.code:      &   dx,numslp,                                                     ! slip
       &   tfault,numfn,                                                  ! fault
       &   ien,lm,lmx,lmf,infiel,numelt,nconsz,                           ! elemnt
       &   dens,infmat(1,imat),matgpt,nmatel,matchg,                      ! materl
       &   gauss,shj,infetype,                                            ! eltype
       &   rtimdat,ntimdat,                                               ! timdat
       &   skew,numrot,                                                   ! skew
  
negative.code: c
        include "ndimens.inc"
        include "nshape.inc"
        include "materials.inc"
        include "nconsts.inc"
        include "rconsts.inc"
  c
  