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/cla_gercond_c.f | |
parent | 1d4ed33a5cfc65afcd46a0babb74979dfbed73f3 (diff) |
Updated documentation for EPIR routines. Changed ERRS_{N,C} variable names. Other cosmetic changes.
Diffstat (limited to 'SRC/cla_gercond_c.f')
-rw-r--r-- | SRC/cla_gercond_c.f | 44 |
1 files changed, 41 insertions, 3 deletions
diff --git a/SRC/cla_gercond_c.f b/SRC/cla_gercond_c.f index 06cfb618..c61cd8d1 100644 --- a/SRC/cla_gercond_c.f +++ b/SRC/cla_gercond_c.f @@ -31,11 +31,49 @@ * Arguments * ========= * -* C REAL 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 workspace of size 2*N. +* N (input) INTEGER +* The number of linear equations, i.e., the order of the +* matrix A. N >= 0. * -* RWORK REAL workspace of size N. +* 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. * * ===================================================================== * |