Skip to content

Commit 56cc693

Browse files
committed
xSTEDC, DSPEVD, ZHPEVD, DTGSEN; comment for array WORK: consistently use dimension (MAX(1,LWORK))
1 parent 86da027 commit 56cc693

5 files changed

Lines changed: 5 additions & 10 deletions

File tree

SRC/dspevd.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -112,8 +112,7 @@
112112
*>
113113
*> \param[out] WORK
114114
*> \verbatim
115-
*> WORK is DOUBLE PRECISION array,
116-
*> dimension (LWORK)
115+
*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK))
117116
*> On exit, if INFO = 0, WORK(1) returns the required LWORK.
118117
*> \endverbatim
119118
*>

SRC/dstedc.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -105,8 +105,7 @@
105105
*>
106106
*> \param[out] WORK
107107
*> \verbatim
108-
*> WORK is DOUBLE PRECISION array,
109-
*> dimension (LWORK)
108+
*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK))
110109
*> On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
111110
*> \endverbatim
112111
*>

SRC/dtgsen.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -248,8 +248,7 @@
248248
*>
249249
*> \param[out] WORK
250250
*> \verbatim
251-
*> WORK is DOUBLE PRECISION array,
252-
*> dimension (MAX(1,LWORK))
251+
*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK))
253252
*> On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
254253
*> \endverbatim
255254
*>

SRC/zhpevd.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -134,8 +134,7 @@
134134
*>
135135
*> \param[out] RWORK
136136
*> \verbatim
137-
*> RWORK is DOUBLE PRECISION array,
138-
*> dimension (LRWORK)
137+
*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK))
139138
*> On exit, if INFO = 0, RWORK(1) returns the required LRWORK.
140139
*> \endverbatim
141140
*>

SRC/zstedc.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -128,8 +128,7 @@
128128
*>
129129
*> \param[out] RWORK
130130
*> \verbatim
131-
*> RWORK is DOUBLE PRECISION array,
132-
*> dimension (LRWORK)
131+
*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK))
133132
*> On exit, if INFO = 0, RWORK(1) returns the optimal LRWORK.
134133
*> \endverbatim
135134
*>

0 commit comments

Comments
 (0)