Provided by: liblapack-doc_3.3.1-1_all

**NAME**

LAPACK-3 - CLA_GERCOND_C compute the infinity norm condition number of op(A) * inv(diag(C)) where C is a REAL vector

**SYNOPSIS**

REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, C, CAPPLY, INFO, WORK, RWORK ) IMPLICIT NONE CHARACTER TRANS LOGICAL CAPPLY INTEGER N, LDA, LDAF, INFO INTEGER IPIV( * ) COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * ) REAL C( * ), RWORK( * )

**PURPOSE**

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

**ARGUMENTS**

TRANS (input) CHARACTER*1 Specifies the form of the system of equations: = 'N': A * X = B (No transpose) = 'T': A**T * X = B (Transpose) = 'C': A**H * X = B (Conjugate Transpose = Transpose) 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 factors L and U from the factorization A = P*L*U as computed by CGETRF. LDAF (input) INTEGER The leading dimension of the array AF. LDAF >= max(1,N). IPIV (input) INTEGER array, dimension (N) The pivot indices from the factorization A = P*L*U as computed by CGETRF; row i of the matrix was interchanged with row IPIV(i). C (input) REAL array, dimension (N) The vector C in the formula op(A) * inv(diag(C)). CAPPLY (input) LOGICAL If .TRUE. then access the vector C in the formula above. 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. LAPACK routine (version 3.2.1) April 2011 CLA_GERCOND_C(3lapack)