function zunmrq import Complex; input Complex C[:, :] "Matrix to multiply with Q"; input Complex RQ[:, :] "Matrix as a result of zgerq2"; input Complex tau[:] "elementary reflectors"; input Boolean left = true; input Boolean trans = false; output Complex CQ[size(C, 1), size(C, 2)] "Matrix product C*Q, Q*C, C*Q**H, Q**H*C"; end zunmrq;