DGET08

   Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
   June 2010

Purpose

DGET08 computes the residual for a solution of a system of linear
equations  A*x = b  or  A'*x = b:
   RESID = norm(B - A*X,inf) / ( norm(A,inf) * norm(X,inf) * EPS ),
where EPS is the machine epsilon.

Arguments

TRANS
(input) CHARACTER*1
Specifies the form of the system of equations:
= 'N':  A *x = b
= 'T':  A'*x = b, where A' is the transpose of A
= 'C':  A'*x = b, where A' is the transpose of A
M
(input) INTEGER
The number of rows of the matrix A.  M >= 0.
N
(input) INTEGER
The number of columns of the matrix A.  N >= 0.
NRHS
(input) INTEGER
The number of columns of B, the matrix of right hand sides.
NRHS >= 0.
A
(input) DOUBLE PRECISION array, dimension (LDA,N)
The original M x N matrix A.
LDA
(input) INTEGER
The leading dimension of the array A.  LDA >= max(1,M).
X
(input) DOUBLE PRECISION array, dimension (LDX,NRHS)
The computed solution vectors for the system of linear
equations.
LDX
(input) INTEGER
The leading dimension of the array X.  If TRANS = 'N',
LDX >= max(1,N); if TRANS = 'T' or 'C', LDX >= max(1,M).
B
(input/output) DOUBLE PRECISION array, dimension (LDB,NRHS)
On entry, the right hand side vectors for the system of
linear equations.
On exit, B is overwritten with the difference B - A*X.
LDB
(input) INTEGER
The leading dimension of the array B.  IF TRANS = 'N',
LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N).
RWORK
(workspace) DOUBLE PRECISION array, dimension (M)
RESID
(output) DOUBLE PRECISION
The maximum over the number of right hand sides of
norm(B - A*X) / ( norm(A) * norm(X) * EPS ).

Call Graph

Caller Graph