Adapted from the ThermoFlow library (H. Tummescheit)
Version 1.2
function water_ph_r4 input Units.SI.AbsolutePressure p; input Units.SI.SpecificEnthalpy h; output ThermoProperties_ph pro; end water_ph_r4;