From 14c7883a6d856e5d4621fe8ec15b8bca88679725 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Wed, 7 Jun 2017 11:22:08 +0200 Subject: xGSVJn, xLAQRn, xHETRD, xSYTRD; parameter comment: put LWORK dimension in parentheses --- SRC/cgsvj0.f | 2 +- SRC/cgsvj1.f | 2 +- SRC/chetrd_2stage.f | 2 +- SRC/chetrd_he2hb.f | 2 +- SRC/claqr2.f | 2 +- SRC/claqr3.f | 2 +- SRC/dsytrd_2stage.f | 2 +- SRC/dsytrd_sy2sb.f | 2 +- SRC/sgsvj0.f | 2 +- SRC/sgsvj1.f | 2 +- SRC/slaqr2.f | 2 +- SRC/slaqr3.f | 2 +- SRC/ssytrd_2stage.f | 2 +- SRC/ssytrd_sy2sb.f | 2 +- SRC/zgsvj0.f | 2 +- SRC/zhetrd_2stage.f | 2 +- SRC/zhetrd_he2hb.f | 2 +- SRC/zlaqr2.f | 2 +- SRC/zlaqr3.f | 2 +- 19 files changed, 19 insertions(+), 19 deletions(-) diff --git a/SRC/cgsvj0.f b/SRC/cgsvj0.f index ca817159..dd80c0b0 100644 --- a/SRC/cgsvj0.f +++ b/SRC/cgsvj0.f @@ -169,7 +169,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX array, dimension LWORK. +*> WORK is COMPLEX array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/cgsvj1.f b/SRC/cgsvj1.f index 1689caaa..937ab1de 100644 --- a/SRC/cgsvj1.f +++ b/SRC/cgsvj1.f @@ -199,7 +199,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX array, dimension LWORK. +*> WORK is COMPLEX array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/chetrd_2stage.f b/SRC/chetrd_2stage.f index 56d55f6e..502df293 100644 --- a/SRC/chetrd_2stage.f +++ b/SRC/chetrd_2stage.f @@ -144,7 +144,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX array, dimension LWORK. +*> WORK is COMPLEX array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/chetrd_he2hb.f b/SRC/chetrd_he2hb.f index f4f17a88..84454add 100644 --- a/SRC/chetrd_he2hb.f +++ b/SRC/chetrd_he2hb.f @@ -123,7 +123,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX array, dimension LWORK. +*> WORK is COMPLEX array, dimension (LWORK) *> On exit, if INFO = 0, or if LWORK=-1, *> WORK(1) returns the size of LWORK. *> \endverbatim diff --git a/SRC/claqr2.f b/SRC/claqr2.f index 485ed9a2..725a4384 100644 --- a/SRC/claqr2.f +++ b/SRC/claqr2.f @@ -227,7 +227,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX array, dimension LWORK. +*> WORK is COMPLEX array, dimension (LWORK) *> On exit, WORK(1) is set to an estimate of the optimal value *> of LWORK for the given values of N, NW, KTOP and KBOT. *> \endverbatim diff --git a/SRC/claqr3.f b/SRC/claqr3.f index d378dcb5..1afa0831 100644 --- a/SRC/claqr3.f +++ b/SRC/claqr3.f @@ -224,7 +224,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX array, dimension LWORK. +*> WORK is COMPLEX array, dimension (LWORK) *> On exit, WORK(1) is set to an estimate of the optimal value *> of LWORK for the given values of N, NW, KTOP and KBOT. *> \endverbatim diff --git a/SRC/dsytrd_2stage.f b/SRC/dsytrd_2stage.f index 9997ecd2..1a2bf544 100644 --- a/SRC/dsytrd_2stage.f +++ b/SRC/dsytrd_2stage.f @@ -144,7 +144,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, dimension LWORK. +*> WORK is DOUBLE PRECISION array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/dsytrd_sy2sb.f b/SRC/dsytrd_sy2sb.f index 5842a6f5..9f824620 100644 --- a/SRC/dsytrd_sy2sb.f +++ b/SRC/dsytrd_sy2sb.f @@ -123,7 +123,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, dimension LWORK. +*> WORK is DOUBLE PRECISION array, dimension (LWORK) *> On exit, if INFO = 0, or if LWORK=-1, *> WORK(1) returns the size of LWORK. *> \endverbatim diff --git a/SRC/sgsvj0.f b/SRC/sgsvj0.f index 690b03eb..381557cf 100644 --- a/SRC/sgsvj0.f +++ b/SRC/sgsvj0.f @@ -169,7 +169,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array, dimension LWORK. +*> WORK is REAL array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/sgsvj1.f b/SRC/sgsvj1.f index 1005ee2b..fd9b6c29 100644 --- a/SRC/sgsvj1.f +++ b/SRC/sgsvj1.f @@ -199,7 +199,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array, dimension LWORK. +*> WORK is REAL array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 1501f6ee..578a2025 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -236,7 +236,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array, dimension LWORK. +*> WORK is REAL array, dimension (LWORK) *> On exit, WORK(1) is set to an estimate of the optimal value *> of LWORK for the given values of N, NW, KTOP and KBOT. *> \endverbatim diff --git a/SRC/slaqr3.f b/SRC/slaqr3.f index 86bac854..330589c2 100644 --- a/SRC/slaqr3.f +++ b/SRC/slaqr3.f @@ -233,7 +233,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array, dimension LWORK. +*> WORK is REAL array, dimension (LWORK) *> On exit, WORK(1) is set to an estimate of the optimal value *> of LWORK for the given values of N, NW, KTOP and KBOT. *> \endverbatim diff --git a/SRC/ssytrd_2stage.f b/SRC/ssytrd_2stage.f index 7bb38c76..1aed9590 100644 --- a/SRC/ssytrd_2stage.f +++ b/SRC/ssytrd_2stage.f @@ -144,7 +144,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array, dimension LWORK. +*> WORK is REAL array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/ssytrd_sy2sb.f b/SRC/ssytrd_sy2sb.f index 60e9faf8..3ba309fa 100644 --- a/SRC/ssytrd_sy2sb.f +++ b/SRC/ssytrd_sy2sb.f @@ -123,7 +123,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array, dimension LWORK. +*> WORK is REAL array, dimension (LWORK) *> On exit, if INFO = 0, or if LWORK=-1, *> WORK(1) returns the size of LWORK. *> \endverbatim diff --git a/SRC/zgsvj0.f b/SRC/zgsvj0.f index ea2b5422..ad0d2bbd 100644 --- a/SRC/zgsvj0.f +++ b/SRC/zgsvj0.f @@ -169,7 +169,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension LWORK. +*> WORK is COMPLEX*16 array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/zhetrd_2stage.f b/SRC/zhetrd_2stage.f index 4245b320..4a303142 100644 --- a/SRC/zhetrd_2stage.f +++ b/SRC/zhetrd_2stage.f @@ -144,7 +144,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension LWORK. +*> WORK is COMPLEX*16 array, dimension (LWORK) *> \endverbatim *> *> \param[in] LWORK diff --git a/SRC/zhetrd_he2hb.f b/SRC/zhetrd_he2hb.f index a2776499..86ebddb9 100644 --- a/SRC/zhetrd_he2hb.f +++ b/SRC/zhetrd_he2hb.f @@ -123,7 +123,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension LWORK. +*> WORK is COMPLEX*16 array, dimension (LWORK) *> On exit, if INFO = 0, or if LWORK=-1, *> WORK(1) returns the size of LWORK. *> \endverbatim diff --git a/SRC/zlaqr2.f b/SRC/zlaqr2.f index bcb723b8..7d1a31d5 100644 --- a/SRC/zlaqr2.f +++ b/SRC/zlaqr2.f @@ -228,7 +228,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension LWORK. +*> WORK is COMPLEX*16 array, dimension (LWORK) *> On exit, WORK(1) is set to an estimate of the optimal value *> of LWORK for the given values of N, NW, KTOP and KBOT. *> \endverbatim diff --git a/SRC/zlaqr3.f b/SRC/zlaqr3.f index 7ab8eb49..b88b6f06 100644 --- a/SRC/zlaqr3.f +++ b/SRC/zlaqr3.f @@ -225,7 +225,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension LWORK. +*> WORK is COMPLEX*16 array, dimension (LWORK) *> On exit, WORK(1) is set to an estimate of the optimal value *> of LWORK for the given values of N, NW, KTOP and KBOT. *> \endverbatim -- cgit v1.2.3 From 86da0273d1a0421490537d4827acf31ec3419c9d Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Wed, 7 Jun 2017 11:23:23 +0200 Subject: xGELSD; comment for array A: turn to \param[in,out] --- SRC/dgelsd.f | 2 +- SRC/sgelsd.f | 2 +- SRC/zgelsd.f | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/SRC/dgelsd.f b/SRC/dgelsd.f index d24b2559..c42cf1e5 100644 --- a/SRC/dgelsd.f +++ b/SRC/dgelsd.f @@ -89,7 +89,7 @@ *> of the matrices B and X. NRHS >= 0. *> \endverbatim *> -*> \param[in] A +*> \param[in,out] A *> \verbatim *> A is DOUBLE PRECISION array, dimension (LDA,N) *> On entry, the M-by-N matrix A. diff --git a/SRC/sgelsd.f b/SRC/sgelsd.f index 91656a9b..c32180ba 100644 --- a/SRC/sgelsd.f +++ b/SRC/sgelsd.f @@ -89,7 +89,7 @@ *> of the matrices B and X. NRHS >= 0. *> \endverbatim *> -*> \param[in] A +*> \param[in,out] A *> \verbatim *> A is REAL array, dimension (LDA,N) *> On entry, the M-by-N matrix A. diff --git a/SRC/zgelsd.f b/SRC/zgelsd.f index ce574173..d671f191 100644 --- a/SRC/zgelsd.f +++ b/SRC/zgelsd.f @@ -90,7 +90,7 @@ *> of the matrices B and X. NRHS >= 0. *> \endverbatim *> -*> \param[in] A +*> \param[in,out] A *> \verbatim *> A is COMPLEX*16 array, dimension (LDA,N) *> On entry, the M-by-N matrix A. -- cgit v1.2.3 From 56cc6931df6f123ab5cfced57db127b685ce4a3e Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Wed, 7 Jun 2017 11:26:28 +0200 Subject: xSTEDC, DSPEVD, ZHPEVD, DTGSEN; comment for array WORK: consistently use dimension (MAX(1,LWORK)) --- SRC/dspevd.f | 3 +-- SRC/dstedc.f | 3 +-- SRC/dtgsen.f | 3 +-- SRC/zhpevd.f | 3 +-- SRC/zstedc.f | 3 +-- 5 files changed, 5 insertions(+), 10 deletions(-) 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 *> -- cgit v1.2.3 From 54f03b7495e430954817c9c9a808bb4d1fa2f02e Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Thu, 8 Jun 2017 12:00:23 +0200 Subject: DLASD3; comments for parameters DSIGMA, U2, Z: take directions from SLASD3 --- SRC/dlasd3.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/SRC/dlasd3.f b/SRC/dlasd3.f index 11be8872..d9123dea 100644 --- a/SRC/dlasd3.f +++ b/SRC/dlasd3.f @@ -103,7 +103,7 @@ *> The leading dimension of the array Q. LDQ >= K. *> \endverbatim *> -*> \param[in] DSIGMA +*> \param[in,out] DSIGMA *> \verbatim *> DSIGMA is DOUBLE PRECISION array, dimension(K) *> The first K elements of this array contain the old roots @@ -124,7 +124,7 @@ *> The leading dimension of the array U. LDU >= N. *> \endverbatim *> -*> \param[in,out] U2 +*> \param[in] U2 *> \verbatim *> U2 is DOUBLE PRECISION array, dimension (LDU2, N) *> The first K columns of this matrix contain the non-deflated @@ -186,7 +186,7 @@ *> type is any column which has been deflated. *> \endverbatim *> -*> \param[in] Z +*> \param[in,out] Z *> \verbatim *> Z is DOUBLE PRECISION array, dimension (K) *> The first K elements of this array contain the components -- cgit v1.2.3