anchor.diff:  c
   cdebug      write(6,*) "Hello from td_matinit_cmp_ss_f!"
   c
  -      nmatel=infmat(2)
  -      imatvar=infmat(4)
   c
   c...  compute d-matrix for first element in the group.  If imatvar is
   c     zero, there is only one d-matrix for the group, and that is all
  
positive.code:       end
  c
  c version
  c $Id: td_matinit_cmp_ss.f,v 1.1 2004/06/25 21:37:15 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 iel,indstate0,inddmat0,ietype,nstate,ng
        integer inddmatg,l,nstateinc,ind,indstate,inddmat,ngauss,indstateg
        integer indien,nen,nee,ngtest,ngaussdim
        double precision tmax
  