Esope source files

   1 : C PSATT0    SOURCE    CHAT      05/01/13    02:37:00     5004           
   2 :       FUNCTION PSATT0(T)
   3 : C
   4 : C--------------------------------------------------------------------
   5 : C Pression partielle de vapeur à saturation pour une température donnée
   6 : C--------------------------------------------------------------------
   7 : C
   8 : C  E/   T      : Température de saturation (en K)
   9 : C   /S  PSATT0 : Pression partielle de vapeur à saturation (en Pa)
  10 : C
  11 : C--------------------------------------------------------------------
  12 : C
  13 :       IMPLICIT INTEGER(I-N)
  14 :       IMPLICIT REAL*8 (A-H,O-Z)
  15 : C
  16 :       A0 = 4.3820662D-8 
  17 :       A1 = 1.9770073D-6 
  18 :       A2 = 6.7955758D-5 
  19 :       A3 =-9.3874734D-7 
  20 :       A4 = 1.2653874D-8 
  21 :       T1  = T - 273.15D0
  22 :       PSATT0 = ((((A4*T1+A3)*T1+A2)*T1+A1)*T1+A0)*1.D5
  23 : C
  24 :       END
  25 :  
  26 :