anchor.diff:        end
   c
   c version
  -c $Id: td_strs_mat_cmp_ss.f,v 1.2 2004/07/02 18:40:39 willic3 Exp $
  +c $Id: td_strs_mat_cmp_ss.f,v 1.3 2004/07/09 01:38:46 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:      & 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
       & gauss,sh,shj,infetype,                                           ! eltype
       & rtimdat,ntimdat,rgiter,                                          ! timdat
       & skew,numrot,                                                     ! skew
  
negative.code: c
  cdebug      write(6,*) "Hello from elas_strs_mat_cmp_ss_f!"
  c
        ngtest=izero
        if(imatvar.eq.izero) ngtest=ngaussmax
        incstate=nstr*nstate
  