summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlangou <julien.langou@ucdenver.edu>2017-06-08 12:42:38 +0000
committerGitHub <noreply@github.com>2017-06-08 12:42:38 +0000
commit8756876078bd239fd4c28ce979973b657b215f20 (patch)
treee56ada9bd8fc9071bb4c3ff53142cd7c51318698
parent63d462f190c41b199162514e3980a2ab527733aa (diff)
parent54f03b7495e430954817c9c9a808bb4d1fa2f02e (diff)
downloadlapack-8756876078bd239fd4c28ce979973b657b215f20.tar.gz
lapack-8756876078bd239fd4c28ce979973b657b215f20.tar.bz2
lapack-8756876078bd239fd4c28ce979973b657b215f20.zip
Merge pull request #163 from thielema/array-dimensions
avoid inconsistencies between parameter comments in S and D, C and Z
-rw-r--r--SRC/cgsvj0.f2
-rw-r--r--SRC/cgsvj1.f2
-rw-r--r--SRC/chetrd_2stage.f2
-rw-r--r--SRC/chetrd_he2hb.f2
-rw-r--r--SRC/claqr2.f2
-rw-r--r--SRC/claqr3.f2
-rw-r--r--SRC/dgelsd.f2
-rw-r--r--SRC/dlasd3.f6
-rw-r--r--SRC/dspevd.f3
-rw-r--r--SRC/dstedc.f3
-rw-r--r--SRC/dsytrd_2stage.f2
-rw-r--r--SRC/dsytrd_sy2sb.f2
-rw-r--r--SRC/dtgsen.f3
-rw-r--r--SRC/sgelsd.f2
-rw-r--r--SRC/sgsvj0.f2
-rw-r--r--SRC/sgsvj1.f2
-rw-r--r--SRC/slaqr2.f2
-rw-r--r--SRC/slaqr3.f2
-rw-r--r--SRC/ssytrd_2stage.f2
-rw-r--r--SRC/ssytrd_sy2sb.f2
-rw-r--r--SRC/zgelsd.f2
-rw-r--r--SRC/zgsvj0.f2
-rw-r--r--SRC/zhetrd_2stage.f2
-rw-r--r--SRC/zhetrd_he2hb.f2
-rw-r--r--SRC/zhpevd.f3
-rw-r--r--SRC/zlaqr2.f2
-rw-r--r--SRC/zlaqr3.f2
-rw-r--r--SRC/zstedc.f3
28 files changed, 30 insertions, 35 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/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/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
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/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/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/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/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/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.
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/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/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
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
*>