anchor.diff:       & tfault,numfn,                                                    ! fault
        & state,dstate,dmat,ien,lm,lmx,lmf,infiel,nstatesz,ndmatsz,        ! elemnt
        & numelt,nconsz,                                                   ! elemnt
  -     & prop,infmat,nprop,matgpt,elas_strs,td_strs,                      ! materl
  +     & prop,nmatel,nstate,nprop,matgpt,elas_strs,td_strs,               ! materl
        & gauss,sh,shj,infetype,                                           ! eltype
        & rtimdat,ntimdat,rgiter,                                          ! timdat
        & skew,numrot,                                                     ! skew
  
positive.code:       end
  c
  c version
  c $Id: elas_strs_cmp_ss.f,v 1.8 2004/07/02 17:44:31 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
  c...  local variables
  c
        integer ind,iel,indien,ietype,indstate,inddmat
        integer ngauss,nen,nee,l,indstateg,inddmatg,incstate
        double precision dl(60),xl(60),scur(162),ee(162),p(60),det(27)
  c
  