function waterR4_ph extends Modelica.Icons.Function; input SI.Pressure p "Pressure"; input SI.SpecificEnthalpy h "Specific enthalpy"; output ThermofluidStream.Media.myMedia.Common.ThermoFluidSpecial.ThermoProperties_ph pro "Thermodynamic property collection"; end waterR4_ph;