function UNIQUACFun parameter Integer z; input Integer nS; input Integer k; input Modelica.Units.SI.MoleFraction x[nS]; input Modelica.Units.SI.Temperature T; input Real r[nS]; input Real q[nS]; input Real u[nS, nS]; output Real UNIQUAC; end UNIQUACFun;