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

diff --git a/SRC/claqr2.f b/SRC/claqr2.f
index aead5d6..091c396 100644 (file)
--- 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 eff3f01..00da114 100644 (file)
--- 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 81c0a21..865e7c4 100644 (file)
--- 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 589cf07..b302844 100644 (file)
--- 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 1bcb138..e035660 100644 (file)
--- 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 2fabacf..fd04f95 100644 (file)
--- 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 d8396d2..7f30a77 100644 (file)
--- 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 402644f..24003d8 100644 (file)
--- 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