xGSVJn, xLAQRn, xHETRD, xSYTRD; parameter comment: put LWORK dimension in parentheses

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