function s
import FCSys.Utilities.Polynomial;
extends Modelica.Icons.Function;
input Q.TemperatureAbsolute T = 298.15*U.K "Temperature" annotation(
Dialog(__Dymola_label = "<html><i>T</i></html>"));
input Q.PressureAbsolute p = p0 "Pressure" annotation(
Dialog(__Dymola_label = "<html><i>p</i></html>"));
output Q.NumberAbsolute s "Specific entropy" annotation(
Dialog(__Dymola_label = "<html><i>s</i></html>"));
end s;