SYNOPSIS

REAL FUNCTION

CLA_PORCOND_X( UPLO, N, A, LDA, AF, LDAF, X, INFO, WORK, RWORK )

    

IMPLICIT NONE

    

CHARACTER UPLO

    

INTEGER N, LDA, LDAF, INFO

    

COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ), X( * )

    

REAL RWORK( * )

PURPOSE

   CLA_PORCOND_X Computes the infinity norm condition number of
   op(A) * diag(X) where X is a COMPLEX vector.
   WORK is a COMPLEX workspace of size 2*N, and

   RWORK is a REAL workspace of size 3*N.