Adapted from the ThermoFlow library (H. Tummescheit)
Version 1.0
function gibbsPropsSat
input Units.SI.AbsolutePressure P "Pressure";
input Units.SI.Temperature T "Temperature";
input GibbsDerivs g "Dérivées de la fonction de Gibbs" annotation(
Placement(transformation(extent = {{-85, 15}, {-15, 85}}, rotation = 0)));
output PropThermoSat sat annotation(
Placement(transformation(extent = {{15, 15}, {85, 85}}, rotation = 0)));
end gibbsPropsSat;