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/slarscl2.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/slarscl2.f')
| -rw-r--r-- | SRC/slarscl2.f | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/SRC/slarscl2.f b/SRC/slarscl2.f index 01a72a64..db524fca 100644 --- a/SRC/slarscl2.f +++ b/SRC/slarscl2.f @@ -30,16 +30,24 @@ * Arguments * ========= * -* N (input) INTEGER -* The size of the vectors X and D. +* M (input) INTEGER +* The number of rows of D and X. M >= 0. * -* D (input) REAL array, length N -* Diagonal matrix D, stored as a vector of length N. +* N (input) INTEGER +* The number of columns of D and X. N >= 0. +* +* D (input) REAL array, length M +* Diagonal matrix D, stored as a vector of length M. +* +* X (input/output) REAL array, dimension (LDX,N) +* On entry, the vector X to be scaled by D. +* On exit, the scaled vector. +* +* LDX (input) INTEGER +* The leading dimension of the vector X. LDX >= 0. +* +* ===================================================================== * -* X (input/output) REAL array, length N -* On entry, the vector X to be scaled by D. -* On exit, the scaled vector. -* .. * .. Local Scalars .. INTEGER I, J * .. @@ -47,9 +55,9 @@ * DO J = 1, N DO I = 1, M - X(I,J) = X(I,J) / D(I) + X( I, J ) = X( I, J ) / D( I ) END DO END DO -* + RETURN END |