diff options
author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-04-08 00:05:18 +0000 |
---|---|---|
committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-04-08 00:05:18 +0000 |
commit | 47e45705b295f273c6c83f8b7f45a53cbce793d8 (patch) | |
tree | 03feea881aabfc40504b1cfdf35d1dd82d19b07d /SRC/zla_gercond_c.f | |
parent | 1d4ed33a5cfc65afcd46a0babb74979dfbed73f3 (diff) | |
download | lapack-47e45705b295f273c6c83f8b7f45a53cbce793d8.tar.gz lapack-47e45705b295f273c6c83f8b7f45a53cbce793d8.tar.bz2 lapack-47e45705b295f273c6c83f8b7f45a53cbce793d8.zip |
Updated documentation for EPIR routines. Changed ERRS_{N,C} variable names. Other cosmetic changes.
Diffstat (limited to 'SRC/zla_gercond_c.f')
-rw-r--r-- | SRC/zla_gercond_c.f | 48 |
1 files changed, 43 insertions, 5 deletions
diff --git a/SRC/zla_gercond_c.f b/SRC/zla_gercond_c.f index 26ec26b2..9eefdc96 100644 --- a/SRC/zla_gercond_c.f +++ b/SRC/zla_gercond_c.f @@ -1,6 +1,6 @@ DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, - $ LDAF, IPIV, C, CAPPLY, INFO, WORK, - $ RWORK ) + $ LDAF, IPIV, C, CAPPLY, + $ INFO, WORK, RWORK ) * * -- LAPACK routine (version 3.2) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- @@ -32,11 +32,49 @@ * Arguments * ========= * -* C DOUBLE PRECISION vector. +* 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) * -* WORK COMPLEX*16 workspace of size 2*N. +* N (input) INTEGER +* The number of linear equations, i.e., the order of the +* matrix A. N >= 0. * -* RWORK DOUBLE PRECISION workspace of size N. +* A (input) COMPLEX*16 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*16 array, dimension (LDAF,N) +* The factors L and U from the factorization +* A = P*L*U as computed by ZGETRF. +* +* 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 ZGETRF; row i of the matrix was interchanged +* with row IPIV(i). +* +* C (input) DOUBLE PRECISION 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*16 array, dimension (2*N). +* Workspace. +* +* RWORK (input) DOUBLE PRECISION array, dimension (N). +* Workspace. * * ===================================================================== * |