Esope source files

   1 : C FLA013    SOURCE    SERRE     12/07/10    21:15:17     7431           
   2 :       SUBROUTINE FLA013(X,OM,TRAV)
   3 : C------------------------------------------------------------------------
   4 : C Calcul des fractions molaires en fonction des fractions massiques
   5 : C (Xi=W*Yi/Wi avec 1/W = Yi/Wi)
   6 : C------------------------------------------------------------------------
   7 : C
   8 : C---------------------------
   9 : C Parametres Entree/Sortie :
  10 : C---------------------------
  11 : C
  12 : C  /S X(7)   : flottant : Fraction molaire de N2, O2, H2 et H2O
  13 : C E/  OM(7)  : flottant : Fraction massique de N2, O2, H2 et H2O
  14 : C
  15 : C------------------------------
  16 : C Variables de TRAV utilisées :
  17 : C------------------------------
  18 : C
  19 : C E/  M(7)   : Masse molaire des constituants du mélange (kg/mol) 
  20 : C
  21 : C------------------------------------------------------------------------
  22 : C
  23 : C Langage : ESOPE + FORTRAN 77
  24 : C
  25 : C Mise en oeuvre : H. Paillère (1997, TTMF)
  26 : C
  27 : C------------------------------------------------------------------------
  28 :       IMPLICIT INTEGER(I-N)
  29 :       IMPLICIT REAL*8 (A-H,O-Z)
  30 :       REAL*8 X(7),OM(7)
  31 :       segment trav
  32 :            integer iKALP,iMODEL
  33 :            real*8 e,L,Lch,Dh,S,sp,Ck
  34 :            real*8 mc,Cpc
  35 :            real*8 g,R,deltah
  36 :            real*8 M(nbesp),cstmod(ncst)
  37 :            real*8 Cpi(nbesp),al
  38 :            real*8 eps_mh2,eps_dt,eps_con,u
  39 :            real*8 XH2MOY,XO2MOY,XN2MOY,XH2OMOY,PRESSION,TEMPENT
  40 :            real*8 XHEMOY,XCO2MOY,XCOMOY
  41 :       endsegment
  42 : C
  43 :       IBOU = CPI(/1)
  44 :       SUM  = 0.D0
  45 :       DO 10 I=1,IBOU
  46 :          SUM = SUM + OM(I)/M(I)
  47 :  10   CONTINUE
  48 : C
  49 :       DO 20 I=1,IBOU
  50 :          X(I) = OM(I)/M(I)/SUM
  51 :  20   CONTINUE
  52 : C
  53 :       RETURN
  54 :       END
  55 : 
  56 :  
  57 :  
  58 :