From f2953573ede24d7f8c01fdb18de48f65f00a9943 Mon Sep 17 00:00:00 2001
From: julie <julielangou@users.noreply.github.com>
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/dlarzt.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'SRC/dlarzt.f')

diff --git a/SRC/dlarzt.f b/SRC/dlarzt.f
index 0f734754..dbbe29c7 100644
--- a/SRC/dlarzt.f
+++ b/SRC/dlarzt.f
@@ -164,7 +164,7 @@
 *
             IF( I.LT.K ) THEN
 *
-*              T(i+1:k,i) = - tau(i) * V(i+1:k,1:n) * V(i,1:n)'
+*              T(i+1:k,i) = - tau(i) * V(i+1:k,1:n) * V(i,1:n)**T
 *
                CALL DGEMV( 'No transpose', K-I, N, -TAU( I ),
      $                     V( I+1, 1 ), LDV, V( I, 1 ), LDV, ZERO,
-- 
cgit v1.2.3