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