Density in liquid region for given pressure and specific entropy
function d1_Ps input Units.SI.AbsolutePressure p "Pressure"; input Units.SI.SpecificEntropy s "Specific entropy"; output Units.SI.Density d "Density"; end d1_Ps;