ZPPT03

   Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
   November 2006

Purpose

ZPPT03 computes the residual for a Hermitian packed matrix times its
inverse:
   norm( I - A*AINV ) / ( N * norm(A) * norm(AINV) * EPS ),
where EPS is the machine epsilon.

Arguments

UPLO
(input) CHARACTER*1
Specifies whether the upper or lower triangular part of the
Hermitian matrix A is stored:
= 'U':  Upper triangular
= 'L':  Lower triangular
N
(input) INTEGER
The number of rows and columns of the matrix A.  N >= 0.
A
(input) COMPLEX*16 array, dimension (N*(N+1)/2)
The original Hermitian matrix A, stored as a packed
triangular matrix.
AINV
(input) COMPLEX*16 array, dimension (N*(N+1)/2)
The (Hermitian) inverse of the matrix A, stored as a packed
triangular matrix.
WORK
(workspace) COMPLEX*16 array, dimension (LDWORK,N)
LDWORK
(input) INTEGER
The leading dimension of the array WORK.  LDWORK >= max(1,N).
RWORK
(workspace) DOUBLE PRECISION array, dimension (N)
RCOND
(output) DOUBLE PRECISION
The reciprocal of the condition number of A, computed as
( 1/norm(A) ) / norm(AINV).
RESID
(output) DOUBLE PRECISION
norm(I - A*AINV) / ( N * norm(A) * norm(AINV) * EPS )

Call Graph

Caller Graph