From 16973f0c15a4327f8a78b9652f178246895778c1 Mon Sep 17 00:00:00 2001
From: julie <julielangou@users.noreply.github.com>
Date: Thu, 7 Apr 2011 13:53:54 +0000
Subject: Second and hopefully last pass to homgenize notation for transpose
 (**T) and conjugate transpose (**H) Corresponds to bug0024

Please take a look and let me know if you find some old notation of transpose.
I am going to close bug0024.
Julie
---
 SRC/chptrd.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'SRC/chptrd.f')

diff --git a/SRC/chptrd.f b/SRC/chptrd.f
index 82d2fd2f..94357958 100644
--- a/SRC/chptrd.f
+++ b/SRC/chptrd.f
@@ -217,7 +217,7 @@
                CALL CAXPY( N-I, ALPHA, AP( II+1 ), 1, TAU( I ), 1 )
 *
 *              Apply the transformation as a rank-2 update:
-*                 A := A - v * w' - w * v**H
+*                 A := A - v * w**H - w * v**H
 *
                CALL CHPR2( UPLO, N-I, -ONE, AP( II+1 ), 1, TAU( I ), 1,
      $                     AP( I1I1 ) )
-- 
cgit v1.2.3