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;