function zgerq2 import Complex; input Complex A[:, :] "Square or rectangular matrix"; output Complex RQ[size(A, 1), size(A, 2)] "RQ factorization in packed format"; output Complex tau[:] "elementory reflectors"; end zgerq2;