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_syrcond_x.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_syrcond_x.f')
-rw-r--r-- | SRC/zla_syrcond_x.f | 43 |
1 files changed, 38 insertions, 5 deletions
diff --git a/SRC/zla_syrcond_x.f b/SRC/zla_syrcond_x.f index 49c07c67..bfcebc57 100644 --- a/SRC/zla_syrcond_x.f +++ b/SRC/zla_syrcond_x.f @@ -1,5 +1,6 @@ - DOUBLE PRECISION FUNCTION ZLA_SYRCOND_X( UPLO, N, A, LDA, AF, - $ LDAF, IPIV, X, INFO, WORK, RWORK ) + DOUBLE PRECISION FUNCTION ZLA_SYRCOND_X( UPLO, N, A, LDA, AF, + $ LDAF, IPIV, X, INFO, + $ WORK, RWORK ) * * -- LAPACK routine (version 3.2) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- @@ -30,11 +31,43 @@ * Arguments * ========= * -* C COMPLEX*16 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 ZSYTRF. +* +* 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 ZSYTRF. +* +* X (input) COMPLEX*16 array, dimension (N) +* The vector X in the formula op(A) * diag(X). +* +* 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. * * ===================================================================== * |