function wrapper_zgerq2 input Real A_real[:, :] "Square or rectangular matrix"; input Real A_imag[size(A_real, 1), size(A_real, 2)] "Square or rectangular matrix"; output Real RQ_real[size(A_real, 1), size(A_real, 2)] = A_real "RQ factorization in packed format, real part"; output Real RQ_imag[size(A_real, 1), size(A_real, 2)] = A_imag "RQ factorization in packed format, imaginary part"; output Real tau_real[min(size(A_real, 1), size(A_real, 2))] "The scalar factors of the elementary reflectors of Q, real part"; output Real tau_imag[min(size(A_real, 1), size(A_real, 2))] "The scalar factors of the elementary reflectors of Q, imaginary part"; output Integer info; end wrapper_zgerq2;