Adapted from the ThermoFlow library (H. Tummescheit)
Version 1.0
function water_ps_r4 input Units.SI.AbsolutePressure p "pressure"; input Units.SI.SpecificEntropy s "specific entropy"; output ThermoProperties_ps pro; end water_ps_r4;