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_hercond_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_hercond_c.f')
-rw-r--r-- | SRC/zla_hercond_c.f | 45 |
1 files changed, 40 insertions, 5 deletions
diff --git a/SRC/zla_hercond_c.f b/SRC/zla_hercond_c.f index 5334234b..b893ad3f 100644 --- a/SRC/zla_hercond_c.f +++ b/SRC/zla_hercond_c.f @@ -1,6 +1,6 @@ DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, 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,46 @@ * Arguments * ========= * -* C DOUBLE PRECISION vector. +* UPLO (input) CHARACTER*1 +* = 'U': Upper triangle of A is stored; +* = 'L': Lower triangle of A is stored. * -* 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 block diagonal matrix D and the multipliers used to +* obtain the factor U or L as computed by ZHETRF. +* +* LDAF (input) INTEGER +* The leading dimension of the array AF. LDAF >= max(1,N). +* +* IPIV (input) INTEGER array, dimension (N) +* Details of the interchanges and the block structure of D +* as determined by CHETRF. +* +* 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. * * ===================================================================== * |