fix comments: expression for residual

jip · jip · commit 8262b4a14f1c · 2021-06-14T14:15:25.000+10:00
diff --git a/TESTING/LIN/ctbt02.f b/TESTING/LIN/ctbt02.f
@@ -32,7 +32,7 @@
 *> triangular system of linear equations op(A)*X = B, when A is a
 *> triangular band matrix. The test ratio is 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 ),
 *> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
 *> \endverbatim
 *
diff --git a/TESTING/LIN/ctpt02.f b/TESTING/LIN/ctpt02.f
@@ -31,7 +31,7 @@
 *> triangular system of linear equations op(A)*X = B, when the
 *> triangular matrix A is stored in packed format. The test ratio is
 *> 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 ),
 *> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
 *> \endverbatim
 *
diff --git a/TESTING/LIN/ctrt02.f b/TESTING/LIN/ctrt02.f
@@ -32,7 +32,7 @@
 *> triangular system of linear equations op(A)*X = B, where A is a
 *> triangular matrix. The test ratio is 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 ),
 *> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
 *> \endverbatim
 *
diff --git a/TESTING/LIN/dtbt02.f b/TESTING/LIN/dtbt02.f
@@ -31,7 +31,7 @@
 *> triangular system of linear equations op(A)*X = B, when A is a
 *> triangular band matrix. The test ratio is 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 ),
 *> where op(A) = A, A**T, or A**H and EPS is the machine epsilon.
 *> The norm used is the 1-norm.
 *> \endverbatim
diff --git a/TESTING/LIN/dtpt02.f b/TESTING/LIN/dtpt02.f
@@ -30,7 +30,7 @@
 *> triangular system of linear equations op(A)*X = B, when the
 *> triangular matrix A is stored in packed format. The test ratio is
 *> 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 ),
 *> where op(A) = A or A**T, and EPS is the machine epsilon.
 *> The norm used is the 1-norm.
 *> \endverbatim
diff --git a/TESTING/LIN/dtrt02.f b/TESTING/LIN/dtrt02.f
@@ -31,7 +31,7 @@
 *> triangular system of linear equations op(A)*X = B, where A is a
 *> triangular matrix. The test ratio is 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 ),
 *> where op(A) = A or A**T, and EPS is the machine epsilon.
 *> The norm used is the 1-norm.
 *> \endverbatim
diff --git a/TESTING/LIN/stbt02.f b/TESTING/LIN/stbt02.f
@@ -31,7 +31,7 @@
 *> triangular system of linear equations op(A)*X = B, when A is a
 *> triangular band matrix. The test ratio is 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 ),
 *> where op(A) = A or A**T, and EPS is the machine epsilon.
 *> The norm used is the 1-norm.
 *> \endverbatim
diff --git a/TESTING/LIN/stpt02.f b/TESTING/LIN/stpt02.f
@@ -30,7 +30,7 @@
 *> triangular system of linear equations op(A)*X = B, when the
 *> triangular matrix A is stored in packed format. The test ratio is
 *> 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 ),
 *> where op(A) = A or A**T, and EPS is the machine epsilon.
 *> The norm used is the 1-norm.
 *> \endverbatim
diff --git a/TESTING/LIN/strt02.f b/TESTING/LIN/strt02.f
@@ -31,7 +31,7 @@
 *> triangular system of linear equations op(A)*X = B, where A is a
 *> triangular matrix. The test ratio is 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 ),
 *> where op(A) = A or A**T, and EPS is the machine epsilon.
 *> The norm used is the 1-norm.
 *> \endverbatim
diff --git a/TESTING/LIN/ztbt02.f b/TESTING/LIN/ztbt02.f
@@ -32,7 +32,7 @@
 *> triangular system of linear equations op(A)*X = B, when A is a
 *> triangular band matrix. The test ratio is 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 ),
 *> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
 *> \endverbatim
 *
diff --git a/TESTING/LIN/ztpt02.f b/TESTING/LIN/ztpt02.f
@@ -31,7 +31,7 @@
 *> triangular system of linear equations op(A)*X = B, when the
 *> triangular matrix A is stored in packed format. The test ratio is
 *> 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 ),
 *> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
 *> \endverbatim
 *
diff --git a/TESTING/LIN/ztrt02.f b/TESTING/LIN/ztrt02.f
@@ -32,7 +32,7 @@
 *> triangular system of linear equations op(A)*X = B, where A is a
 *> triangular matrix. The test ratio is 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 ),
 *> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
 *> \endverbatim
 *

Original file line number	Diff line number	Diff line change
`@@ -32,7 +32,7 @@`
`32`	`32`	`> triangular system of linear equations op(A)X = B, when A is a`
`33`	`33`	`*> triangular band matrix. The test ratio is the maximum over the`
`34`	`34`	`*> number of right hand sides of`
`35`		`-> norm(b - op(A)x) / ( norm(op(A)) * norm(x) * EPS ),`
	`35`	`+> norm(op(A)x - b) / ( norm(op(A)) * norm(X) * EPS ),`
`36`	`36`	`> where op(A) = A, AT, or A*H, and EPS is the machine epsilon.`
`37`	`37`	`*> \endverbatim`
`38`	`38`	`*`
Original file line number	Diff line number	Diff line change
`@@ -31,7 +31,7 @@`
`31`	`31`	`> triangular system of linear equations op(A)X = B, when the`
`32`	`32`	`*> triangular matrix A is stored in packed format. The test ratio is`
`33`	`33`	`*> the maximum over the number of right hand sides of`
`34`		`-> norm(b - op(A)x) / ( norm(op(A)) * norm(x) * EPS ),`
	`34`	`+> norm(op(A)x - b) / ( norm(op(A)) * norm(X) * EPS ),`
`35`	`35`	`> where op(A) = A, AT, or A*H, and EPS is the machine epsilon.`
`36`	`36`	`*> \endverbatim`
`37`	`37`	`*`