anchor.diff:       & s,stemp,                                                         ! stiff
        & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,         ! elemnt
        & ndmatsz,numelt,nconsz,                                           ! elemnt
  -     & prop,nprop,matgpt,imatvar,nmatel,elas_matinit,td_matinit,matchg, ! materl
  -     & tminmax,                                                         ! materl
  +     & prop,nstate,nprop,matgpt,imatvar,nmatel,elas_matinit,td_matinit, ! materl
  +     & matchg,tminmax,                                                  ! materl
        & gauss,sh,shj,infetype,                                           ! eltype
  -     & rtimdat,ntimdat,                                                 ! timdat
  +     & rtimdat,ntimdat,rgiter,                                          ! timdat
        & skew,numrot,                                                     ! skew
        & getshape,bmatrix,                                                ! bbar
        & ierr,errstrng)                                                   ! errcode
  
positive.code:       ng=ngauss
        if(imatvar.eq.izero) ng=ngaussmax
        inddmatg=inddmat0
        do l=2,ng
          inddmatg=inddmatg+ione
          call dcopy(nddmat,dmat(1,inddmat0),ione,dmat(1,inddmatg),ione)
  
negative.code: c
        include "rtimdat_def.inc"
        include "ntimdat_def.inc"
        include "rgiter_def.inc"
  c
  cdebug      write(6,*) "Hello from elas_matinit_cmp_ss_f!"
  c
  