anchor.diff:        end
   c
   c version
  -c $Id: elas_mat_cmp.f,v 1.2 2004/06/18 15:32:27 willic3 Exp $
  +c $Id: elas_mat_cmp.f,v 1.3 2004/06/21 20:14:47 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:       iel=infiel(4,matgpt)
        inddmat0=infiel(6,iel)
        ietype=infiel(3,iel)
        call elas_mat(dmat(1,inddmat0),prop,iddmat,nprop)
        ngauss=infetype(1,ietype)
        ng=ngauss
        if(imatvar.eq.izero) ng=ngaussmax
  
negative.code:       subroutine elas_mat_cmp(
       & dmat,infiel,iddmat,ndmatsz,numelt,                               ! elemnt
       & prop,infmat,nprop,matgpt,elas_mat,                               ! materl
       & infetype,                                                        ! eltype
       & ierr,errstrng)                                                   ! errcode
  c
  c...  compute subroutine to form the d-matrix for the elastic solution
  c
  