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