SYNOPSIS

DOUBLE PRECISION

FUNCTION ZLA_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*16 A( LDA, * ), AF( LDAF, * ), WORK( * )

    

DOUBLE PRECISION C( * ), RWORK( * )

PURPOSE

   DLA_PORCOND_C Computes the infinity norm condition number of
   op(A) * inv(diag(C)) where C is a DOUBLE PRECISION vector WORK COMPLEX*16 workspace of size 2*N.
RWORK DOUBLE PRECISION workspace of size 3*N.