diff options
Diffstat (limited to 'SRC/cunmrq.f')
| -rw-r--r-- | SRC/cunmrq.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/cunmrq.f b/SRC/cunmrq.f index 3ed1cbe1..54cea54c 100644 --- a/SRC/cunmrq.f +++ b/SRC/cunmrq.f @@ -27,7 +27,7 @@ * where Q is a complex unitary matrix defined as the product of k * elementary reflectors * -* Q = H(1)' H(2)' . . . H(k)' +* Q = H(1)**H H(2)**H . . . H(k)**H * * as returned by CGERQF. Q is of order M if SIDE = 'L' and of order N * if SIDE = 'R'. @@ -245,17 +245,17 @@ $ A( I, 1 ), LDA, TAU( I ), T, LDT ) IF( LEFT ) THEN * -* H or H' is applied to C(1:m-k+i+ib-1,1:n) +* H or H**H is applied to C(1:m-k+i+ib-1,1:n) * MI = M - K + I + IB - 1 ELSE * -* H or H' is applied to C(1:m,1:n-k+i+ib-1) +* H or H**H is applied to C(1:m,1:n-k+i+ib-1) * NI = N - K + I + IB - 1 END IF * -* Apply H or H' +* Apply H or H**H * CALL CLARFB( SIDE, TRANST, 'Backward', 'Rowwise', MI, NI, $ IB, A( I, 1 ), LDA, T, LDT, C, LDC, WORK, |