diff options
Diffstat (limited to 'SRC/dgejsv.f')
| -rw-r--r-- | SRC/dgejsv.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f index 865e7c46..c230dfb1 100644 --- a/SRC/dgejsv.f +++ b/SRC/dgejsv.f @@ -271,7 +271,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, dimension at least LWORK. +*> WORK is DOUBLE PRECISION array, dimension (LWORK) *> On exit, if N.GT.0 .AND. M.GT.0 (else not referenced), *> WORK(1) = SCALE = WORK(2) / WORK(1) is the scaling factor such *> that SCALE*SVA(1:N) are the computed singular values |