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/stprfs.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'SRC/stprfs.f')

diff --git a/SRC/stprfs.f b/SRC/stprfs.f
index d73f59ce..c8bd6cda 100644
--- a/SRC/stprfs.f
+++ b/SRC/stprfs.f
@@ -344,7 +344,7 @@
          IF( KASE.NE.0 ) THEN
             IF( KASE.EQ.1 ) THEN
 *
-*              Multiply by diag(W)*inv(op(A)').
+*              Multiply by diag(W)*inv(op(A)**T).
 *
                CALL STPSV( UPLO, TRANST, DIAG, N, AP, WORK( N+1 ), 1 )
                DO 220 I = 1, N
-- 
cgit v1.2.3