aboutsummaryrefslogtreecommitdiff
path: root/SRC/sla_porpvgrw.f
diff options
context:
space:
mode:
authordeaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971>2009-04-08 00:05:18 +0000
committerdeaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971>2009-04-08 00:05:18 +0000
commit47e45705b295f273c6c83f8b7f45a53cbce793d8 (patch)
tree03feea881aabfc40504b1cfdf35d1dd82d19b07d /SRC/sla_porpvgrw.f
parent1d4ed33a5cfc65afcd46a0babb74979dfbed73f3 (diff)
Updated documentation for EPIR routines. Changed ERRS_{N,C} variable names. Other cosmetic changes.
Diffstat (limited to 'SRC/sla_porpvgrw.f')
-rw-r--r--SRC/sla_porpvgrw.f29
1 files changed, 28 insertions, 1 deletions
diff --git a/SRC/sla_porpvgrw.f b/SRC/sla_porpvgrw.f
index 05b89df0..aba969a0 100644
--- a/SRC/sla_porpvgrw.f
+++ b/SRC/sla_porpvgrw.f
@@ -21,11 +21,38 @@
* Purpose
* =======
*
-* SLA_PORPVGRW computes ... .
+* SLA_PORPVGRW computes the reciprocal pivot growth factor
+* norm(A)/norm(U). The "max absolute element" norm is used. If this is
+* much less than 1, the stability of the LU factorization of the
+* (equilibrated) matrix A could be poor. This also means that the
+* solution X, estimated condition numbers, and error bounds could be
+* unreliable.
*
* Arguments
* =========
*
+* UPLO (input) CHARACTER*1
+* = 'U': Upper triangle of A is stored;
+* = 'L': Lower triangle of A is stored.
+*
+* NCOLS (input) INTEGER
+* The number of columns of the matrix A. NCOLS >= 0.
+*
+* A (input) REAL 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) REAL array, dimension (LDAF,N)
+* The triangular factor U or L from the Cholesky factorization
+* A = U**T*U or A = L*L**T, as computed by SPOTRF.
+*
+* LDAF (input) INTEGER
+* The leading dimension of the array AF. LDAF >= max(1,N).
+*
+* WORK (input) REAL array, dimension (2*N)
+*
* =====================================================================
*
* .. Local Scalars ..