Esope source files

   1 : C BPSAT     SOURCE    CHAT      05/01/12    21:42:34     5004           
   2 :       FUNCTION BPSAT(T)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C
   6 : C     operateur FUITE
   7 : C>>>  calcule la pression de saturation de la vapeur en Pa
   8 : C       T  : temperature du fluide en ›K
   9 : C
  10 :       BPSAT=1.05E26*(T**(-5.))*EXP(-7000/T)
  11 :       RETURN
  12 :       END
  13 :  
  14 :