Esope source files

   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 :