anchor.diff:       & numelt,nconsz,                                                   ! elemnt
        & prop,infmat,nprop,matgpt,elas_strs,td_strs,                      ! materl
        & gauss,sh,shj,infetype,                                           ! eltype
  +     & rtimdat,ntimdat,rgiter,                                          ! timdat
        & skew,numrot,                                                     ! skew
        & getshape,bmatrix,                                                ! bbar
        & ierr,errstrng)                                                   ! errcode
  
positive.code:       integer nmatel,nstate,ind,iel,indien,ietype,indstate,inddmat
        integer ngauss,nen,nee,l,indstateg,inddmatg
        double precision dl(60),xl(60),scur(162),ee(162),p(60),det(27)
  c
  cdebug      write(6,*) "Hello from elas_strs_cmp_ss_f!"
  c
  
negative.code:       double precision shj(nsd+1,nenmax,ngaussmax,netypes)
        double precision skew(nskdim,numnp)
  c
  c...  included dimension and type statements
  c
        include "rtimdat_dim.inc"
        include "rgiter_dim.inc"
        include "ntimdat_dim.inc"
  c
  c...  intrinsic functions
  c
        intrinsic mod
  