function psat extends Modelica.Icons.Function; input SI.Temperature T "Temperature (K)"; output SI.Pressure p_sat "Pressure"; end psat;