From 16973f0c15a4327f8a78b9652f178246895778c1 Mon Sep 17 00:00:00 2001 From: julie 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/chetrd.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'SRC/chetrd.f') diff --git a/SRC/chetrd.f b/SRC/chetrd.f index 2868958c..cf928151 100644 --- a/SRC/chetrd.f +++ b/SRC/chetrd.f @@ -237,7 +237,7 @@ $ LDWORK ) * * Update the unreduced submatrix A(1:i-1,1:i-1), using an -* update of the form: A := A - V*W' - W*V**H +* update of the form: A := A - V*W**H - W*V**H * CALL CHER2K( UPLO, 'No transpose', I-1, NB, -CONE, $ A( 1, I ), LDA, WORK, LDWORK, ONE, A, LDA ) @@ -268,7 +268,7 @@ $ TAU( I ), WORK, LDWORK ) * * Update the unreduced submatrix A(i+nb:n,i+nb:n), using -* an update of the form: A := A - V*W' - W*V**H +* an update of the form: A := A - V*W**H - W*V**H * CALL CHER2K( UPLO, 'No transpose', N-I-NB+1, NB, -CONE, $ A( I+NB, I ), LDA, WORK( NB+1 ), LDWORK, ONE, -- cgit v1.2.3