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/spbcon.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'SRC/spbcon.f')

diff --git a/SRC/spbcon.f b/SRC/spbcon.f
index 76a98295..0fb53dd9 100644
--- a/SRC/spbcon.f
+++ b/SRC/spbcon.f
@@ -139,7 +139,7 @@
       IF( KASE.NE.0 ) THEN
          IF( UPPER ) THEN
 *
-*           Multiply by inv(U').
+*           Multiply by inv(U**T).
 *
             CALL SLATBS( 'Upper', 'Transpose', 'Non-unit', NORMIN, N,
      $                   KD, AB, LDAB, WORK, SCALEL, WORK( 2*N+1 ),
@@ -160,7 +160,7 @@
      $                   INFO )
             NORMIN = 'Y'
 *
-*           Multiply by inv(L').
+*           Multiply by inv(L**T).
 *
             CALL SLATBS( 'Lower', 'Transpose', 'Non-unit', NORMIN, N,
      $                   KD, AB, LDAB, WORK, SCALEU, WORK( 2*N+1 ),
-- 
cgit v1.2.3