From f2953573ede24d7f8c01fdb18de48f65f00a9943 Mon Sep 17 00:00:00 2001 From: julie Date: Sat, 2 Apr 2011 11:08:56 +0000 Subject: First pass to homgenize notation for transpose (**T) and conjugate transpose (**H) Corresponds to bug0024 --- SRC/dorgrq.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'SRC/dorgrq.f') diff --git a/SRC/dorgrq.f b/SRC/dorgrq.f index c2e0a916..b4499c87 100644 --- a/SRC/dorgrq.f +++ b/SRC/dorgrq.f @@ -193,14 +193,14 @@ CALL DLARFT( 'Backward', 'Rowwise', N-K+I+IB-1, IB, $ A( II, 1 ), LDA, TAU( I ), WORK, LDWORK ) * -* Apply H' to A(1:m-k+i-1,1:n-k+i+ib-1) from the right +* Apply H**T to A(1:m-k+i-1,1:n-k+i+ib-1) from the right * CALL DLARFB( 'Right', 'Transpose', 'Backward', 'Rowwise', $ II-1, N-K+I+IB-1, IB, A( II, 1 ), LDA, WORK, $ LDWORK, A, LDA, WORK( IB+1 ), LDWORK ) END IF * -* Apply H' to columns 1:n-k+i+ib-1 of current block +* Apply H**T to columns 1:n-k+i+ib-1 of current block * CALL DORGR2( IB, N-K+I+IB-1, IB, A( II, 1 ), LDA, TAU( I ), $ WORK, IINFO ) -- cgit v1.2.3