Esope source files

   1 : C HLS0      SOURCE    CHAT      05/01/13    00:24:29     5004           
   2 :       FUNCTION HLS0(P,T)
   3 : C
   4 : C--------------------------------------------------------------------
   5 : C Enthalpie liquide spécifique en fonction de P et de T
   6 : C--------------------------------------------------------------------
   7 : C
   8 : C  E/  P     : Pression (en Pa)
   9 : C  E/  T     : Température (en K)
  10 : C   /S HLS0  : Enthalpie spécifique liquide (en J/kg)
  11 : C
  12 : C--------------------------------------------------------------------
  13 : C
  14 :       IMPLICIT INTEGER(I-N)
  15 :       IMPLICIT REAL*8 (A-H,O-Z)                 
  16 : C
  17 :       HL1  = 0.18637D-2   * P - 0.50352D5
  18 :       HL2  = (0.3654D-12  * P - 0.30413D-5) * P + 0.40047D4
  19 :       HL3  = (-0.95261D-8 * P - 0.25785D0)  * P + 0.20641D8
  20 :       HL4  = 399.98D0
  21 :       TL1  = T - 273.15D0
  22 :       HLS0 = HL1 + (HL2 * TL1) + (HL3 / (HL4 - TL1))
  23 : C
  24 :       END
  25 :  
  26 :