Skip to content

Commit 14c7883

Browse files
committed
xGSVJn, xLAQRn, xHETRD, xSYTRD; parameter comment: put LWORK dimension in parentheses
1 parent e0b792a commit 14c7883

19 files changed

Lines changed: 19 additions & 19 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/dsytrd_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 DOUBLE PRECISION array, dimension LWORK.
147+
*> WORK is DOUBLE PRECISION array, dimension (LWORK)
148148
*> \endverbatim
149149
*>
150150
*> \param[in] LWORK

SRC/dsytrd_sy2sb.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 DOUBLE PRECISION array, dimension LWORK.
126+
*> WORK is DOUBLE PRECISION array, dimension (LWORK)
127127
*> On exit, if INFO = 0, or if LWORK=-1,
128128
*> WORK(1) returns the size of LWORK.
129129
*> \endverbatim

SRC/sgsvj0.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 REAL array, dimension LWORK.
172+
*> WORK is REAL array, dimension (LWORK)
173173
*> \endverbatim
174174
*>
175175
*> \param[in] LWORK

SRC/sgsvj1.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 REAL array, dimension LWORK.
202+
*> WORK is REAL array, dimension (LWORK)
203203
*> \endverbatim
204204
*>
205205
*> \param[in] LWORK

0 commit comments

Comments
 (0)