diff options
author | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
commit | ff981f106bde4ce6a74aa4f4a572c943f5a395b2 (patch) | |
tree | a386cad907bcaefd6893535c31d67ec9468e693e /SRC/dlasd8.f | |
parent | e58b61578b55644f6391f3333262b72c1dc88437 (diff) | |
download | lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.gz lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.bz2 lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.zip |
Diffstat (limited to 'SRC/dlasd8.f')
-rw-r--r-- | SRC/dlasd8.f | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/SRC/dlasd8.f b/SRC/dlasd8.f index 4121519d..710c0bf9 100644 --- a/SRC/dlasd8.f +++ b/SRC/dlasd8.f @@ -1,9 +1,9 @@ SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.1) -- +* -- LAPACK auxiliary routine (version 3.2) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* October 2006 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR @@ -42,9 +42,10 @@ * D (output) DOUBLE PRECISION array, dimension ( K ) * On output, D contains the updated singular values. * -* Z (input) DOUBLE PRECISION array, dimension ( K ) -* The first K elements of this array contain the components -* of the deflation-adjusted updating row vector. +* Z (input/output) DOUBLE PRECISION array, dimension ( K ) +* On entry, the first K elements of this array contain the +* components of the deflation-adjusted updating row vector. +* On exit, Z is updated. * * VF (input/output) DOUBLE PRECISION array, dimension ( K ) * On entry, VF contains information passed through DBEDE8. @@ -73,10 +74,12 @@ * LDDIFR (input) INTEGER * The leading dimension of DIFR, must be at least K. * -* DSIGMA (input) DOUBLE PRECISION array, dimension ( K ) -* The first K elements of this array contain the old roots -* of the deflated updating problem. These are the poles +* DSIGMA (input/output) DOUBLE PRECISION array, dimension ( K ) +* On entry, the first K elements of this array contain the old +* roots of the deflated updating problem. These are the poles * of the secular equation. +* On exit, the elements of DSIGMA may be very slightly altered +* in value. * * WORK (workspace) DOUBLE PRECISION array, dimension at least 3 * K * @@ -156,7 +159,7 @@ * changes the bottommost bits of DSIGMA(I). It does not account * for hexadecimal or decimal machines without guard digits * (we know of none). We use a subroutine call to compute -* 2*DSIGMA(I) to prevent optimizing compilers from eliminating +* 2*DLAMBDA(I) to prevent optimizing compilers from eliminating * this code. * DO 10 I = 1, K @@ -251,3 +254,4 @@ * End of DLASD8 * END + |