Télécharger detoro.eso

Retour à la liste

Numérotation des lignes :

  1. C DETORO SOURCE CHAT 05/01/12 22:44:27 5004
  2. SUBROUTINE DETORO(P,T,X,AN,RO,NBC)
  3. C---------------------------------------------------------------------
  4. C Calcul de la densité du mélange de gaz parfait à P et T.
  5. C---------------------------------------------------------------------
  6. C
  7. C---------------------------
  8. C Parametres Entree/Sortie :
  9. C---------------------------
  10. C
  11. C E/ P : Pression du mélange (Pa)
  12. C E/ T : Température du mélange (K)
  13. C E/ X(NBC) : Fraction molaire (-)
  14. C E/ AN(NBC) : Masse molaire des différents constituants (gramme)
  15. C /S RO : densité du mélange (kg/m3)
  16. C E/ NBC : Nombre de constituants
  17. C
  18. C---------------------------------------------------------------------
  19. C
  20. C Langage : FORTRAN
  21. C
  22. C Auteurs : F.DABBENE et E.STUDER 02/99
  23. C
  24. C---------------------------------------------------------------------
  25. IMPLICIT INTEGER(I-N)
  26. IMPLICIT REAL*8 (A-H,O-Z)
  27. DIMENSION X(*),AN(*)
  28. AM = 0.D0
  29. DO 10 I=1,NBC
  30. AM = AM + X(I)*AN(I)
  31. 10 CONTINUE
  32. R = 8.314D0 / AM * 1.D+3
  33. RO = P / (R*T)
  34. C
  35. RETURN
  36. END
  37.  
  38.  
  39.  

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