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