anchor.diff:       &     s,stemp,                                                     ! stiff
        &     state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,     ! elemnt
        &     ndmatsz,numelt,nconsz,                                       ! elemnt
  -     &     prop,mhist,infmat,numat,npropsz,                             ! materl
  +     &     prop,mhist,infmat,infmatmod,numat,npropsz,                   ! materl
        &     gauss,sh,shj,infetype,                                       ! eltype
        &     histry,rtimdat,rgiter,ntimdat,nhist,lastep,stress_mat_cmp,   ! timdat
        &     skew,numrot,                                                 ! skew
  
positive.code:      & s,stemp,                                                         ! stiff
       & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,npar,             ! elemnt
       & ielno,iside,ihistry,pres,pdir,                                   ! tractn
       & prop,mhist,infmat,                                               ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & histry,rtimdat,ntimdat,nvisdat,                                  ! timdat
       & rgiter,gcurr,gi,gprev,gtol,rmin,rmult,nsiter,                    ! iterate
  
negative.code:       integer ja(*),id(*),iwink(*),idx(*),iwinkx(*),idslp(*),ipslp(*)
        integer nfault(*),ien(*),lm(*),lmx(*),lmf(*),infiel(*),iddmat(*)
        integer ielno(*),iside(*),ihistry(*),mhist(*),infmat(*)
        integer infmatmod(*),infetype(*)
        character errstrng*(*)
        double precision alnz(*),pcg(*),zcg(*)
        double precision b(*),btot(*),bres(*),pvec(*),gvec1(*),gvec2(*)
  