revert "comments fixed: expression for residual in xTBT02"

This reverts commit 0277cd9.

Author: jip

TESTING/LIN/ctbt02.f

@@ -140,7 +140,7 @@
 *> \verbatim
 *>          RESID is REAL
 *>          The maximum over the number of right hand sides of
-*>          norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
+*>          norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
 *> \endverbatim
 *
 *  Authors:
@@ -219,7 +219,7 @@ SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,
       END IF
 *
 *     Compute the maximum over the number of right hand sides of
-*        norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
+*        norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
 *
       RESID = ZERO
       DO 10 J = 1, NRHS

TESTING/LIN/dtbt02.f

@@ -135,7 +135,7 @@
 *> \verbatim
 *>          RESID is DOUBLE PRECISION
 *>          The maximum over the number of right hand sides of
-*>          norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
+*>          norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
 *> \endverbatim
 *
 *  Authors:
@@ -213,7 +213,7 @@ SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,
       END IF
 *
 *     Compute the maximum over the number of right hand sides of
-*        norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
+*        norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
 *
       RESID = ZERO
       DO 10 J = 1, NRHS

TESTING/LIN/stbt02.f

@@ -135,7 +135,7 @@
 *> \verbatim
 *>          RESID is REAL
 *>          The maximum over the number of right hand sides of
-*>          norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
+*>          norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
 *> \endverbatim
 *
 *  Authors:
@@ -213,7 +213,7 @@ SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,
       END IF
 *
 *     Compute the maximum over the number of right hand sides of
-*        norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
+*        norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
 *
       RESID = ZERO
       DO 10 J = 1, NRHS

TESTING/LIN/ztbt02.f

@@ -140,7 +140,7 @@
 *> \verbatim
 *>          RESID is DOUBLE PRECISION
 *>          The maximum over the number of right hand sides of
-*>          norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
+*>          norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
 *> \endverbatim
 *
 *  Authors:
@@ -219,7 +219,7 @@ SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,
       END IF
 *
 *     Compute the maximum over the number of right hand sides of
-*        norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
+*        norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
 *
       RESID = ZERO
       DO 10 J = 1, NRHS