--- rpl/lapack/lapack/dtbrfs.f	2010/12/21 13:53:40	1.7
+++ rpl/lapack/lapack/dtbrfs.f	2011/07/22 07:38:12	1.8
@@ -1,10 +1,10 @@
       SUBROUTINE DTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B,
      $                   LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO )
 *
-*  -- LAPACK routine (version 3.2) --
+*  -- LAPACK routine (version 3.3.1) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     November 2006
+*  -- April 2011                                                      --
 *
 *     Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH.
 *
@@ -195,7 +195,7 @@
       DO 250 J = 1, NRHS
 *
 *        Compute residual R = B - op(A) * X,
-*        where op(A) = A or A', depending on TRANS.
+*        where op(A) = A or A**T, depending on TRANS.
 *
          CALL DCOPY( N, X( 1, J ), 1, WORK( N+1 ), 1 )
          CALL DTBMV( UPLO, TRANS, DIAG, N, KD, AB, LDAB, WORK( N+1 ),
@@ -258,7 +258,7 @@
             END IF
          ELSE
 *
-*           Compute abs(A')*abs(X) + abs(B).
+*           Compute abs(A**T)*abs(X) + abs(B).
 *
             IF( UPPER ) THEN
                IF( NOUNIT ) THEN
@@ -348,7 +348,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 DTBSV( UPLO, TRANST, DIAG, N, KD, AB, LDAB,
      $                     WORK( N+1 ), 1 )