anchor.diff:  c
         ngtest=izero
         if(imatvar.eq.izero) ngtest=ngaussmax
  -      incstate=nstr*nstate
   c
   c...  loop over elements in a material group
   c
  
positive.code:       end
  c
  c version
  c $Id: elas_strs_mat_cmp_ss.f,v 1.7 2004/07/21 19:14:50 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
        integer ind,iel,indien,ietype,indstate,inddmat
        integer ngauss,nen,nee,l,indstateg,inddmatg,ngtest
        integer ngaussdim
        double precision dl(60),xl(60),scur(162),ee(162),p(60),det(27)
  c
  c...  included variable definitions
  