Thermodynamics properties in region 1, independent variables p and s
function prop1_Ps input Units.SI.AbsolutePressure p "Pressure"; input Units.SI.SpecificEntropy s "Specific entropy"; output ThermoSysPro.Properties.WaterSteamSimple.ThermoProperties_ps pro; end prop1_Ps;