From: Henning Thielemann <git@henning-thielemann.de>
Date: Wed, 7 Jun 2017 09:26:28 +0000 (+0200)
Subject: xSTEDC, DSPEVD, ZHPEVD, DTGSEN; comment for array WORK: consistently use dimension... 
X-Git-Tag: submit/tizen/20180313.231549~7^2~1
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=56cc6931df6f123ab5cfced57db127b685ce4a3e;p=platform%2Fupstream%2Flapack.git

xSTEDC, DSPEVD, ZHPEVD, DTGSEN; comment for array WORK: consistently use dimension (MAX(1,LWORK))
---

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
 *>