1CLA_GERCOND_LCA(P1A)CK routine (version 3.2) CLA_GERCOND_C(1)
2
3
4
6 CLA_GERCOND_C - CLA_GERCOND_C compute the infinity norm condition num‐
7 ber of op(A) * inv(diag(C)) where C is a REAL vector
8
10 REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, C, CAP‐
11 PLY, INFO, WORK, RWORK )
12
13 IMPLICIT NONE
14
15 CHARACTER TRANS
16
17 LOGICAL CAPPLY
18
19 INTEGER N, LDA, LDAF, INFO
20
21 INTEGER IPIV( * )
22
23 COMPLEX A( LDA, * ), AF( LDAF, * ), WORK( * )
24
25 REAL C( * ), RWORK( * )
26
28 CLA_GERCOND_C computes the infinity norm condition number of
29 op(A) * inv(diag(C)) where C is a REAL vector.
30
32 C REAL vector.
33
34 WORK COMPLEX workspace of size 2*N.
35
36 RWORK REAL workspace of size 3*N.
37
38
39
40 LAPACK routine (version 3.2) November 2008 CLA_GERCOND_C(1)