Télécharger la plaquette Cast3M


fr en

Télécharger detoro.eso

Retour à la liste

Numérotation des lignes : 

detoro

  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