function vt = sat_temp_antoine(A,B,C,p_sat)
% Saturation_Temp = sat_temp_antoine(A,B,C,p_sat)
% Saturation Temperature for a given Pressure
% Input: Antoine Constants (A,B,C), p_sat
% Output: Saturation Temperature
% ln P = A - B/(T+C)
% A, B, C constants of Antoine equation.
% T-temperature, P-saturation pressure

% Saturation Temperature from Antoine Equation
% Done on 09-Sep-2001; M.Subramanian
% A, B, C constants of Antoine equation.
% T temperature
% vt = Saturation Temperature.
% Vectorized (the dot next to B)

vt = B./(A - log(p_sat)) - C;

% end