xGEJSV, xGESVJ; parameter comment: declare WORK with dimension LWORK

diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f
index 865e7c4..c230dfb 100644 (file)
--- 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

diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f
index 09025c2..1e8933b 100644 (file)
--- a/SRC/dgesvj.f
+++ b/SRC/dgesvj.f
@@ -208,7 +208,7 @@
 *>
 *> \param[in,out] WORK
 *> \verbatim
-*>          WORK is DOUBLE PRECISION array, dimension (max(6,M+N))
+*>          WORK is DOUBLE PRECISION array, dimension (LWORK)
 *>          On entry :
 *>          If JOBU .EQ. 'C' :
 *>          WORK(1) = CTOL, where CTOL defines the threshold for convergence.

diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f
index b302844..98b1dcd 100644 (file)
--- a/SRC/sgejsv.f
+++ b/SRC/sgejsv.f
@@ -271,7 +271,7 @@
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is REAL array, dimension at least LWORK.
+*>          WORK is REAL array, dimension (LWORK)
 *>          On exit,
 *>          WORK(1) = SCALE = WORK(2) / WORK(1) is the scaling factor such
 *>                    that SCALE*SVA(1:N) are the computed singular values

diff --git a/SRC/sgesvj.f b/SRC/sgesvj.f
index adce345..8763ab4 100644 (file)
--- a/SRC/sgesvj.f
+++ b/SRC/sgesvj.f
@@ -208,7 +208,7 @@
 *>
 *> \param[in,out] WORK
 *> \verbatim
-*>          WORK is REAL array, dimension (max(6,M+N))
+*>          WORK is REAL array, dimension (LWORK)
 *>          On entry,
 *>          If JOBU .EQ. 'C' :
 *>          WORK(1) = CTOL, where CTOL defines the threshold for convergence.