function zungqr import Modelica_LinearSystems2.Math.Complex; input Modelica_LinearSystems2.Math.Complex QR[:, :] "Square or rectangular matrix"; input Complex tau[:] "elementary reflectors"; output Complex Q[size(QR, 1), size(QR, 2)] "matrix Q"; end zungqr;