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