summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlangou <julien.langou@ucdenver.edu>2017-06-03 14:45:46 +0000
committerGitHub <noreply@github.com>2017-06-03 14:45:46 +0000
commita3fb05f665cae999625f82dc91eccad8388a97c5 (patch)
treee6d96ace7fc897e85d4d4954b6c8d222b8481009
parent969a6806ffed642b8578fea76e461967b647825d (diff)
parentec1063ec108f56c0bf22cab94041e799a5d49a10 (diff)
downloadlapack-a3fb05f665cae999625f82dc91eccad8388a97c5.tar.gz
lapack-a3fb05f665cae999625f82dc91eccad8388a97c5.tar.bz2
lapack-a3fb05f665cae999625f82dc91eccad8388a97c5.zip
Merge pull request #159 from thielema/cleanup-comments
Several fixes to the parameter description comments. I need these for automated processing. More patches will follow.
-rw-r--r--SRC/cbbcsd.f2
-rw-r--r--SRC/cggesx.f2
-rw-r--r--SRC/claqr1.f4
-rw-r--r--SRC/claqr2.f22
-rw-r--r--SRC/claqr3.f22
-rw-r--r--SRC/claqr4.f1
-rw-r--r--SRC/claqr5.f26
-rw-r--r--SRC/ctgsen.f2
-rw-r--r--SRC/dbbcsd.f2
-rw-r--r--SRC/dgejsv.f2
-rw-r--r--SRC/dggesx.f2
-rw-r--r--SRC/dlaqr1.f4
-rw-r--r--SRC/dlaqr2.f20
-rw-r--r--SRC/dlaqr3.f20
-rw-r--r--SRC/dlaqr5.f26
-rw-r--r--SRC/dtrttp.f2
-rw-r--r--SRC/iparmq.f6
-rw-r--r--SRC/sbbcsd.f2
-rw-r--r--SRC/sgejsv.f2
-rw-r--r--SRC/sggesx.f2
-rw-r--r--SRC/slaqr1.f4
-rw-r--r--SRC/slaqr2.f24
-rw-r--r--SRC/slaqr3.f24
-rw-r--r--SRC/slaqr5.f26
-rw-r--r--SRC/ssbgvx.f4
-rw-r--r--SRC/strttp.f2
-rw-r--r--SRC/zbbcsd.f2
-rw-r--r--SRC/zggesx.f2
-rw-r--r--SRC/zlaqr1.f4
-rw-r--r--SRC/zlaqr2.f22
-rw-r--r--SRC/zlaqr3.f22
-rw-r--r--SRC/zlaqr5.f26
-rw-r--r--SRC/ztgsen.f2
33 files changed, 167 insertions, 168 deletions
diff --git a/SRC/cbbcsd.f b/SRC/cbbcsd.f
index d4175670..baf9957e 100644
--- a/SRC/cbbcsd.f
+++ b/SRC/cbbcsd.f
@@ -190,7 +190,7 @@
*>
*> \param[in,out] V2T
*> \verbatim
-*> V2T is COMPLEX array, dimenison (LDV2T,M-Q)
+*> V2T is COMPLEX array, dimension (LDV2T,M-Q)
*> On entry, an (M-Q)-by-(M-Q) matrix. On exit, V2T is
*> premultiplied by the conjugate transpose of the right
*> singular vector matrix common to [ B12 0 0 ; 0 -I 0 ] and
diff --git a/SRC/cggesx.f b/SRC/cggesx.f
index 4d496474..e43049db 100644
--- a/SRC/cggesx.f
+++ b/SRC/cggesx.f
@@ -104,7 +104,7 @@
*>
*> \param[in] SELCTG
*> \verbatim
-*> SELCTG is procedure) LOGICAL FUNCTION of two COMPLEX arguments
+*> SELCTG is a LOGICAL FUNCTION of two COMPLEX arguments
*> SELCTG must be declared EXTERNAL in the calling subroutine.
*> If SORT = 'N', SELCTG is not referenced.
*> If SORT = 'S', SELCTG is used to select eigenvalues to sort
diff --git a/SRC/claqr1.f b/SRC/claqr1.f
index d3141e8a..b129bbab 100644
--- a/SRC/claqr1.f
+++ b/SRC/claqr1.f
@@ -50,7 +50,7 @@
*
*> \param[in] N
*> \verbatim
-*> N is integer
+*> N is INTEGER
*> Order of the matrix H. N must be either 2 or 3.
*> \endverbatim
*>
@@ -62,7 +62,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> The leading dimension of H as declared in
*> the calling procedure. LDH.GE.N
*> \endverbatim
diff --git a/SRC/claqr2.f b/SRC/claqr2.f
index aead5d66..485ed9a2 100644
--- a/SRC/claqr2.f
+++ b/SRC/claqr2.f
@@ -118,7 +118,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> Leading dimension of H just as declared in the calling
*> subroutine. N .LE. LDH
*> \endverbatim
@@ -146,14 +146,14 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer
+*> LDZ is INTEGER
*> The leading dimension of Z just as declared in the
*> calling subroutine. 1 .LE. LDZ.
*> \endverbatim
*>
*> \param[out] NS
*> \verbatim
-*> NS is integer
+*> NS is INTEGER
*> The number of unconverged (ie approximate) eigenvalues
*> returned in SR and SI that may be used as shifts by the
*> calling subroutine.
@@ -161,14 +161,14 @@
*>
*> \param[out] ND
*> \verbatim
-*> ND is integer
+*> ND is INTEGER
*> The number of converged eigenvalues uncovered by this
*> subroutine.
*> \endverbatim
*>
*> \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
@@ -183,14 +183,14 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> The leading dimension of V just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> The number of columns of T. NH.GE.NW.
*> \endverbatim
*>
@@ -201,14 +201,14 @@
*>
*> \param[in] LDT
*> \verbatim
-*> LDT is integer
+*> LDT is INTEGER
*> The leading dimension of T just as declared in the
*> calling subroutine. NW .LE. LDT
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer
+*> NV is INTEGER
*> The number of rows of work array WV available for
*> workspace. NV.GE.NW.
*> \endverbatim
@@ -220,7 +220,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer
+*> LDWV is INTEGER
*> The leading dimension of W just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
@@ -234,7 +234,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer
+*> LWORK is INTEGER
*> The dimension of the work array WORK. LWORK = 2*NW
*> suffices, but greater efficiency may result from larger
*> values of LWORK.
diff --git a/SRC/claqr3.f b/SRC/claqr3.f
index eff3f01e..d378dcb5 100644
--- a/SRC/claqr3.f
+++ b/SRC/claqr3.f
@@ -115,7 +115,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> Leading dimension of H just as declared in the calling
*> subroutine. N .LE. LDH
*> \endverbatim
@@ -143,14 +143,14 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer
+*> LDZ is INTEGER
*> The leading dimension of Z just as declared in the
*> calling subroutine. 1 .LE. LDZ.
*> \endverbatim
*>
*> \param[out] NS
*> \verbatim
-*> NS is integer
+*> NS is INTEGER
*> The number of unconverged (ie approximate) eigenvalues
*> returned in SR and SI that may be used as shifts by the
*> calling subroutine.
@@ -158,14 +158,14 @@
*>
*> \param[out] ND
*> \verbatim
-*> ND is integer
+*> ND is INTEGER
*> The number of converged eigenvalues uncovered by this
*> subroutine.
*> \endverbatim
*>
*> \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
@@ -180,14 +180,14 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> The leading dimension of V just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> The number of columns of T. NH.GE.NW.
*> \endverbatim
*>
@@ -198,14 +198,14 @@
*>
*> \param[in] LDT
*> \verbatim
-*> LDT is integer
+*> LDT is INTEGER
*> The leading dimension of T just as declared in the
*> calling subroutine. NW .LE. LDT
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer
+*> NV is INTEGER
*> The number of rows of work array WV available for
*> workspace. NV.GE.NW.
*> \endverbatim
@@ -217,7 +217,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer
+*> LDWV is INTEGER
*> The leading dimension of W just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
@@ -231,7 +231,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer
+*> LWORK is INTEGER
*> The dimension of the work array WORK. LWORK = 2*NW
*> suffices, but greater efficiency may result from larger
*> values of LWORK.
diff --git a/SRC/claqr4.f b/SRC/claqr4.f
index 573b1aab..7adca2ef 100644
--- a/SRC/claqr4.f
+++ b/SRC/claqr4.f
@@ -181,7 +181,6 @@
*>
*> \param[out] INFO
*> \verbatim
-*> \verbatim
*> INFO is INTEGER
*> = 0: successful exit
*> .GT. 0: if INFO = i, CLAQR4 failed to compute all of
diff --git a/SRC/claqr5.f b/SRC/claqr5.f
index 94a5bdf2..d5c532e4 100644
--- a/SRC/claqr5.f
+++ b/SRC/claqr5.f
@@ -61,7 +61,7 @@
*>
*> \param[in] KACC22
*> \verbatim
-*> KACC22 is integer with value 0, 1, or 2.
+*> KACC22 is INTEGER with value 0, 1, or 2.
*> Specifies the computation mode of far-from-diagonal
*> orthogonal updates.
*> = 0: CLAQR5 does not accumulate reflections and does not
@@ -77,19 +77,19 @@
*>
*> \param[in] N
*> \verbatim
-*> N is integer scalar
+*> N is INTEGER
*> N is the order of the Hessenberg matrix H upon which this
*> subroutine operates.
*> \endverbatim
*>
*> \param[in] KTOP
*> \verbatim
-*> KTOP is integer scalar
+*> KTOP is INTEGER
*> \endverbatim
*>
*> \param[in] KBOT
*> \verbatim
-*> KBOT is integer scalar
+*> KBOT is INTEGER
*> These are the first and last rows and columns of an
*> isolated diagonal block upon which the QR sweep is to be
*> applied. It is assumed without a check that
@@ -100,7 +100,7 @@
*>
*> \param[in] NSHFTS
*> \verbatim
-*> NSHFTS is integer scalar
+*> NSHFTS is INTEGER
*> NSHFTS gives the number of simultaneous shifts. NSHFTS
*> must be positive and even.
*> \endverbatim
@@ -123,7 +123,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer scalar
+*> LDH is INTEGER
*> LDH is the leading dimension of H just as declared in the
*> calling procedure. LDH.GE.MAX(1,N).
*> \endverbatim
@@ -151,7 +151,7 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer scalar
+*> LDZ is INTEGER
*> LDA is the leading dimension of Z just as declared in
*> the calling procedure. LDZ.GE.N.
*> \endverbatim
@@ -163,7 +163,7 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> LDV is the leading dimension of V as declared in the
*> calling procedure. LDV.GE.3.
*> \endverbatim
@@ -176,14 +176,14 @@
*>
*> \param[in] LDU
*> \verbatim
-*> LDU is integer scalar
+*> LDU is INTEGER
*> LDU is the leading dimension of U just as declared in the
*> in the calling subroutine. LDU.GE.3*NSHFTS-3.
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> NH is the number of columns in array WH available for
*> workspace. NH.GE.1.
*> \endverbatim
@@ -195,14 +195,14 @@
*>
*> \param[in] LDWH
*> \verbatim
-*> LDWH is integer scalar
+*> LDWH is INTEGER
*> Leading dimension of WH just as declared in the
*> calling procedure. LDWH.GE.3*NSHFTS-3.
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer scalar
+*> NV is INTEGER
*> NV is the number of rows in WV agailable for workspace.
*> NV.GE.1.
*> \endverbatim
@@ -215,7 +215,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer scalar
+*> LDWV is INTEGER
*> LDWV is the leading dimension of WV as declared in the
*> in the calling subroutine. LDWV.GE.NV.
*> \endverbatim
diff --git a/SRC/ctgsen.f b/SRC/ctgsen.f
index 8f02d0e8..cb9b6b16 100644
--- a/SRC/ctgsen.f
+++ b/SRC/ctgsen.f
@@ -72,7 +72,7 @@
*
*> \param[in] IJOB
*> \verbatim
-*> IJOB is integer
+*> IJOB is INTEGER
*> Specifies whether condition numbers are required for the
*> cluster of eigenvalues (PL and PR) or the deflating subspaces
*> (Difu and Difl):
diff --git a/SRC/dbbcsd.f b/SRC/dbbcsd.f
index d7c7d14a..fa4c564a 100644
--- a/SRC/dbbcsd.f
+++ b/SRC/dbbcsd.f
@@ -190,7 +190,7 @@
*>
*> \param[in,out] V2T
*> \verbatim
-*> V2T is DOUBLE PRECISION array, dimenison (LDV2T,M-Q)
+*> V2T is DOUBLE PRECISION array, dimension (LDV2T,M-Q)
*> On entry, an (M-Q)-by-(M-Q) matrix. On exit, V2T is
*> premultiplied by the transpose of the right
*> singular vector matrix common to [ B12 0 0 ; 0 -I 0 ] and
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/dggesx.f b/SRC/dggesx.f
index f316c7fc..b7605355 100644
--- a/SRC/dggesx.f
+++ b/SRC/dggesx.f
@@ -111,7 +111,7 @@
*>
*> \param[in] SELCTG
*> \verbatim
-*> SELCTG is procedure) LOGICAL FUNCTION of three DOUBLE PRECISION arguments
+*> SELCTG is a LOGICAL FUNCTION of three DOUBLE PRECISION arguments
*> SELCTG must be declared EXTERNAL in the calling subroutine.
*> If SORT = 'N', SELCTG is not referenced.
*> If SORT = 'S', SELCTG is used to select eigenvalues to sort
diff --git a/SRC/dlaqr1.f b/SRC/dlaqr1.f
index acaefdeb..25021d5a 100644
--- a/SRC/dlaqr1.f
+++ b/SRC/dlaqr1.f
@@ -55,7 +55,7 @@
*
*> \param[in] N
*> \verbatim
-*> N is integer
+*> N is INTEGER
*> Order of the matrix H. N must be either 2 or 3.
*> \endverbatim
*>
@@ -67,7 +67,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> The leading dimension of H as declared in
*> the calling procedure. LDH.GE.N
*> \endverbatim
diff --git a/SRC/dlaqr2.f b/SRC/dlaqr2.f
index 910fdda6..462b7ca3 100644
--- a/SRC/dlaqr2.f
+++ b/SRC/dlaqr2.f
@@ -119,7 +119,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> Leading dimension of H just as declared in the calling
*> subroutine. N .LE. LDH
*> \endverbatim
@@ -147,14 +147,14 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer
+*> LDZ is INTEGER
*> The leading dimension of Z just as declared in the
*> calling subroutine. 1 .LE. LDZ.
*> \endverbatim
*>
*> \param[out] NS
*> \verbatim
-*> NS is integer
+*> NS is INTEGER
*> The number of unconverged (ie approximate) eigenvalues
*> returned in SR and SI that may be used as shifts by the
*> calling subroutine.
@@ -162,7 +162,7 @@
*>
*> \param[out] ND
*> \verbatim
-*> ND is integer
+*> ND is INTEGER
*> The number of converged eigenvalues uncovered by this
*> subroutine.
*> \endverbatim
@@ -192,14 +192,14 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> The leading dimension of V just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> The number of columns of T. NH.GE.NW.
*> \endverbatim
*>
@@ -210,14 +210,14 @@
*>
*> \param[in] LDT
*> \verbatim
-*> LDT is integer
+*> LDT is INTEGER
*> The leading dimension of T just as declared in the
*> calling subroutine. NW .LE. LDT
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer
+*> NV is INTEGER
*> The number of rows of work array WV available for
*> workspace. NV.GE.NW.
*> \endverbatim
@@ -229,7 +229,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer
+*> LDWV is INTEGER
*> The leading dimension of W just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
@@ -243,7 +243,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer
+*> LWORK is INTEGER
*> The dimension of the work array WORK. LWORK = 2*NW
*> suffices, but greater efficiency may result from larger
*> values of LWORK.
diff --git a/SRC/dlaqr3.f b/SRC/dlaqr3.f
index 8a668bc6..d4bc8baa 100644
--- a/SRC/dlaqr3.f
+++ b/SRC/dlaqr3.f
@@ -116,7 +116,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> Leading dimension of H just as declared in the calling
*> subroutine. N .LE. LDH
*> \endverbatim
@@ -144,14 +144,14 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer
+*> LDZ is INTEGER
*> The leading dimension of Z just as declared in the
*> calling subroutine. 1 .LE. LDZ.
*> \endverbatim
*>
*> \param[out] NS
*> \verbatim
-*> NS is integer
+*> NS is INTEGER
*> The number of unconverged (ie approximate) eigenvalues
*> returned in SR and SI that may be used as shifts by the
*> calling subroutine.
@@ -159,7 +159,7 @@
*>
*> \param[out] ND
*> \verbatim
-*> ND is integer
+*> ND is INTEGER
*> The number of converged eigenvalues uncovered by this
*> subroutine.
*> \endverbatim
@@ -189,14 +189,14 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> The leading dimension of V just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> The number of columns of T. NH.GE.NW.
*> \endverbatim
*>
@@ -207,14 +207,14 @@
*>
*> \param[in] LDT
*> \verbatim
-*> LDT is integer
+*> LDT is INTEGER
*> The leading dimension of T just as declared in the
*> calling subroutine. NW .LE. LDT
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer
+*> NV is INTEGER
*> The number of rows of work array WV available for
*> workspace. NV.GE.NW.
*> \endverbatim
@@ -226,7 +226,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer
+*> LDWV is INTEGER
*> The leading dimension of W just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
@@ -240,7 +240,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer
+*> LWORK is INTEGER
*> The dimension of the work array WORK. LWORK = 2*NW
*> suffices, but greater efficiency may result from larger
*> values of LWORK.
diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f
index 8b536c08..9b8763f0 100644
--- a/SRC/dlaqr5.f
+++ b/SRC/dlaqr5.f
@@ -62,7 +62,7 @@
*>
*> \param[in] KACC22
*> \verbatim
-*> KACC22 is integer with value 0, 1, or 2.
+*> KACC22 is INTEGER with value 0, 1, or 2.
*> Specifies the computation mode of far-from-diagonal
*> orthogonal updates.
*> = 0: DLAQR5 does not accumulate reflections and does not
@@ -78,19 +78,19 @@
*>
*> \param[in] N
*> \verbatim
-*> N is integer scalar
+*> N is INTEGER
*> N is the order of the Hessenberg matrix H upon which this
*> subroutine operates.
*> \endverbatim
*>
*> \param[in] KTOP
*> \verbatim
-*> KTOP is integer scalar
+*> KTOP is INTEGER
*> \endverbatim
*>
*> \param[in] KBOT
*> \verbatim
-*> KBOT is integer scalar
+*> KBOT is INTEGER
*> These are the first and last rows and columns of an
*> isolated diagonal block upon which the QR sweep is to be
*> applied. It is assumed without a check that
@@ -101,7 +101,7 @@
*>
*> \param[in] NSHFTS
*> \verbatim
-*> NSHFTS is integer scalar
+*> NSHFTS is INTEGER
*> NSHFTS gives the number of simultaneous shifts. NSHFTS
*> must be positive and even.
*> \endverbatim
@@ -131,7 +131,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer scalar
+*> LDH is INTEGER
*> LDH is the leading dimension of H just as declared in the
*> calling procedure. LDH.GE.MAX(1,N).
*> \endverbatim
@@ -159,7 +159,7 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer scalar
+*> LDZ is INTEGER
*> LDA is the leading dimension of Z just as declared in
*> the calling procedure. LDZ.GE.N.
*> \endverbatim
@@ -171,7 +171,7 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> LDV is the leading dimension of V as declared in the
*> calling procedure. LDV.GE.3.
*> \endverbatim
@@ -184,14 +184,14 @@
*>
*> \param[in] LDU
*> \verbatim
-*> LDU is integer scalar
+*> LDU is INTEGER
*> LDU is the leading dimension of U just as declared in the
*> in the calling subroutine. LDU.GE.3*NSHFTS-3.
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> NH is the number of columns in array WH available for
*> workspace. NH.GE.1.
*> \endverbatim
@@ -203,14 +203,14 @@
*>
*> \param[in] LDWH
*> \verbatim
-*> LDWH is integer scalar
+*> LDWH is INTEGER
*> Leading dimension of WH just as declared in the
*> calling procedure. LDWH.GE.3*NSHFTS-3.
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer scalar
+*> NV is INTEGER
*> NV is the number of rows in WV agailable for workspace.
*> NV.GE.1.
*> \endverbatim
@@ -223,7 +223,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer scalar
+*> LDWV is INTEGER
*> LDWV is the leading dimension of WV as declared in the
*> in the calling subroutine. LDWV.GE.NV.
*> \endverbatim
diff --git a/SRC/dtrttp.f b/SRC/dtrttp.f
index ac10ef4b..01995d96 100644
--- a/SRC/dtrttp.f
+++ b/SRC/dtrttp.f
@@ -74,7 +74,7 @@
*>
*> \param[out] AP
*> \verbatim
-*> AP is DOUBLE PRECISION array, dimension (N*(N+1)/2
+*> AP is DOUBLE PRECISION array, dimension (N*(N+1)/2)
*> On exit, the upper or lower triangular matrix A, packed
*> columnwise in a linear array. The j-th column of A is stored
*> in the array AP as follows:
diff --git a/SRC/iparmq.f b/SRC/iparmq.f
index c0dedc9e..72a16a1e 100644
--- a/SRC/iparmq.f
+++ b/SRC/iparmq.f
@@ -41,7 +41,7 @@
*
*> \param[in] ISPEC
*> \verbatim
-*> ISPEC is integer scalar
+*> ISPEC is INTEGER
*> ISPEC specifies which tunable parameter IPARMQ should
*> return.
*>
@@ -117,7 +117,7 @@
*>
*> \param[in] N
*> \verbatim
-*> N is integer scalar
+*> N is INTEGER
*> N is the order of the Hessenberg matrix H.
*> \endverbatim
*>
@@ -135,7 +135,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer scalar
+*> LWORK is INTEGER
*> The amount of workspace available.
*> \endverbatim
*
diff --git a/SRC/sbbcsd.f b/SRC/sbbcsd.f
index 6d1d833d..25cbdfc6 100644
--- a/SRC/sbbcsd.f
+++ b/SRC/sbbcsd.f
@@ -190,7 +190,7 @@
*>
*> \param[in,out] V2T
*> \verbatim
-*> V2T is REAL array, dimenison (LDV2T,M-Q)
+*> V2T is REAL array, dimension (LDV2T,M-Q)
*> On entry, an (M-Q)-by-(M-Q) matrix. On exit, V2T is
*> premultiplied by the transpose of the right
*> singular vector matrix common to [ B12 0 0 ; 0 -I 0 ] and
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/sggesx.f b/SRC/sggesx.f
index 223256d5..e733a697 100644
--- a/SRC/sggesx.f
+++ b/SRC/sggesx.f
@@ -111,7 +111,7 @@
*>
*> \param[in] SELCTG
*> \verbatim
-*> SELCTG is procedure) LOGICAL FUNCTION of three REAL arguments
+*> SELCTG is a LOGICAL FUNCTION of three REAL arguments
*> SELCTG must be declared EXTERNAL in the calling subroutine.
*> If SORT = 'N', SELCTG is not referenced.
*> If SORT = 'S', SELCTG is used to select eigenvalues to sort
diff --git a/SRC/slaqr1.f b/SRC/slaqr1.f
index 7e35b804..ca8e28f4 100644
--- a/SRC/slaqr1.f
+++ b/SRC/slaqr1.f
@@ -55,7 +55,7 @@
*
*> \param[in] N
*> \verbatim
-*> N is integer
+*> N is INTEGER
*> Order of the matrix H. N must be either 2 or 3.
*> \endverbatim
*>
@@ -67,7 +67,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> The leading dimension of H as declared in
*> the calling procedure. LDH.GE.N
*> \endverbatim
diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f
index 1bcb138c..1501f6ee 100644
--- a/SRC/slaqr2.f
+++ b/SRC/slaqr2.f
@@ -119,7 +119,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> Leading dimension of H just as declared in the calling
*> subroutine. N .LE. LDH
*> \endverbatim
@@ -147,14 +147,14 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer
+*> LDZ is INTEGER
*> The leading dimension of Z just as declared in the
*> calling subroutine. 1 .LE. LDZ.
*> \endverbatim
*>
*> \param[out] NS
*> \verbatim
-*> NS is integer
+*> NS is INTEGER
*> The number of unconverged (ie approximate) eigenvalues
*> returned in SR and SI that may be used as shifts by the
*> calling subroutine.
@@ -162,19 +162,19 @@
*>
*> \param[out] ND
*> \verbatim
-*> ND is integer
+*> ND is INTEGER
*> The number of converged eigenvalues uncovered by this
*> subroutine.
*> \endverbatim
*>
*> \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
@@ -192,14 +192,14 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> The leading dimension of V just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> The number of columns of T. NH.GE.NW.
*> \endverbatim
*>
@@ -210,14 +210,14 @@
*>
*> \param[in] LDT
*> \verbatim
-*> LDT is integer
+*> LDT is INTEGER
*> The leading dimension of T just as declared in the
*> calling subroutine. NW .LE. LDT
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer
+*> NV is INTEGER
*> The number of rows of work array WV available for
*> workspace. NV.GE.NW.
*> \endverbatim
@@ -229,7 +229,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer
+*> LDWV is INTEGER
*> The leading dimension of W just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
@@ -243,7 +243,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer
+*> LWORK is INTEGER
*> The dimension of the work array WORK. LWORK = 2*NW
*> suffices, but greater efficiency may result from larger
*> values of LWORK.
diff --git a/SRC/slaqr3.f b/SRC/slaqr3.f
index 2fabacf4..86bac854 100644
--- a/SRC/slaqr3.f
+++ b/SRC/slaqr3.f
@@ -116,7 +116,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> Leading dimension of H just as declared in the calling
*> subroutine. N .LE. LDH
*> \endverbatim
@@ -144,14 +144,14 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer
+*> LDZ is INTEGER
*> The leading dimension of Z just as declared in the
*> calling subroutine. 1 .LE. LDZ.
*> \endverbatim
*>
*> \param[out] NS
*> \verbatim
-*> NS is integer
+*> NS is INTEGER
*> The number of unconverged (ie approximate) eigenvalues
*> returned in SR and SI that may be used as shifts by the
*> calling subroutine.
@@ -159,19 +159,19 @@
*>
*> \param[out] ND
*> \verbatim
-*> ND is integer
+*> ND is INTEGER
*> The number of converged eigenvalues uncovered by this
*> subroutine.
*> \endverbatim
*>
*> \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
@@ -189,14 +189,14 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> The leading dimension of V just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> The number of columns of T. NH.GE.NW.
*> \endverbatim
*>
@@ -207,14 +207,14 @@
*>
*> \param[in] LDT
*> \verbatim
-*> LDT is integer
+*> LDT is INTEGER
*> The leading dimension of T just as declared in the
*> calling subroutine. NW .LE. LDT
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer
+*> NV is INTEGER
*> The number of rows of work array WV available for
*> workspace. NV.GE.NW.
*> \endverbatim
@@ -226,7 +226,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer
+*> LDWV is INTEGER
*> The leading dimension of W just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
@@ -240,7 +240,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer
+*> LWORK is INTEGER
*> The dimension of the work array WORK. LWORK = 2*NW
*> suffices, but greater efficiency may result from larger
*> values of LWORK.
diff --git a/SRC/slaqr5.f b/SRC/slaqr5.f
index ea3910a5..5198c1fb 100644
--- a/SRC/slaqr5.f
+++ b/SRC/slaqr5.f
@@ -62,7 +62,7 @@
*>
*> \param[in] KACC22
*> \verbatim
-*> KACC22 is integer with value 0, 1, or 2.
+*> KACC22 is INTEGER with value 0, 1, or 2.
*> Specifies the computation mode of far-from-diagonal
*> orthogonal updates.
*> = 0: SLAQR5 does not accumulate reflections and does not
@@ -78,19 +78,19 @@
*>
*> \param[in] N
*> \verbatim
-*> N is integer scalar
+*> N is INTEGER
*> N is the order of the Hessenberg matrix H upon which this
*> subroutine operates.
*> \endverbatim
*>
*> \param[in] KTOP
*> \verbatim
-*> KTOP is integer scalar
+*> KTOP is INTEGER
*> \endverbatim
*>
*> \param[in] KBOT
*> \verbatim
-*> KBOT is integer scalar
+*> KBOT is INTEGER
*> These are the first and last rows and columns of an
*> isolated diagonal block upon which the QR sweep is to be
*> applied. It is assumed without a check that
@@ -101,7 +101,7 @@
*>
*> \param[in] NSHFTS
*> \verbatim
-*> NSHFTS is integer scalar
+*> NSHFTS is INTEGER
*> NSHFTS gives the number of simultaneous shifts. NSHFTS
*> must be positive and even.
*> \endverbatim
@@ -131,7 +131,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer scalar
+*> LDH is INTEGER
*> LDH is the leading dimension of H just as declared in the
*> calling procedure. LDH.GE.MAX(1,N).
*> \endverbatim
@@ -159,7 +159,7 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer scalar
+*> LDZ is INTEGER
*> LDA is the leading dimension of Z just as declared in
*> the calling procedure. LDZ.GE.N.
*> \endverbatim
@@ -171,7 +171,7 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> LDV is the leading dimension of V as declared in the
*> calling procedure. LDV.GE.3.
*> \endverbatim
@@ -184,14 +184,14 @@
*>
*> \param[in] LDU
*> \verbatim
-*> LDU is integer scalar
+*> LDU is INTEGER
*> LDU is the leading dimension of U just as declared in the
*> in the calling subroutine. LDU.GE.3*NSHFTS-3.
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> NH is the number of columns in array WH available for
*> workspace. NH.GE.1.
*> \endverbatim
@@ -203,14 +203,14 @@
*>
*> \param[in] LDWH
*> \verbatim
-*> LDWH is integer scalar
+*> LDWH is INTEGER
*> Leading dimension of WH just as declared in the
*> calling procedure. LDWH.GE.3*NSHFTS-3.
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer scalar
+*> NV is INTEGER
*> NV is the number of rows in WV agailable for workspace.
*> NV.GE.1.
*> \endverbatim
@@ -223,7 +223,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer scalar
+*> LDWV is INTEGER
*> LDWV is the leading dimension of WV as declared in the
*> in the calling subroutine. LDWV.GE.NV.
*> \endverbatim
diff --git a/SRC/ssbgvx.f b/SRC/ssbgvx.f
index fe2ea610..312c2c55 100644
--- a/SRC/ssbgvx.f
+++ b/SRC/ssbgvx.f
@@ -241,12 +241,12 @@
*>
*> \param[out] WORK
*> \verbatim
-*> WORK is REAL array, dimension (7N)
+*> WORK is REAL array, dimension (7*N)
*> \endverbatim
*>
*> \param[out] IWORK
*> \verbatim
-*> IWORK is INTEGER array, dimension (5N)
+*> IWORK is INTEGER array, dimension (5*N)
*> \endverbatim
*>
*> \param[out] IFAIL
diff --git a/SRC/strttp.f b/SRC/strttp.f
index c51a5289..7a1cf079 100644
--- a/SRC/strttp.f
+++ b/SRC/strttp.f
@@ -74,7 +74,7 @@
*>
*> \param[out] AP
*> \verbatim
-*> AP is REAL array, dimension (N*(N+1)/2
+*> AP is REAL array, dimension (N*(N+1)/2)
*> On exit, the upper or lower triangular matrix A, packed
*> columnwise in a linear array. The j-th column of A is stored
*> in the array AP as follows:
diff --git a/SRC/zbbcsd.f b/SRC/zbbcsd.f
index 51e148b4..fd1d95ab 100644
--- a/SRC/zbbcsd.f
+++ b/SRC/zbbcsd.f
@@ -190,7 +190,7 @@
*>
*> \param[in,out] V2T
*> \verbatim
-*> V2T is COMPLEX*16 array, dimenison (LDV2T,M-Q)
+*> V2T is COMPLEX*16 array, dimension (LDV2T,M-Q)
*> On entry, an (M-Q)-by-(M-Q) matrix. On exit, V2T is
*> premultiplied by the conjugate transpose of the right
*> singular vector matrix common to [ B12 0 0 ; 0 -I 0 ] and
diff --git a/SRC/zggesx.f b/SRC/zggesx.f
index ac913845..c43374d2 100644
--- a/SRC/zggesx.f
+++ b/SRC/zggesx.f
@@ -104,7 +104,7 @@
*>
*> \param[in] SELCTG
*> \verbatim
-*> SELCTG is procedure) LOGICAL FUNCTION of two COMPLEX*16 arguments
+*> SELCTG is a LOGICAL FUNCTION of two COMPLEX*16 arguments
*> SELCTG must be declared EXTERNAL in the calling subroutine.
*> If SORT = 'N', SELCTG is not referenced.
*> If SORT = 'S', SELCTG is used to select eigenvalues to sort
diff --git a/SRC/zlaqr1.f b/SRC/zlaqr1.f
index f945672c..50b3a682 100644
--- a/SRC/zlaqr1.f
+++ b/SRC/zlaqr1.f
@@ -50,7 +50,7 @@
*
*> \param[in] N
*> \verbatim
-*> N is integer
+*> N is INTEGER
*> Order of the matrix H. N must be either 2 or 3.
*> \endverbatim
*>
@@ -62,7 +62,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> The leading dimension of H as declared in
*> the calling procedure. LDH.GE.N
*> \endverbatim
diff --git a/SRC/zlaqr2.f b/SRC/zlaqr2.f
index d8396d23..bcb723b8 100644
--- a/SRC/zlaqr2.f
+++ b/SRC/zlaqr2.f
@@ -119,7 +119,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> Leading dimension of H just as declared in the calling
*> subroutine. N .LE. LDH
*> \endverbatim
@@ -147,14 +147,14 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer
+*> LDZ is INTEGER
*> The leading dimension of Z just as declared in the
*> calling subroutine. 1 .LE. LDZ.
*> \endverbatim
*>
*> \param[out] NS
*> \verbatim
-*> NS is integer
+*> NS is INTEGER
*> The number of unconverged (ie approximate) eigenvalues
*> returned in SR and SI that may be used as shifts by the
*> calling subroutine.
@@ -162,14 +162,14 @@
*>
*> \param[out] ND
*> \verbatim
-*> ND is integer
+*> ND is INTEGER
*> The number of converged eigenvalues uncovered by this
*> subroutine.
*> \endverbatim
*>
*> \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
@@ -184,14 +184,14 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> The leading dimension of V just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> The number of columns of T. NH.GE.NW.
*> \endverbatim
*>
@@ -202,14 +202,14 @@
*>
*> \param[in] LDT
*> \verbatim
-*> LDT is integer
+*> LDT is INTEGER
*> The leading dimension of T just as declared in the
*> calling subroutine. NW .LE. LDT
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer
+*> NV is INTEGER
*> The number of rows of work array WV available for
*> workspace. NV.GE.NW.
*> \endverbatim
@@ -221,7 +221,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer
+*> LDWV is INTEGER
*> The leading dimension of W just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
@@ -235,7 +235,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer
+*> LWORK is INTEGER
*> The dimension of the work array WORK. LWORK = 2*NW
*> suffices, but greater efficiency may result from larger
*> values of LWORK.
diff --git a/SRC/zlaqr3.f b/SRC/zlaqr3.f
index 402644fd..7ab8eb49 100644
--- a/SRC/zlaqr3.f
+++ b/SRC/zlaqr3.f
@@ -116,7 +116,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer
+*> LDH is INTEGER
*> Leading dimension of H just as declared in the calling
*> subroutine. N .LE. LDH
*> \endverbatim
@@ -144,14 +144,14 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer
+*> LDZ is INTEGER
*> The leading dimension of Z just as declared in the
*> calling subroutine. 1 .LE. LDZ.
*> \endverbatim
*>
*> \param[out] NS
*> \verbatim
-*> NS is integer
+*> NS is INTEGER
*> The number of unconverged (ie approximate) eigenvalues
*> returned in SR and SI that may be used as shifts by the
*> calling subroutine.
@@ -159,14 +159,14 @@
*>
*> \param[out] ND
*> \verbatim
-*> ND is integer
+*> ND is INTEGER
*> The number of converged eigenvalues uncovered by this
*> subroutine.
*> \endverbatim
*>
*> \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
@@ -181,14 +181,14 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> The leading dimension of V just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> The number of columns of T. NH.GE.NW.
*> \endverbatim
*>
@@ -199,14 +199,14 @@
*>
*> \param[in] LDT
*> \verbatim
-*> LDT is integer
+*> LDT is INTEGER
*> The leading dimension of T just as declared in the
*> calling subroutine. NW .LE. LDT
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer
+*> NV is INTEGER
*> The number of rows of work array WV available for
*> workspace. NV.GE.NW.
*> \endverbatim
@@ -218,7 +218,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer
+*> LDWV is INTEGER
*> The leading dimension of W just as declared in the
*> calling subroutine. NW .LE. LDV
*> \endverbatim
@@ -232,7 +232,7 @@
*>
*> \param[in] LWORK
*> \verbatim
-*> LWORK is integer
+*> LWORK is INTEGER
*> The dimension of the work array WORK. LWORK = 2*NW
*> suffices, but greater efficiency may result from larger
*> values of LWORK.
diff --git a/SRC/zlaqr5.f b/SRC/zlaqr5.f
index 3e0392cb..3e463b4a 100644
--- a/SRC/zlaqr5.f
+++ b/SRC/zlaqr5.f
@@ -61,7 +61,7 @@
*>
*> \param[in] KACC22
*> \verbatim
-*> KACC22 is integer with value 0, 1, or 2.
+*> KACC22 is INTEGER with value 0, 1, or 2.
*> Specifies the computation mode of far-from-diagonal
*> orthogonal updates.
*> = 0: ZLAQR5 does not accumulate reflections and does not
@@ -77,19 +77,19 @@
*>
*> \param[in] N
*> \verbatim
-*> N is integer scalar
+*> N is INTEGER
*> N is the order of the Hessenberg matrix H upon which this
*> subroutine operates.
*> \endverbatim
*>
*> \param[in] KTOP
*> \verbatim
-*> KTOP is integer scalar
+*> KTOP is INTEGER
*> \endverbatim
*>
*> \param[in] KBOT
*> \verbatim
-*> KBOT is integer scalar
+*> KBOT is INTEGER
*> These are the first and last rows and columns of an
*> isolated diagonal block upon which the QR sweep is to be
*> applied. It is assumed without a check that
@@ -100,7 +100,7 @@
*>
*> \param[in] NSHFTS
*> \verbatim
-*> NSHFTS is integer scalar
+*> NSHFTS is INTEGER
*> NSHFTS gives the number of simultaneous shifts. NSHFTS
*> must be positive and even.
*> \endverbatim
@@ -123,7 +123,7 @@
*>
*> \param[in] LDH
*> \verbatim
-*> LDH is integer scalar
+*> LDH is INTEGER
*> LDH is the leading dimension of H just as declared in the
*> calling procedure. LDH.GE.MAX(1,N).
*> \endverbatim
@@ -151,7 +151,7 @@
*>
*> \param[in] LDZ
*> \verbatim
-*> LDZ is integer scalar
+*> LDZ is INTEGER
*> LDA is the leading dimension of Z just as declared in
*> the calling procedure. LDZ.GE.N.
*> \endverbatim
@@ -163,7 +163,7 @@
*>
*> \param[in] LDV
*> \verbatim
-*> LDV is integer scalar
+*> LDV is INTEGER
*> LDV is the leading dimension of V as declared in the
*> calling procedure. LDV.GE.3.
*> \endverbatim
@@ -176,14 +176,14 @@
*>
*> \param[in] LDU
*> \verbatim
-*> LDU is integer scalar
+*> LDU is INTEGER
*> LDU is the leading dimension of U just as declared in the
*> in the calling subroutine. LDU.GE.3*NSHFTS-3.
*> \endverbatim
*>
*> \param[in] NH
*> \verbatim
-*> NH is integer scalar
+*> NH is INTEGER
*> NH is the number of columns in array WH available for
*> workspace. NH.GE.1.
*> \endverbatim
@@ -195,14 +195,14 @@
*>
*> \param[in] LDWH
*> \verbatim
-*> LDWH is integer scalar
+*> LDWH is INTEGER
*> Leading dimension of WH just as declared in the
*> calling procedure. LDWH.GE.3*NSHFTS-3.
*> \endverbatim
*>
*> \param[in] NV
*> \verbatim
-*> NV is integer scalar
+*> NV is INTEGER
*> NV is the number of rows in WV agailable for workspace.
*> NV.GE.1.
*> \endverbatim
@@ -215,7 +215,7 @@
*>
*> \param[in] LDWV
*> \verbatim
-*> LDWV is integer scalar
+*> LDWV is INTEGER
*> LDWV is the leading dimension of WV as declared in the
*> in the calling subroutine. LDWV.GE.NV.
*> \endverbatim
diff --git a/SRC/ztgsen.f b/SRC/ztgsen.f
index 8561f23a..1671c468 100644
--- a/SRC/ztgsen.f
+++ b/SRC/ztgsen.f
@@ -72,7 +72,7 @@
*
*> \param[in] IJOB
*> \verbatim
-*> IJOB is integer
+*> IJOB is INTEGER
*> Specifies whether condition numbers are required for the
*> cluster of eigenvalues (PL and PR) or the deflating subspaces
*> (Difu and Difl):