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