function velocityOfSound_ph extends Modelica.Icons.Function; input SI.Pressure p "Pressure"; input SI.SpecificEnthalpy h "Specific enthalpy"; output SI.Velocity a "Speed of sound"; end velocityOfSound_ph;