CLA_PORCOND_X
Purpose
   CLA_PORCOND_X Computes the infinity norm condition number of
op(A) * diag(X) where X is a COMPLEX vector.
op(A) * diag(X) where X is a COMPLEX vector.
Arguments
| UPLO | 
(input) CHARACTER*1
 
= 'U':  Upper triangle of A is stored; = 'L': Lower triangle of A is stored. | 
| N | 
(input) INTEGER
 
The number of linear equations, i.e., the order of the matrix A. N >= 0. | 
| A | 
(input) COMPLEX array, dimension (LDA,N)
 
On entry, the N-by-N matrix A. | 
| LDA | 
(input) INTEGER
 
The leading dimension of the array A.  LDA >= max(1,N). | 
| AF | 
(input) COMPLEX array, dimension (LDAF,N)
 
The triangular factor U or L from the Cholesky factorization | 
| A | 
= U**T*U or A = L*L**T, as computed by CPOTRF.
 | 
| LDAF | 
(input) INTEGER
 
The leading dimension of the array AF.  LDAF >= max(1,N). | 
| X | 
(input) COMPLEX array, dimension (N)
 
The vector X in the formula op(A) * diag(X). | 
| INFO | 
(output) INTEGER
 
= 0:  Successful exit. i > 0: The ith argument is invalid. | 
| WORK | 
(input) COMPLEX array, dimension (2*N).
 
Workspace. | 
| RWORK | 
(input) REAL array, dimension (N).
 
Workspace. |