anchor.diff:        end
   c
   c version
  -c $Id: elas_matinit_cmp_ss.f,v 1.3 2004/07/08 20:32:25 willic3 Exp $
  +c $Id: elas_matinit_cmp_ss.f,v 1.4 2004/08/02 21:08:57 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:       if(imatvar.eq.izero) ng=ngaussmax
        inddmatg=inddmat0
        do l=2,ng
          inddmatg=inddmatg+nddmat
          call dcopy(nddmat,dmat(1,inddmat0),ione,dmat(1,inddmatg),ione)
        end do
  c
  
negative.code:           ngauss=infetype(1,ietype)
            inddmatg=inddmat
            do l=1,ngauss
              inddmatg=inddmatg+ione
              call dcopy(nddmat,dmat(1,inddmat0),ione,dmat(1,inddmatg),
       &       ione)
            end do
  