diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-11-01 22:02:31 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-11-01 22:02:31 +0000 |
| commit | d5c30c90bdecf38da1064e2ed52583634573e741 (patch) | |
| tree | 480fc5ff31ee14b83116b6428aad79ea6e89362d /SRC/dlaqsp.f | |
| parent | 04670a68760fa27333f8bcef8172f71adc6880ef (diff) | |
| download | lapack-d5c30c90bdecf38da1064e2ed52583634573e741.tar.gz lapack-d5c30c90bdecf38da1064e2ed52583634573e741.tar.bz2 lapack-d5c30c90bdecf38da1064e2ed52583634573e741.zip | |
Never say never...
Diffstat (limited to 'SRC/dlaqsp.f')
| -rw-r--r-- | SRC/dlaqsp.f | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/SRC/dlaqsp.f b/SRC/dlaqsp.f index 262a6092..9dddd358 100644 --- a/SRC/dlaqsp.f +++ b/SRC/dlaqsp.f @@ -66,8 +66,7 @@ *> is stored in the array AP as follows: *> if UPLO = 'U', AP(i + (j-1)*j/2) = A(i,j) for 1<=i<=j; *> if UPLO = 'L', AP(i + (j-1)*(2n-j)/2) = A(i,j) for j<=i<=n. -*> \endverbatim -*> \verbatim +*> *> On exit, the equilibrated matrix: diag(S) * A * diag(S), in *> the same storage format as A. *> \endverbatim @@ -97,17 +96,14 @@ *> = 'N': No equilibration. *> = 'Y': Equilibration was done, i.e., A has been replaced by *> diag(S) * A * diag(S). -*> \endverbatim -*> \verbatim +*> *> Internal Parameters *> =================== -*> \endverbatim -*> \verbatim +*> *> THRESH is a threshold value used to decide if scaling should be done *> based on the ratio of the scaling factors. If SCOND < THRESH, *> scaling is done. -*> \endverbatim -*> \verbatim +*> *> LARGE and SMALL are threshold values used to decide if scaling should *> be done based on the absolute size of the largest matrix element. *> If AMAX > LARGE or AMAX < SMALL, scaling is done. |