function wrapper_zunmrq input Real RQ_real[:, :] "Square or rectangular matrix"; input Real RQ_imag[size(RQ_real, 1), size(RQ_real, 2)] "Square or rectangular matrix"; input Real tau_real[min(size(RQ_real, 1), size(RQ_real, 2))] "The scalar factors of the elementary reflectors of Q, real part"; input Real tau_imag[min(size(RQ_real, 1), size(RQ_real, 2))] "The scalar factors of the elementary reflectors of Q, imaginary part"; input Real C_real[:, :]; input Real C_imag[size(C_real, 1), size(C_real, 2)]; input Boolean left = true; input Boolean trans = false; output Real QC_real[size(C_real, 1), size(C_real, 2)] = C_real; output Real QC_imag[size(C_real, 1), size(C_real, 2)] = C_imag; output Integer info; end wrapper_zunmrq;