xSTEDC, DSPEVD, ZHPEVD, DTGSEN; comment for array WORK: consistently use dimension...

diff --git a/SRC/dspevd.f b/SRC/dspevd.f
index 234d03fed85af361eea105519e89a30aabd149b0..96ddbc80c351853cfafaa2b4cc0645776083e8cd 100644 (file)
--- 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 d7f953729c107975205b16dca73ada44dda56a17..386c22b845430a945904051e1904256a2c09b005 100644 (file)
--- 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 c61b613c9bfb90f6fcf998a9c0af6b261a6a34b3..777fb6917ec70f20815155be4ac295989a1db16c 100644 (file)
--- 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 10b59c937715c5e5e2bbeef6baa63108954b19fb..8f0c8fda45cee567cf7df720d7a56056ac6502ed 100644 (file)
--- 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 7809372bcc357cd1d6a06034b925c8b78834f860..b742ac62ff925a5f1cc910e057796a53609da4fc 100644 (file)
--- 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
 *>