function wrapper_zgeqrf 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 QR_real[size(A_real, 1), size(A_real, 2)] = A_real "QR factorization in packed format, real part"; output Real QR_imag[size(A_real, 1), size(A_real, 2)] = A_imag "QR 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_zgeqrf;