C PVAP0     SOURCE    CHAT      05/01/13    02:39:40     5004           
      FUNCTION PVAP0(RO,T)
C
C---------------------------------------------------------------------
C Pression partielle de vapeur fonction de RO et de T (issue de RALOC)
C---------------------------------------------------------------------
C
C  E/  RO    : Densité de vapeur (en kg/m3)
C  E/  T     : Température (en K)
C   /S PVAP0 : Pression partielle de vapeur (p = ro R Z T)
C
C--------------------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                 
C
      B0 = -4512.70756D0  
      B1 = 4245585.9D0    
      B2 = -1584624342.D0 
      R  = 461.513D0      
      PVAP0 = ((B0*T*T + (B1*T) + B2) * RO / R / T / T / T + 1.D0)
     &      * RO * R * T 
C
      END