comments fixed: expression for residual in xTBT02

jip · jip · commit 0277cd9362d8 · 2021-06-03T23:02:31.000+10:00
diff --git a/TESTING/LIN/ctbt02.f b/TESTING/LIN/ctbt02.f
@@ -142,7 +142,7 @@
 *> \verbatim
 *>          RESID is REAL
 *>          The maximum over the number of right hand sides of
-*>          norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*>          norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
 *> \endverbatim
 *
 *  Authors:
@@ -221,7 +221,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(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*        norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
 *
       RESID = ZERO
       DO 10 J = 1, NRHS
diff --git a/TESTING/LIN/dtbt02.f b/TESTING/LIN/dtbt02.f
@@ -135,7 +135,7 @@
 *> \verbatim
 *>          RESID is DOUBLE PRECISION
 *>          The maximum over the number of right hand sides of
-*>          norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*>          norm(B - op(A)*X) / ( 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(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*        norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
 *
       RESID = ZERO
       DO 10 J = 1, NRHS
diff --git a/TESTING/LIN/stbt02.f b/TESTING/LIN/stbt02.f
@@ -134,7 +134,7 @@
 *> \verbatim
 *>          RESID is REAL
 *>          The maximum over the number of right hand sides of
-*>          norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*>          norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
 *> \endverbatim
 *
 *  Authors:
@@ -212,7 +212,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(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*        norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
 *
       RESID = ZERO
       DO 10 J = 1, NRHS
diff --git a/TESTING/LIN/ztbt02.f b/TESTING/LIN/ztbt02.f
@@ -142,7 +142,7 @@
 *> \verbatim
 *>          RESID is DOUBLE PRECISION
 *>          The maximum over the number of right hand sides of
-*>          norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*>          norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
 *> \endverbatim
 *
 *  Authors:
@@ -221,7 +221,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(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*        norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
 *
       RESID = ZERO
       DO 10 J = 1, NRHS

Original file line number	Diff line number	Diff line change
`@@ -142,7 +142,7 @@`
`142`	`142`	`*> \verbatim`
`143`	`143`	`*> RESID is REAL`
`144`	`144`	`*> The maximum over the number of right hand sides of`
`145`		`-> norm(op(A)x - b) / ( norm(op(A)) * norm(x) * EPS ).`
	`145`	`+> norm(B - op(A)X) / ( norm(op(A)) * norm(X) * EPS ).`
`146`	`146`	`*> \endverbatim`
`147`	`147`	`*`
`148`	`148`	`* Authors:`
`@@ -221,7 +221,7 @@ SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,`
`221`	`221`	`END IF`
`222`	`222`	`*`
`223`	`223`	`* Compute the maximum over the number of right hand sides of`
`224`		`-* norm(op(A)x - b) / ( norm(op(A)) norm(x) * EPS ).`
	`224`	`+* norm(B - op(A)X) / ( norm(op(A)) norm(X) * EPS ).`
`225`	`225`	`*`
`226`	`226`	`RESID = ZERO`
`227`	`227`	`DO 10 J = 1, NRHS`
Original file line number	Diff line number	Diff line change
`@@ -135,7 +135,7 @@`
`135`	`135`	`*> \verbatim`
`136`	`136`	`*> RESID is DOUBLE PRECISION`
`137`	`137`	`*> The maximum over the number of right hand sides of`
`138`		`-> norm(op(A)x - b) / ( norm(op(A)) * norm(x) * EPS ).`
	`138`	`+> norm(B - op(A)X) / ( norm(op(A)) * norm(X) * EPS ).`
`139`	`139`	`*> \endverbatim`
`140`	`140`	`*`
`141`	`141`	`* Authors:`
`@@ -213,7 +213,7 @@ SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,`
`213`	`213`	`END IF`
`214`	`214`	`*`
`215`	`215`	`* Compute the maximum over the number of right hand sides of`
`216`		`-* norm(op(A)x - b) / ( norm(op(A)) norm(x) * EPS ).`
	`216`	`+* norm(B - op(A)X) / ( norm(op(A)) norm(X) * EPS ).`
`217`	`217`	`*`
`218`	`218`	`RESID = ZERO`
`219`	`219`	`DO 10 J = 1, NRHS`
Original file line number	Diff line number	Diff line change
`@@ -134,7 +134,7 @@`
`134`	`134`	`*> \verbatim`
`135`	`135`	`*> RESID is REAL`
`136`	`136`	`*> The maximum over the number of right hand sides of`
`137`		`-> norm(op(A)x - b) / ( norm(op(A)) * norm(x) * EPS ).`
	`137`	`+> norm(B - op(A)X) / ( norm(op(A)) * norm(X) * EPS ).`
`138`	`138`	`*> \endverbatim`
`139`	`139`	`*`
`140`	`140`	`* Authors:`
`@@ -212,7 +212,7 @@ SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,`
`212`	`212`	`END IF`
`213`	`213`	`*`
`214`	`214`	`* Compute the maximum over the number of right hand sides of`
`215`		`-* norm(op(A)x - b) / ( norm(op(A)) norm(x) * EPS ).`
	`215`	`+* norm(B - op(A)X) / ( norm(op(A)) norm(X) * EPS ).`
`216`	`216`	`*`
`217`	`217`	`RESID = ZERO`
`218`	`218`	`DO 10 J = 1, NRHS`