Skip to content

Commit 2eeed4b

Browse files
jipjip
committed
unify comments: expression for residual
1 parent 8262b4a commit 2eeed4b

File tree

12 files changed

+28
-28
lines changed

12 files changed

+28
-28
lines changed

‎TESTING/LIN/ctbt02.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@
3232
*> triangular system of linear equations op(A)*X = B, when A is a
3333
*> triangular band matrix. The test ratio is the maximum over the
3434
*> number of right hand sides of
35-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
35+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3636
*> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
3737
*> \endverbatim
3838
*

‎TESTING/LIN/ctpt02.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@
3131
*> triangular system of linear equations op(A)*X = B, when the
3232
*> triangular matrix A is stored in packed format. The test ratio is
3333
*> the maximum over the number of right hand sides of
34-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
34+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3535
*> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
3636
*> \endverbatim
3737
*
@@ -127,7 +127,7 @@
127127
*> \verbatim
128128
*> RESID is REAL
129129
*> The maximum over the number of right hand sides of
130-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
130+
*> norm(op(A)*B - B) / ( norm(op(A)) * norm(X) * EPS ).
131131
*> \endverbatim
132132
*
133133
* Authors:
@@ -205,7 +205,7 @@ SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB,
205205
END IF
206206
*
207207
* Compute the maximum over the number of right hand sides of
208-
* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
208+
* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
209209
*
210210
RESID = ZERO
211211
DO 10 J = 1, NRHS

‎TESTING/LIN/ctrt02.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@
3232
*> triangular system of linear equations op(A)*X = B, where A is a
3333
*> triangular matrix. The test ratio is the maximum over the number of
3434
*> right hand sides of
35-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
35+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3636
*> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
3737
*> \endverbatim
3838
*
@@ -136,7 +136,7 @@
136136
*> \verbatim
137137
*> RESID is REAL
138138
*> The maximum over the number of right hand sides of
139-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
139+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
140140
*> \endverbatim
141141
*
142142
* Authors:
@@ -215,7 +215,7 @@ SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B,
215215
END IF
216216
*
217217
* Compute the maximum over the number of right hand sides of
218-
* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS )
218+
* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS )
219219
*
220220
RESID = ZERO
221221
DO 10 J = 1, NRHS

‎TESTING/LIN/dtbt02.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@
3131
*> triangular system of linear equations op(A)*X = B, when A is a
3232
*> triangular band matrix. The test ratio is the maximum over the
3333
*> number of right hand sides of
34-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
34+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3535
*> where op(A) = A, A**T, or A**H and EPS is the machine epsilon.
3636
*> The norm used is the 1-norm.
3737
*> \endverbatim

‎TESTING/LIN/dtpt02.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@
3030
*> triangular system of linear equations op(A)*X = B, when the
3131
*> triangular matrix A is stored in packed format. The test ratio is
3232
*> the maximum over the number of right hand sides of
33-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
33+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3434
*> where op(A) = A or A**T, and EPS is the machine epsilon.
3535
*> The norm used is the 1-norm.
3636
*> \endverbatim
@@ -122,7 +122,7 @@
122122
*> \verbatim
123123
*> RESID is DOUBLE PRECISION
124124
*> The maximum over the number of right hand sides of
125-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
125+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
126126
*> \endverbatim
127127
*
128128
* Authors:
@@ -199,7 +199,7 @@ SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB,
199199
END IF
200200
*
201201
* Compute the maximum over the number of right hand sides of
202-
* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
202+
* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
203203
*
204204
RESID = ZERO
205205
DO 10 J = 1, NRHS

‎TESTING/LIN/dtrt02.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@
3131
*> triangular system of linear equations op(A)*X = B, where A is a
3232
*> triangular matrix. The test ratio is the maximum over the number of
3333
*> right hand sides of
34-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
34+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3535
*> where op(A) = A or A**T, and EPS is the machine epsilon.
3636
*> The norm used is the 1-norm.
3737
*> \endverbatim
@@ -131,7 +131,7 @@
131131
*> \verbatim
132132
*> RESID is DOUBLE PRECISION
133133
*> The maximum over the number of right hand sides of
134-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
134+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
135135
*> \endverbatim
136136
*
137137
* Authors:
@@ -209,7 +209,7 @@ SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B,
209209
END IF
210210
*
211211
* Compute the maximum over the number of right hand sides of
212-
* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS )
212+
* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS )
213213
*
214214
RESID = ZERO
215215
DO 10 J = 1, NRHS

‎TESTING/LIN/stbt02.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@
3131
*> triangular system of linear equations op(A)*X = B, when A is a
3232
*> triangular band matrix. The test ratio is the maximum over the
3333
*> number of right hand sides of
34-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
34+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3535
*> where op(A) = A or A**T, and EPS is the machine epsilon.
3636
*> The norm used is the 1-norm.
3737
*> \endverbatim

‎TESTING/LIN/stpt02.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@
3030
*> triangular system of linear equations op(A)*X = B, when the
3131
*> triangular matrix A is stored in packed format. The test ratio is
3232
*> the maximum over the number of right hand sides of
33-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
33+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3434
*> where op(A) = A or A**T, and EPS is the machine epsilon.
3535
*> The norm used is the 1-norm.
3636
*> \endverbatim
@@ -122,7 +122,7 @@
122122
*> \verbatim
123123
*> RESID is REAL
124124
*> The maximum over the number of right hand sides of
125-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
125+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
126126
*> \endverbatim
127127
*
128128
* Authors:
@@ -199,7 +199,7 @@ SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB,
199199
END IF
200200
*
201201
* Compute the maximum over the number of right hand sides of
202-
* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
202+
* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
203203
*
204204
RESID = ZERO
205205
DO 10 J = 1, NRHS

‎TESTING/LIN/strt02.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@
3131
*> triangular system of linear equations op(A)*X = B, where A is a
3232
*> triangular matrix. The test ratio is the maximum over the number of
3333
*> right hand sides of
34-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
34+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3535
*> where op(A) = A or A**T, and EPS is the machine epsilon.
3636
*> The norm used is the 1-norm.
3737
*> \endverbatim
@@ -131,7 +131,7 @@
131131
*> \verbatim
132132
*> RESID is REAL
133133
*> The maximum over the number of right hand sides of
134-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
134+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
135135
*> \endverbatim
136136
*
137137
* Authors:
@@ -209,7 +209,7 @@ SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B,
209209
END IF
210210
*
211211
* Compute the maximum over the number of right hand sides of
212-
* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS )
212+
* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS )
213213
*
214214
RESID = ZERO
215215
DO 10 J = 1, NRHS

‎TESTING/LIN/ztbt02.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@
3232
*> triangular system of linear equations op(A)*X = B, when A is a
3333
*> triangular band matrix. The test ratio is the maximum over the
3434
*> number of right hand sides of
35-
*> norm(op(A)*x - b) / ( norm(op(A)) * norm(X) * EPS ),
35+
*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ),
3636
*> where op(A) = A, A**T, or A**H, and EPS is the machine epsilon.
3737
*> \endverbatim
3838
*

0 commit comments

Comments
 (0)