Added a new function to calculate the vapor pressure, given a temperature in Kelvin. This new function uses the more accurate equations and is accurate from -100 to +100 C. It sets the vapor pressure to 0 below -100 C.