:Begin:
:Function:       H2O_Sat_Temp
:Pattern:        h2oSatTemp[P_Real]
:Arguments:      { P }
:ArgumentTypes:  { Real }
:ReturnType:     Manual
:End:

:Evaluate: h2oSatTemp::usage = "Returns the Saturation Temperature (K) given the Saturation Pressure (MPa)."


:Begin:
:Function:       H2O_Sat_Press
:Pattern:        h2oSatPress[T_Real]
:Arguments:      { T }
:ArgumentTypes:  { Real }
:ReturnType:     Manual
:End:

:Evaluate: h2oSatPress::usage = "Returns the Saturation Pressure (MPa) give the Saturation Temperature (K)."


:Begin:
:Function:       H2O_Prop_PT
:Pattern:        h2oPropPT[Property_Integer, P_Real, T_Real, Saturation_Integer]
:Arguments:      { Property, P, T, Saturation }
:ArgumentTypes:  { Integer, Real, Real, Integer }
:ReturnType:     Manual
:End:

:Evaluate: h2oPropPT::usage = "Returns the indicated Property given the Pressure (MPa) and Temperature (K) and indication of saturation conditions or not.  Saturation = Indication if Saturation Condition is requested by: 0 = Saturated Liquid Conditions (either P or T must be zero), 1 = Saturated Vapor Conditions  (either P or T must be zero), -1 = Non-saturated conditions to be provided.  Properties are defined as follows: 0=Pressure (MPa), 1=Temperature (K), 2=Specific volume (m^3/kg), 3=Specific internal energy (kJ/kg), 4=Specific entropy [kJ/(kg K)], 5=Specific enthalpy (kJ/kg), 6=Specific isobaric heat capacity [kJ/(kg K)], 7=Specific isochoric heat capacity [kJ/(kg K)], 8=Density (kg/m^3), 9=Speed of sound (m/s), 10=Gibbs free energy (kJ/kg), 11=Hemholtz free energy (kJ/kg), 12=Quality (dimensionless), 13=Ratio of specific heats (Cp/Cv) (dimensionless), 14=Surface Tension (N/m), 15=Dynamic Viscosity (Pa*s), 16=Thermal Conductivity [W/(K*m)], 17=Thermal diffusivity (m^2/s), 18=Kinematic Viscosity (m^2/s), 19=Prandtl Number (dimensionless)"


:Begin:
:Function:       H2O_Prop_Ph
:Pattern:        h2oPropPh[Property_Integer, P_Real, h_Real]
:Arguments:      { Property, P, h }
:ArgumentTypes:  { Integer, Real, Real }
:ReturnType:     Manual
:End:

:Evaluate: h2oPropPh::usage = "Returns the indicated Property given the Pressure (MPa) and Enthalpy (kJ/kg).  Properties are defined as follows: 0=Pressure (MPa), 1=Temperature (K), 2=Specific volume (m^3/kg), 3=Specific internal energy (kJ/kg), 4=Specific entropy [kJ/(kg K)], 5=Specific enthalpy (kJ/kg), 6=Specific isobaric heat capacity [kJ/(kg K)], 7=Specific isochoric heat capacity [kJ/(kg K)], 8=Density (kg/m^3), 9=Speed of sound (m/s), 10=Gibbs free energy (kJ/kg), 11=Hemholtz free energy (kJ/kg), 12=Quality (dimensionless), 13=Ratio of specific heats (Cp/Cv) (dimensionless), 14=Surface Tension (N/m), 15=Dynamic Viscosity (Pa*s), 16=Thermal Conductivity [W/(K*m)], 17=Thermal diffusivity (m^2/s), 18=Kinematic Viscosity (m^2/s), 19=Prandtl Number (dimensionless)"

:Begin:
:Function:       H2O_Prop_Ps
:Pattern:        h2oPropPs[Property_Integer, P_Real, s_Real]
:Arguments:      { Property, P, s }
:ArgumentTypes:  { Integer, Real, Real }
:ReturnType:     Manual
:End:

:Evaluate: h2oPropPs::usage = "Returns the indicated Property given the Pressure (MPa) and Entropy [kJ/(kg K)].  Properties are defined as follows: 0=Pressure (MPa), 1=Temperature (K), 2=Specific volume (m^3/kg), 3=Specific internal energy (kJ/kg), 4=Specific entropy [kJ/(kg K)], 5=Specific enthalpy (kJ/kg), 6=Specific isobaric heat capacity [kJ/(kg K)], 7=Specific isochoric heat capacity [kJ/(kg K)], 8=Density (kg/m^3), 9=Speed of sound (m/s), 10=Gibbs free energy (kJ/kg), 11=Hemholtz free energy (kJ/kg), 12=Quality (dimensionless), 13=Ratio of specific heats (Cp/Cv) (dimensionless), 14=Surface Tension (N/m), 15=Dynamic Viscosity (Pa*s), 16=Thermal Conductivity [W/(K*m)], 17=Thermal diffusivity (m^2/s), 18=Kinematic Viscosity (m^2/s), 19=Prandtl Number (dimensionless)"

:Begin:
:Function:       H2O_Prop_hs
:Pattern:        h2oProphs[Property_Integer, h_Real, s_Real]
:Arguments:      { Property, h, s }
:ArgumentTypes:  { Integer, Real, Real }
:ReturnType:     Manual
:End:

:Evaluate: h2oProphs::usage = "Returns the indicated Property given the Enthalpy (kJ/kg) and Entropy [kJ/(kg K)].  Properties are defined as follows: 0=Pressure (MPa), 1=Temperature (K), 2=Specific volume (m^3/kg), 3=Specific internal energy (kJ/kg), 4=Specific entropy [kJ/(kg K)], 5=Specific enthalpy (kJ/kg), 6=Specific isobaric heat capacity [kJ/(kg K)], 7=Specific isochoric heat capacity [kJ/(kg K)], 8=Density (kg/m^3), 9=Speed of sound (m/s), 10=Gibbs free energy (kJ/kg), 11=Hemholtz free energy (kJ/kg), 12=Quality (dimensionless), 13=Ratio of specific heats (Cp/Cv) (dimensionless), 14=Surface Tension (N/m), 15=Dynamic Viscosity (Pa*s), 16=Thermal Conductivity [W/(K*m)], 17=Thermal diffusivity (m^2/s), 18=Kinematic Viscosity (m^2/s), 19=Prandtl Number (dimensionless)"


:Begin:
:Function:       H2O_Prop_Ts
:Pattern:        h2oPropTs[Property_Integer, T_Real, s_Real]
:Arguments:      { Property, T, s }
:ArgumentTypes:  { Integer, Real, Real }
:ReturnType:     Manual
:End:

:Evaluate: h2oPropTs::usage = "Returns the indicated Property given the Temperature (K) and Entropy [kJ/(kg K)].  Properties are defined as follows: 0=Pressure (MPa), 1=Temperature (K), 2=Specific volume (m^3/kg), 3=Specific internal energy (kJ/kg), 4=Specific entropy [kJ/(kg K)], 5=Specific enthalpy (kJ/kg), 6=Specific isobaric heat capacity [kJ/(kg K)], 7=Specific isochoric heat capacity [kJ/(kg K)], 8=Density (kg/m^3), 9=Speed of sound (m/s), 10=Gibbs free energy (kJ/kg), 11=Hemholtz free energy (kJ/kg), 12=Quality (dimensionless), 13=Ratio of specific heats (Cp/Cv) (dimensionless), 14=Surface Tension (N/m), 15=Dynamic Viscosity (Pa*s), 16=Thermal Conductivity [W/(K*m)], 17=Thermal diffusivity (m^2/s), 18=Kinematic Viscosity (m^2/s), 19=Prandtl Number (dimensionless)"

