diff options
| author | Henning Thielemann <git@henning-thielemann.de> | 2017-06-07 11:26:28 +0200 |
|---|---|---|
| committer | Henning Thielemann <git@henning-thielemann.de> | 2017-06-07 11:26:28 +0200 |
| commit | 56cc6931df6f123ab5cfced57db127b685ce4a3e (patch) | |
| tree | 1beb05847bec091b710adb542aa53a55ff6c2a3f | |
| parent | 86da0273d1a0421490537d4827acf31ec3419c9d (diff) | |
| download | lapack-56cc6931df6f123ab5cfced57db127b685ce4a3e.tar.gz lapack-56cc6931df6f123ab5cfced57db127b685ce4a3e.tar.bz2 lapack-56cc6931df6f123ab5cfced57db127b685ce4a3e.zip | |
xSTEDC, DSPEVD, ZHPEVD, DTGSEN; comment for array WORK: consistently use dimension (MAX(1,LWORK))
| -rw-r--r-- | SRC/dspevd.f | 3 | ||||
| -rw-r--r-- | SRC/dstedc.f | 3 | ||||
| -rw-r--r-- | SRC/dtgsen.f | 3 | ||||
| -rw-r--r-- | SRC/zhpevd.f | 3 | ||||
| -rw-r--r-- | SRC/zstedc.f | 3 |
5 files changed, 5 insertions, 10 deletions
diff --git a/SRC/dspevd.f b/SRC/dspevd.f index 234d03fe..96ddbc80 100644 --- a/SRC/dspevd.f +++ b/SRC/dspevd.f @@ -112,8 +112,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, -*> dimension (LWORK) +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) *> On exit, if INFO = 0, WORK(1) returns the required LWORK. *> \endverbatim *> diff --git a/SRC/dstedc.f b/SRC/dstedc.f index d7f95372..386c22b8 100644 --- a/SRC/dstedc.f +++ b/SRC/dstedc.f @@ -105,8 +105,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, -*> dimension (LWORK) +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) *> On exit, if INFO = 0, WORK(1) returns the optimal LWORK. *> \endverbatim *> diff --git a/SRC/dtgsen.f b/SRC/dtgsen.f index c61b613c..777fb691 100644 --- a/SRC/dtgsen.f +++ b/SRC/dtgsen.f @@ -248,8 +248,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, -*> dimension (MAX(1,LWORK)) +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) *> On exit, if INFO = 0, WORK(1) returns the optimal LWORK. *> \endverbatim *> diff --git a/SRC/zhpevd.f b/SRC/zhpevd.f index 10b59c93..8f0c8fda 100644 --- a/SRC/zhpevd.f +++ b/SRC/zhpevd.f @@ -134,8 +134,7 @@ *> *> \param[out] RWORK *> \verbatim -*> RWORK is DOUBLE PRECISION array, -*> dimension (LRWORK) +*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK)) *> On exit, if INFO = 0, RWORK(1) returns the required LRWORK. *> \endverbatim *> diff --git a/SRC/zstedc.f b/SRC/zstedc.f index 7809372b..b742ac62 100644 --- a/SRC/zstedc.f +++ b/SRC/zstedc.f @@ -128,8 +128,7 @@ *> *> \param[out] RWORK *> \verbatim -*> RWORK is DOUBLE PRECISION array, -*> dimension (LRWORK) +*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK)) *> On exit, if INFO = 0, RWORK(1) returns the optimal LRWORK. *> \endverbatim *> |