C LATEN0    SOURCE    CHAT      05/01/13    01:13:16     5004           
      FUNCTION LATEN0(P)
C
C--------------------------------------------------------------------
C Chaleur latente en fonction de la pression partielle de vapeur
C--------------------------------------------------------------------
C
C  E/   P      : Pression partielle de vapeur (en Pa)
C   /S  LATEN0 : Chaleur latente de vaporisation (en J/kg)
C
C--------------------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 LATEN0
C
      T      = TSATP0(P)
      LATEN0 = HVS0(P,T) - HLS0(P,T)
C
      END