C CMDENS    SOURCE    CHAT      05/01/12    22:10:25     5004
CCC
C **********************************************************************
CCC
      SUBROUTINE CARAC_MATE_DENSI(XMAT,XDENSI,NMODEL)
      IMPLICIT INTEGER(I-N)
      real*8    xmat(*),xdensi
      integer   nmodel
      if (nmodel.eq.5) then
         call carac_mate_powder1_densi(xmat,xdensi)
      else if (nmodel.eq.6) then
         call carac_mate_powder2_densi(xmat,xdensi)
      endif
      return
      end