Merge pull request #163 from thielema/array-dimensions

avoid inconsistencies between parameter comments in S and D, C and Z

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