Esope source files

   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 :