anchor.diff:  c
   c...  local variables
   c
  -      integer nmatel,nstate,ind,iel,indien,ietype,indstate,inddmat
  -      integer ngauss,nen,nee,l,indstateg,inddmatg,imatvar,ngtest
  +      integer ind,iel,indien,ietype,indstate,inddmat
  +      integer ngauss,nen,nee,l,indstateg,inddmatg,ngtest
         integer ngaussdim,incstate
         double precision dl(60),xl(60),scur(162),ee(162),p(60),det(27)
   c
  
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:       end
  c
  c version
  c $Id: elas_strs_mat_cmp_ss.f,v 1.4 2004/07/08 21:38:09 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  