function waterR4_ph extends Modelica.Icons.Function; input SI.Pressure p "pressure"; input SI.SpecificEnthalpy h "specific enthalpy"; output ThermoFluidSpecial.ThermoProperties_ph pro "thermodynamic property collection"; end waterR4_ph;