xLAQR2, xLAQR3, xGEJSV: add parentheses to dimensions of one-dimensional arrays in parameter comments

8 files changed, 10 insertions, 10 deletions

diff --git a/SRC/claqr2.f b/SRC/claqr2.f
index aead5d66..091c396a 100644
--- a/SRC/claqr2.f
+++ b/SRC/claqr2.f
@@ -168,7 +168,7 @@
 *>
 *> \param[out] SH
 *> \verbatim
-*>          SH is COMPLEX array, dimension KBOT
+*>          SH is COMPLEX array, dimension (KBOT)
 *>          On output, approximate eigenvalues that may
 *>          be used for shifts are stored in SH(KBOT-ND-NS+1)
 *>          through SR(KBOT-ND).  Converged eigenvalues are
diff --git a/SRC/claqr3.f b/SRC/claqr3.f
index eff3f01e..00da1141 100644
--- a/SRC/claqr3.f
+++ b/SRC/claqr3.f
@@ -165,7 +165,7 @@
 *>
 *> \param[out] SH
 *> \verbatim
-*>          SH is COMPLEX array, dimension KBOT
+*>          SH is COMPLEX array, dimension (KBOT)
 *>          On output, approximate eigenvalues that may
 *>          be used for shifts are stored in SH(KBOT-ND-NS+1)
 *>          through SR(KBOT-ND).  Converged eigenvalues are
diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f
index 81c0a21a..865e7c46 100644
--- a/SRC/dgejsv.f
+++ b/SRC/dgejsv.f
@@ -362,7 +362,7 @@
 *>
 *> \param[out] IWORK
 *> \verbatim
-*>          IWORK is INTEGER array, dimension M+3*N.
+*>          IWORK is INTEGER array, dimension (M+3*N).
 *>          On exit,
 *>          IWORK(1) = the numerical rank determined after the initial
 *>                     QR factorization with pivoting. See the descriptions
diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f
index 589cf07f..b302844e 100644
--- a/SRC/sgejsv.f
+++ b/SRC/sgejsv.f
@@ -362,7 +362,7 @@
 *>
 *> \param[out] IWORK
 *> \verbatim
-*>          IWORK is INTEGER array, dimension M+3*N.
+*>          IWORK is INTEGER array, dimension (M+3*N).
 *>          On exit,
 *>          IWORK(1) = the numerical rank determined after the initial
 *>                     QR factorization with pivoting. See the descriptions
diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f
index 1bcb138c..e0356602 100644
--- a/SRC/slaqr2.f
+++ b/SRC/slaqr2.f
@@ -169,12 +169,12 @@
 *>
 *> \param[out] SR
 *> \verbatim
-*>          SR is REAL array, dimension KBOT
+*>          SR is REAL array, dimension (KBOT)
 *> \endverbatim
 *>
 *> \param[out] SI
 *> \verbatim
-*>          SI is REAL array, dimension KBOT
+*>          SI is REAL array, dimension (KBOT)
 *>          On output, the real and imaginary parts of approximate
 *>          eigenvalues that may be used for shifts are stored in
 *>          SR(KBOT-ND-NS+1) through SR(KBOT-ND) and
diff --git a/SRC/slaqr3.f b/SRC/slaqr3.f
index 2fabacf4..fd04f954 100644
--- a/SRC/slaqr3.f
+++ b/SRC/slaqr3.f
@@ -166,12 +166,12 @@
 *>
 *> \param[out] SR
 *> \verbatim
-*>          SR is REAL array, dimension KBOT
+*>          SR is REAL array, dimension (KBOT)
 *> \endverbatim
 *>
 *> \param[out] SI
 *> \verbatim
-*>          SI is REAL array, dimension KBOT
+*>          SI is REAL array, dimension (KBOT)
 *>          On output, the real and imaginary parts of approximate
 *>          eigenvalues that may be used for shifts are stored in
 *>          SR(KBOT-ND-NS+1) through SR(KBOT-ND) and
diff --git a/SRC/zlaqr2.f b/SRC/zlaqr2.f
index d8396d23..7f30a77d 100644
--- a/SRC/zlaqr2.f
+++ b/SRC/zlaqr2.f
@@ -169,7 +169,7 @@
 *>
 *> \param[out] SH
 *> \verbatim
-*>          SH is COMPLEX*16 array, dimension KBOT
+*>          SH is COMPLEX*16 array, dimension (KBOT)
 *>          On output, approximate eigenvalues that may
 *>          be used for shifts are stored in SH(KBOT-ND-NS+1)
 *>          through SR(KBOT-ND).  Converged eigenvalues are
diff --git a/SRC/zlaqr3.f b/SRC/zlaqr3.f
index 402644fd..24003d86 100644
--- a/SRC/zlaqr3.f
+++ b/SRC/zlaqr3.f
@@ -166,7 +166,7 @@
 *>
 *> \param[out] SH
 *> \verbatim
-*>          SH is COMPLEX*16 array, dimension KBOT
+*>          SH is COMPLEX*16 array, dimension (KBOT)
 *>          On output, approximate eigenvalues that may
 *>          be used for shifts are stored in SH(KBOT-ND-NS+1)
 *>          through SR(KBOT-ND).  Converged eigenvalues are