Esope source files

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