Télécharger cmdens.eso

Retour à la liste

Numérotation des lignes :

  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
  10. call carac_mate_powder1_densi(xmat,xdensi)
  11. else if (nmodel.eq.6) then
  12. call carac_mate_powder2_densi(xmat,xdensi)
  13. endif
  14. return
  15. end
  16.  
  17.  
  18.  
  19.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales