## Copyright © EDF 2002 - 2025
## ThermoSysPro Version 4.2
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;