diff options
| -rw-r--r-- | SRC/cbbcsd.f | 2 | ||||
| -rw-r--r-- | SRC/cggesx.f | 2 | ||||
| -rw-r--r-- | SRC/claqr1.f | 4 | ||||
| -rw-r--r-- | SRC/claqr2.f | 22 | ||||
| -rw-r--r-- | SRC/claqr3.f | 22 | ||||
| -rw-r--r-- | SRC/claqr4.f | 1 | ||||
| -rw-r--r-- | SRC/claqr5.f | 26 | ||||
| -rw-r--r-- | SRC/ctgsen.f | 2 | ||||
| -rw-r--r-- | SRC/dbbcsd.f | 2 | ||||
| -rw-r--r-- | SRC/dgejsv.f | 2 | ||||
| -rw-r--r-- | SRC/dggesx.f | 2 | ||||
| -rw-r--r-- | SRC/dlaqr1.f | 4 | ||||
| -rw-r--r-- | SRC/dlaqr2.f | 20 | ||||
| -rw-r--r-- | SRC/dlaqr3.f | 20 | ||||
| -rw-r--r-- | SRC/dlaqr5.f | 26 | ||||
| -rw-r--r-- | SRC/dtrttp.f | 2 | ||||
| -rw-r--r-- | SRC/iparmq.f | 6 | ||||
| -rw-r--r-- | SRC/sbbcsd.f | 2 | ||||
| -rw-r--r-- | SRC/sgejsv.f | 2 | ||||
| -rw-r--r-- | SRC/sggesx.f | 2 | ||||
| -rw-r--r-- | SRC/slaqr1.f | 4 | ||||
| -rw-r--r-- | SRC/slaqr2.f | 24 | ||||
| -rw-r--r-- | SRC/slaqr3.f | 24 | ||||
| -rw-r--r-- | SRC/slaqr5.f | 26 | ||||
| -rw-r--r-- | SRC/ssbgvx.f | 4 | ||||
| -rw-r--r-- | SRC/strttp.f | 2 | ||||
| -rw-r--r-- | SRC/zbbcsd.f | 2 | ||||
| -rw-r--r-- | SRC/zggesx.f | 2 | ||||
| -rw-r--r-- | SRC/zlaqr1.f | 4 | ||||
| -rw-r--r-- | SRC/zlaqr2.f | 22 | ||||
| -rw-r--r-- | SRC/zlaqr3.f | 22 | ||||
| -rw-r--r-- | SRC/zlaqr5.f | 26 | ||||
| -rw-r--r-- | SRC/ztgsen.f | 2 |
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): |