CLA_PORCOND_C(3) SLA_PORCOND_C Compute the infinity norm condition number of op(A) * inv(diag(C)) where C is a REAL vector WORK is a COMPLEX workspace of size 2*N, and RWORK is a REAL workspace of size 3*N

SYNOPSIS

REAL FUNCTION
CLA_PORCOND_C( UPLO, N, A, LDA, AF, LDAF, C, CAPPLY, INFO, WORK, RWORK )

    
IMPLICIT NONE

    
CHARACTER UPLO

    
LOGICAL CAPPLY

    
INTEGER N, LDA, LDAF, INFO

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

    
REAL C( * ), RWORK( * )

PURPOSE


   SLA_PORCOND_C Computes the infinity norm condition number of
   op(A) * inv(diag(C)) where C is a REAL vector
   WORK is a COMPLEX workspace of size 2*N, and
   RWORK is a REAL workspace of size 3*N.