anchor.diff:       & s,stemp,                                                         ! stiff
        & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,ndmatsz, ! elemnt
        & numelt,nconsz,                                                   ! elemnt
  -     & prop,infmat,nprop,matgpt,elas_strs_mat,td_strs_mat,matchg,       ! materl
  +     & prop,nmatel,imatvar,nstate,nprop,matgpt,elas_strs_mat,           ! materl
  +     & td_strs_mat,matchg,                                              ! materl
        & gauss,sh,shj,infetype,                                           ! eltype
        & rtimdat,ntimdat,rgiter,                                          ! timdat
        & skew,numrot,                                                     ! skew
  
positive.code: c
  cdebug      write(6,*) "Hello from elas_strs_mat_cmp_ss_f!"
  c
        nmatel=infmat(2)
        nstate=infmat(3)
        imatvar=infmat(4)
        ngtest=izero
        if(imatvar.eq.izero) ngtest=ngaussmax
        incstate=nstr*nstate
  
negative.code: c...  subroutine arguments
  c
        integer nnz,neq,numnp,numslp,numsn,numfn,nstatesz,ndmatsz,numelt
        integer nconsz,nmatel,imatvar,nstate,nprop,matgpt,numrot,ierr
        integer ja(nnz),ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz)
        integer lmf(nconsz),infiel(6,numelt),iddmat(nstr,nstr)
        integer infetype(4,netypes)
        character errstrng*(*)
        logical matchg
  