anchor.diff:  c
   cdebug      write(6,*) "Hello from td_strs_cmp_ss_f!"
   c
  -      nmatel=infmat(2)
  -      nstate=infmat(3)
         incstate=nstr*nstate
   c
   c...  loop over elements in a material group
  
positive.code:       end
  c
  c version
  c $Id: td_strs_cmp_ss.f,v 1.2 2004/07/02 18:36:36 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:      & tfault,numfn,                                                    ! fault
       & state,dstate,dmat,ien,lm,lmx,lmf,infiel,nstatesz,ndmatsz,        ! elemnt
       & numelt,nconsz,                                                   ! elemnt
       & prop,nmatel,nstate,nprop,matgpt,elas_strs,td_strs,               ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & rtimdat,ntimdat,rgiter,                                          ! timdat
       & skew,numrot,                                                     ! skew
  