      FUNCTION  SKEWT_ESAT(T)
C  ESAT(MILLIBARS),T(KELVIN)
      PARAMETER (ABZ=273.16)
      TC=T-ABZ
      SKEWT_ESAT=6.1078*EXP((17.2693882*TC)/(TC+237.3))
      RETURN
      END
