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;