anchor.diff:       & s,stemp,                                                         ! stiff
        & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,ndmatsz, ! elemnt
        & numelt,nconsz,                                                   ! elemnt
  -     & prop,mhist,infmat,numat,npropsz,tminmax,                         ! materl
  +     & prop,mhist,infmat,infmatmod,numat,npropsz,tminmax,               ! materl
        & gauss,sh,shj,infetype,                                           ! eltype
        & histry,rtimdat,ntimdat,nhist,lastep,matinit_cmp,                 ! timdat
        & skew,numrot,                                                     ! skew
  
positive.code:      &     s,stemp,                                                     ! stiff
       &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
       &     ndmatsz,numelt,nconsz,                                       ! elemnt
       &     ptmp,infmat(1,imat),nprop,matgpt,elas_mat_16,                ! materl
       &     td_matinit_16,matchg,tminmax,                                ! materl
       &     gauss,sh,shj,infetype,                                       ! eltype
       &     rtimdat,ntimdat,                                             ! timdat
  
negative.code: c
        include "ndimens.inc"
        include "nshape.inc"
        include "materials.inc"
        include "nconsts.inc"
        include "rconsts.inc"
  c
  