Skip to content

Commit 8756876

Browse files
authored
Merge pull request #163 from thielema/array-dimensions
avoid inconsistencies between parameter comments in S and D, C and Z
2 parents 63d462f + 54f03b7 commit 8756876

28 files changed

Lines changed: 30 additions & 35 deletions

SRC/cgsvj0.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -169,7 +169,7 @@
169169
*>
170170
*> \param[out] WORK
171171
*> \verbatim
172-
*> WORK is COMPLEX array, dimension LWORK.
172+
*> WORK is COMPLEX array, dimension (LWORK)
173173
*> \endverbatim
174174
*>
175175
*> \param[in] LWORK

SRC/cgsvj1.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -199,7 +199,7 @@
199199
*>
200200
*> \param[out] WORK
201201
*> \verbatim
202-
*> WORK is COMPLEX array, dimension LWORK.
202+
*> WORK is COMPLEX array, dimension (LWORK)
203203
*> \endverbatim
204204
*>
205205
*> \param[in] LWORK

SRC/chetrd_2stage.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -144,7 +144,7 @@
144144
*>
145145
*> \param[out] WORK
146146
*> \verbatim
147-
*> WORK is COMPLEX array, dimension LWORK.
147+
*> WORK is COMPLEX array, dimension (LWORK)
148148
*> \endverbatim
149149
*>
150150
*> \param[in] LWORK

SRC/chetrd_he2hb.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -123,7 +123,7 @@
123123
*>
124124
*> \param[out] WORK
125125
*> \verbatim
126-
*> WORK is COMPLEX array, dimension LWORK.
126+
*> WORK is COMPLEX array, dimension (LWORK)
127127
*> On exit, if INFO = 0, or if LWORK=-1,
128128
*> WORK(1) returns the size of LWORK.
129129
*> \endverbatim

SRC/claqr2.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -227,7 +227,7 @@
227227
*>
228228
*> \param[out] WORK
229229
*> \verbatim
230-
*> WORK is COMPLEX array, dimension LWORK.
230+
*> WORK is COMPLEX array, dimension (LWORK)
231231
*> On exit, WORK(1) is set to an estimate of the optimal value
232232
*> of LWORK for the given values of N, NW, KTOP and KBOT.
233233
*> \endverbatim

SRC/claqr3.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -224,7 +224,7 @@
224224
*>
225225
*> \param[out] WORK
226226
*> \verbatim
227-
*> WORK is COMPLEX array, dimension LWORK.
227+
*> WORK is COMPLEX array, dimension (LWORK)
228228
*> On exit, WORK(1) is set to an estimate of the optimal value
229229
*> of LWORK for the given values of N, NW, KTOP and KBOT.
230230
*> \endverbatim

SRC/dgelsd.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -89,7 +89,7 @@
8989
*> of the matrices B and X. NRHS >= 0.
9090
*> \endverbatim
9191
*>
92-
*> \param[in] A
92+
*> \param[in,out] A
9393
*> \verbatim
9494
*> A is DOUBLE PRECISION array, dimension (LDA,N)
9595
*> On entry, the M-by-N matrix A.

SRC/dlasd3.f

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -103,7 +103,7 @@
103103
*> The leading dimension of the array Q. LDQ >= K.
104104
*> \endverbatim
105105
*>
106-
*> \param[in] DSIGMA
106+
*> \param[in,out] DSIGMA
107107
*> \verbatim
108108
*> DSIGMA is DOUBLE PRECISION array, dimension(K)
109109
*> The first K elements of this array contain the old roots
@@ -124,7 +124,7 @@
124124
*> The leading dimension of the array U. LDU >= N.
125125
*> \endverbatim
126126
*>
127-
*> \param[in,out] U2
127+
*> \param[in] U2
128128
*> \verbatim
129129
*> U2 is DOUBLE PRECISION array, dimension (LDU2, N)
130130
*> The first K columns of this matrix contain the non-deflated
@@ -186,7 +186,7 @@
186186
*> type is any column which has been deflated.
187187
*> \endverbatim
188188
*>
189-
*> \param[in] Z
189+
*> \param[in,out] Z
190190
*> \verbatim
191191
*> Z is DOUBLE PRECISION array, dimension (K)
192192
*> The first K elements of this array contain the components

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

0 commit comments

Comments
 (0)