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

diff --git a/SRC/cgsvj0.f b/SRC/cgsvj0.f
index ca81715..dd80c0b 100644 (file)
--- 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 1689caa..937ab1d 100644 (file)
--- 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 56d55f6..502df29 100644 (file)
--- 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 f4f17a8..84454ad 100644 (file)
--- 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 485ed9a..725a438 100644 (file)
--- 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 d378dcb..1afa083 100644 (file)
--- 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 9997ecd..1a2bf54 100644 (file)
--- 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 5842a6f..9f82462 100644 (file)
--- 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 690b03e..381557c 100644 (file)
--- 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 1005ee2..fd9b6c2 100644 (file)
--- 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 1501f6e..578a202 100644 (file)
--- 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 86bac85..330589c 100644 (file)
--- 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 7bb38c7..1aed959 100644 (file)
--- 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 60e9faf..3ba309f 100644 (file)
--- 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 ea2b542..ad0d2bb 100644 (file)
--- 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 4245b32..4a30314 100644 (file)
--- 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 a277649..86ebddb 100644 (file)
--- 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 bcb723b..7d1a31d 100644 (file)
--- 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 7ab8eb4..b88b6f0 100644 (file)
--- 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