Télécharger fla013.eso

Retour à la liste

Numérotation des lignes :

  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.  
  59.  

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