diff options
| author | julie <julielangou@users.noreply.github.com> | 2009-09-11 20:28:33 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2009-09-11 20:28:33 +0000 |
| commit | 783ef3de55268825f629afbd43f971ba81ed46c5 (patch) | |
| tree | f91b9ecc4c7c29c755d3aa80e676fdfac12f159e /SRC/dlaqr2.f | |
| parent | 708ac3e2f4d1a007bc9095e955e0a7bea77d9f50 (diff) | |
| download | lapack-783ef3de55268825f629afbd43f971ba81ed46c5.tar.gz lapack-783ef3de55268825f629afbd43f971ba81ed46c5.tar.bz2 lapack-783ef3de55268825f629afbd43f971ba81ed46c5.zip | |
Fix whitespace comments detected from parser
Diffstat (limited to 'SRC/dlaqr2.f')
| -rw-r--r-- | SRC/dlaqr2.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/dlaqr2.f b/SRC/dlaqr2.f index 882c3247..27fa6408 100644 --- a/SRC/dlaqr2.f +++ b/SRC/dlaqr2.f @@ -101,8 +101,8 @@ * The number of converged eigenvalues uncovered by this * subroutine. * -* SR (output) DOUBLE PRECISION array, dimension KBOT -* SI (output) DOUBLE PRECISION array, dimension KBOT +* SR (output) DOUBLE PRECISION array, dimension (KBOT) +* SI (output) DOUBLE PRECISION array, dimension (KBOT) * On output, the real and imaginary parts of approximate * eigenvalues that may be used for shifts are stored in * SR(KBOT-ND-NS+1) through SR(KBOT-ND) and @@ -137,7 +137,7 @@ * The leading dimension of W just as declared in the * calling subroutine. NW .LE. LDV * -* WORK (workspace) DOUBLE PRECISION array, dimension LWORK. +* WORK (workspace) DOUBLE PRECISION array, dimension (LWORK) * On exit, WORK(1) is set to an estimate of the optimal value * of LWORK for the given values of N, NW, KTOP and KBOT. * |