C*******************************************************************
C
      FUNCTION EVSAT(TT)
C
      IMPLICIT REAL*8 ( A-H, O-Z )
C*******************************************************************
C
      parameter ( e0 = 611.0d0,
     &            c1 = 17.27,
     &            t0 = 273.16,
     &            t1 = 35.86    )

C==================================================================
c     EVSAT= 611.* EXP( 17.27*(TT-273.16)/(TT-35.86))
      EVSAT= e0 * EXP( c1 *( TT-t0)/(TT-t1))
C
C-----------------------------------------------------------------
C
      RETURN
C
C-----------------------------------------------------------------
C
      entry evsat_p ( e00, c10, t00, t10 )

      dummy = 0.0d0

      e00 = e0
      c10 = c1
      t00 = t0
      t10 = t1

      evsat_p = dummy

      return

      END
