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;