NAME

TESTING/LIN/cppt03.f

SYNOPSIS

Functions/Subroutines

subroutine cppt03 (uplo, n, a, ainv, work, ldwork, rwork, rcond, resid)
CPPT03

Function/Subroutine Documentation

subroutine cppt03 (character uplo, integer n, complex, dimension( * ) a, complex, dimension( * ) ainv, complex, dimension( ldwork, * ) work, integer ldwork, real, dimension( * ) rwork, real rcond, real resid)

CPPT03

Purpose:



 CPPT03 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.

Parameters

UPLO



          UPLO is CHARACTER*1


          Specifies whether the upper or lower triangular part of the


          Hermitian matrix A is stored:


          = 'U':  Upper triangular


          = 'L':  Lower triangular



          N is INTEGER


          The number of rows and columns of the matrix A.  N >= 0.



          A is COMPLEX array, dimension (N*(N+1)/2)


          The original Hermitian matrix A, stored as a packed


          triangular matrix.

AINV



          AINV is COMPLEX array, dimension (N*(N+1)/2)


          The (Hermitian) inverse of the matrix A, stored as a packed


          triangular matrix.

WORK



          WORK is COMPLEX array, dimension (LDWORK,N)

LDWORK



          LDWORK is INTEGER


          The leading dimension of the array WORK.  LDWORK >= max(1,N).

RWORK



          RWORK is REAL array, dimension (N)

RCOND



          RCOND is REAL


          The reciprocal of the condition number of A, computed as


          ( 1/norm(A) ) / norm(AINV).

RESID



          RESID is REAL


          norm(I - A*AINV) / ( N * norm(A) * norm(AINV) * EPS )

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 108 of file cppt03.f.

Author

Generated automatically by Doxygen for LAPACK from the source code.