function propsat2_P input Units.SI.AbsolutePressure p "Pressure"; output ThermoSysPro.Properties.WaterSteamSimple.PropThermoSat pro; end propsat2_P;