Télécharger xcv.eso

Retour à la liste

Numérotation des lignes :

  1. C XCV SOURCE CHAT 05/01/13 04:13:16 5004
  2. SUBROUTINE XCV(T,CVH2,CVN2,CVO2,CVH2O,NCVOPT)
  3. C-----------------------------------------------------------------------
  4. C
  5. C Calcul des chaleurs Spécifique à volume constant
  6. C pour H2, N2, O2 et H2O
  7. C H. Paillere 96
  8. C-----------------------------------------------------------------------
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8 (A-H,O-Z)
  11. C
  12. IF ( NCVOPT .EQ. 1 ) THEN
  13. CVH2 = 9357.54D0 + 1.684537D0*T
  14. CVN2 = 709.25D0 + 0.1387166D0*T
  15. CVO2 = 647.78D0 + 0.1420522D0*T
  16. CVH2O = 1253.83D0 + 0.552805D0*T
  17. ELSEIF ( NCVOPT .EQ. 2 ) THEN
  18. T2=T*T
  19. CVH2 = 9423.2D0 + 1.5266228D0*T + 6.319918D-5*T2
  20. CVN2 = 658.893D0 + 0.25964D0*T - 4.837297D-5*T2
  21. CVO2 = 588.3627D0 + 0.284747D0*T - 5.7083D-5*T2
  22. CVH2O = 1150.05D0 + 0.8019599D0*T - 9.965963D-5*T2
  23. ENDIF
  24. C
  25. RETURN
  26. END
  27.  
  28.  
  29.  

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