function surfaceTension extends Modelica.Icons.Function; input SaturationProperties sat "saturation point"; output Modelica.Units.SI.SurfaceTension sigma "Surface tension in SI units"; constant Real s[3] = {-1.4165, 0.746383, 0.675625}; constant Real n[3] = {0.63882, 0.659804, 0.619149}; constant Real Tc = 33.145; end surfaceTension;