summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHenning Thielemann <git@henning-thielemann.de>2017-06-06 19:56:29 +0200
committerHenning Thielemann <git@henning-thielemann.de>2017-06-06 19:56:29 +0200
commit44d1b70c394fbe4809bf7fb4d6f1b58b2956b055 (patch)
tree4c6562aff288aa2e5d38e83f8201db85870cb647
parent1b029a0edc2336b0d4e71bc9ed8e2b36cee331ff (diff)
downloadlapack-44d1b70c394fbe4809bf7fb4d6f1b58b2956b055.tar.gz
lapack-44d1b70c394fbe4809bf7fb4d6f1b58b2956b055.tar.bz2
lapack-44d1b70c394fbe4809bf7fb4d6f1b58b2956b055.zip
xGEJSV, xGESVJ; parameter comment: declare WORK with dimension LWORK
-rw-r--r--SRC/dgejsv.f2
-rw-r--r--SRC/dgesvj.f2
-rw-r--r--SRC/sgejsv.f2
-rw-r--r--SRC/sgesvj.f2
4 files changed, 4 insertions, 4 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
diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f
index 09025c23..1e8933b6 100644
--- 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 b302844e..98b1dcd0 100644
--- 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 adce3451..8763ab4b 100644
--- 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.