anchor.diff:  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
  
positive.code: c
  c...  local variables
  c
        integer nmatel,nstate,ind,iel,indien,ietype,indstate,inddmat
        integer ngauss,nen,nee,l,indstateg,inddmatg,imatvar,ngtest
        integer ngaussdim,incstate
        double precision dl(60),xl(60),scur(162),ee(162),p(60),det(27)
  c
  
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
  