SYNOPSIS

REAL FUNCTION

CLA_GBRCOND_C( TRANS, N, KL, KU, AB, LDAB, AFB, LDAFB, IPIV, C, CAPPLY, INFO, WORK, RWORK )

    

IMPLICIT NONE

    

CHARACTER TRANS

    

LOGICAL CAPPLY

    

INTEGER N, KL, KU, KD, LDAB, LDAFB, INFO

    

INTEGER IPIV( * )

    

COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * )

    

REAL C( * ), RWORK( * )

PURPOSE

   CLA_GBRCOND_C Computes the infinity norm condition number of
   op(A) * inv(diag(C)) where C is a REAL vector.

ARGUMENTS

C REAL vector.

WORK COMPLEX workspace of size 2*N.

RWORK REAL workspace of size 3*N.