diff options
| author | Henning Thielemann <git@henning-thielemann.de> | 2017-06-06 19:56:29 +0200 |
|---|---|---|
| committer | Henning Thielemann <git@henning-thielemann.de> | 2017-06-06 19:56:29 +0200 |
| commit | 44d1b70c394fbe4809bf7fb4d6f1b58b2956b055 (patch) | |
| tree | 4c6562aff288aa2e5d38e83f8201db85870cb647 | |
| parent | 1b029a0edc2336b0d4e71bc9ed8e2b36cee331ff (diff) | |
| download | lapack-44d1b70c394fbe4809bf7fb4d6f1b58b2956b055.tar.gz lapack-44d1b70c394fbe4809bf7fb4d6f1b58b2956b055.tar.bz2 lapack-44d1b70c394fbe4809bf7fb4d6f1b58b2956b055.zip | |
xGEJSV, xGESVJ; parameter comment: declare WORK with dimension LWORK
| -rw-r--r-- | SRC/dgejsv.f | 2 | ||||
| -rw-r--r-- | SRC/dgesvj.f | 2 | ||||
| -rw-r--r-- | SRC/sgejsv.f | 2 | ||||
| -rw-r--r-- | SRC/sgesvj.f | 2 |
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. |