diff options
Diffstat (limited to 'TESTING/EIG')
48 files changed, 60 insertions, 60 deletions
diff --git a/TESTING/EIG/cchkgg.f b/TESTING/EIG/cchkgg.f index e1daf478..84f2f7b9 100644 --- a/TESTING/EIG/cchkgg.f +++ b/TESTING/EIG/cchkgg.f @@ -68,7 +68,7 @@ *> and each type of matrix, one matrix will be generated and used *> to test the nonsymmetric eigenroutines. For each matrix, 13 *> tests will be performed. The first twelve "test ratios" should be -*> small -- O(1). They will be compared with the threshhold THRESH: +*> small -- O(1). They will be compared with the threshold THRESH: *> *> H *> (1) | A - U H V | / ( |A| n ulp ) @@ -128,7 +128,7 @@ *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp *> *> In addition, the normalization of L and R are checked, and compared -*> with the threshhold THRSHN. +*> with the threshold THRSHN. *> *> Test Matrices *> ---- -------- @@ -298,7 +298,7 @@ *> \param[in] THRSHN *> \verbatim *> THRSHN is REAL -*> Threshhold for reporting eigenvector normalization error. +*> Threshold for reporting eigenvector normalization error. *> If the normalization of any eigenvector differs from 1 by *> more than THRSHN*ulp, then a special error message will be *> printed. (This is handled separately from the other tests, diff --git a/TESTING/EIG/cdrges.f b/TESTING/EIG/cdrges.f index 14af1039..e90f9b9d 100644 --- a/TESTING/EIG/cdrges.f +++ b/TESTING/EIG/cdrges.f @@ -50,7 +50,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/cdrges3.f b/TESTING/EIG/cdrges3.f index 0ef33dfd..2fbcef4f 100644 --- a/TESTING/EIG/cdrges3.f +++ b/TESTING/EIG/cdrges3.f @@ -50,7 +50,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/cdrgev.f b/TESTING/EIG/cdrgev.f index 1e0eca55..dee55d1d 100644 --- a/TESTING/EIG/cdrgev.f +++ b/TESTING/EIG/cdrgev.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from CGGEV: *> diff --git a/TESTING/EIG/cdrgev3.f b/TESTING/EIG/cdrgev3.f index 6531752b..b23532aa 100644 --- a/TESTING/EIG/cdrgev3.f +++ b/TESTING/EIG/cdrgev3.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from CGGEV3: *> diff --git a/TESTING/EIG/cdrgsx.f b/TESTING/EIG/cdrgsx.f index d0129ea5..4e711cea 100644 --- a/TESTING/EIG/cdrgsx.f +++ b/TESTING/EIG/cdrgsx.f @@ -59,7 +59,7 @@ *> (need more details on what kind of read-in data are needed). *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH except for the tests (7) and (9): +*> compared with the threshold THRESH except for the tests (7) and (9): *> *> (1) | A - Q S Z' | / ( |A| n ulp ) *> diff --git a/TESTING/EIG/cdrgvx.f b/TESTING/EIG/cdrgvx.f index 9c0a807f..fffdbf1b 100644 --- a/TESTING/EIG/cdrgvx.f +++ b/TESTING/EIG/cdrgvx.f @@ -50,7 +50,7 @@ *> corresponding the first and last eigenvalues are also know *> ``exactly'' (see CLATM6). *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH. +*> compared with the threshold THRESH. *> *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of *> diff --git a/TESTING/EIG/cdrves.f b/TESTING/EIG/cdrves.f index 782cae7c..fe3e1f85 100644 --- a/TESTING/EIG/cdrves.f +++ b/TESTING/EIG/cdrves.f @@ -901,7 +901,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if W same no matter if VS computed (sort),', $ ' 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), $ ' type ', I2, ', test(', I2, ')=', G10.3 ) 9992 FORMAT( ' CDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', diff --git a/TESTING/EIG/cdrvsx.f b/TESTING/EIG/cdrvsx.f index 8bac9cc2..6b756152 100644 --- a/TESTING/EIG/cdrvsx.f +++ b/TESTING/EIG/cdrvsx.f @@ -914,7 +914,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if W same no matter what else computed ', $ '(sort), 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', $ / ' 14 = 0 if RCONDE same no matter what else computed,', $ ' 1/ulp otherwise', / $ ' 15 = 0 if RCONDv same no matter what else computed,', diff --git a/TESTING/EIG/cdrvvx.f b/TESTING/EIG/cdrvvx.f index 629e78cf..930acd86 100644 --- a/TESTING/EIG/cdrvvx.f +++ b/TESTING/EIG/cdrvvx.f @@ -446,7 +446,7 @@ *> \verbatim *> INFO is INTEGER *> If 0, then successful exit. -*> If <0, then input paramter -INFO is incorrect. +*> If <0, then input parameter -INFO is incorrect. *> If >0, CLATMR, CLATMS, CLATME or CGET23 returned an error *> code, and INFO is its absolute value. *> diff --git a/TESTING/EIG/clctes.f b/TESTING/EIG/clctes.f index 82499fae..82bc9760 100644 --- a/TESTING/EIG/clctes.f +++ b/TESTING/EIG/clctes.f @@ -25,7 +25,7 @@ *> eigenvalue is negative), and otherwise it returns .FALSE.. *> *> It is used by the test routine CDRGES to test whether the driver -*> routine CGGES succesfully sorts eigenvalues. +*> routine CGGES successfully sorts eigenvalues. *> \endverbatim * * Arguments: diff --git a/TESTING/EIG/cslect.f b/TESTING/EIG/cslect.f index ea244d89..a3da9065 100644 --- a/TESTING/EIG/cslect.f +++ b/TESTING/EIG/cslect.f @@ -22,8 +22,8 @@ *> *> CSLECT returns .TRUE. if the eigenvalue Z is to be selected, *> otherwise it returns .FALSE. -*> It is used by CCHK41 to test if CGEES succesfully sorts eigenvalues, -*> and by CCHK43 to test if CGEESX succesfully sorts eigenvalues. +*> It is used by CCHK41 to test if CGEES successfully sorts eigenvalues, +*> and by CCHK43 to test if CGEESX successfully sorts eigenvalues. *> *> The common block /SSLCT/ controls how eigenvalues are selected. *> If SELOPT = 0, then CSLECT return .TRUE. when real(Z) is less than diff --git a/TESTING/EIG/dchkgg.f b/TESTING/EIG/dchkgg.f index ebdc9f18..858b4c61 100644 --- a/TESTING/EIG/dchkgg.f +++ b/TESTING/EIG/dchkgg.f @@ -72,7 +72,7 @@ *> and each type of matrix, one matrix will be generated and used *> to test the nonsymmetric eigenroutines. For each matrix, 15 *> tests will be performed. The first twelve "test ratios" should be -*> small -- O(1). They will be compared with the threshhold THRESH: +*> small -- O(1). They will be compared with the threshold THRESH: *> *> T *> (1) | A - U H V | / ( |A| n ulp ) @@ -132,7 +132,7 @@ *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp *> *> In addition, the normalization of L and R are checked, and compared -*> with the threshhold THRSHN. +*> with the threshold THRSHN. *> *> Test Matrices *> ---- -------- @@ -298,7 +298,7 @@ *> \param[in] THRSHN *> \verbatim *> THRSHN is DOUBLE PRECISION -*> Threshhold for reporting eigenvector normalization error. +*> Threshold for reporting eigenvector normalization error. *> If the normalization of any eigenvector differs from 1 by *> more than THRSHN*ulp, then a special error message will be *> printed. (This is handled separately from the other tests, diff --git a/TESTING/EIG/ddrges.f b/TESTING/EIG/ddrges.f index b16efc65..65a122b7 100644 --- a/TESTING/EIG/ddrges.f +++ b/TESTING/EIG/ddrges.f @@ -52,7 +52,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/ddrges3.f b/TESTING/EIG/ddrges3.f index 77363019..8712dc86 100644 --- a/TESTING/EIG/ddrges3.f +++ b/TESTING/EIG/ddrges3.f @@ -52,7 +52,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/ddrgev.f b/TESTING/EIG/ddrgev.f index 9155aed3..f36288fc 100644 --- a/TESTING/EIG/ddrgev.f +++ b/TESTING/EIG/ddrgev.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from DGGEV: *> diff --git a/TESTING/EIG/ddrgev3.f b/TESTING/EIG/ddrgev3.f index e8de1a8a..7b803857 100644 --- a/TESTING/EIG/ddrgev3.f +++ b/TESTING/EIG/ddrgev3.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from DGGEV3: *> diff --git a/TESTING/EIG/ddrgsx.f b/TESTING/EIG/ddrgsx.f index 843fd204..eea47c4e 100644 --- a/TESTING/EIG/ddrgsx.f +++ b/TESTING/EIG/ddrgsx.f @@ -60,7 +60,7 @@ *> to test DGGESX. *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH except for the tests (7) and (9): +*> compared with the threshold THRESH except for the tests (7) and (9): *> *> (1) | A - Q S Z' | / ( |A| n ulp ) *> diff --git a/TESTING/EIG/ddrgvx.f b/TESTING/EIG/ddrgvx.f index 08a7aff0..70b732e6 100644 --- a/TESTING/EIG/ddrgvx.f +++ b/TESTING/EIG/ddrgvx.f @@ -50,7 +50,7 @@ *> ``exactly'' (see DLATM6). *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH. +*> compared with the threshold THRESH. *> *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of *> diff --git a/TESTING/EIG/ddrves.f b/TESTING/EIG/ddrves.f index 93e495e1..b8c4aa34 100644 --- a/TESTING/EIG/ddrves.f +++ b/TESTING/EIG/ddrves.f @@ -948,7 +948,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if WR, WI same no matter if VS computed (sort),', $ ' 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), $ ' type ', I2, ', test(', I2, ')=', G10.3 ) 9992 FORMAT( ' DDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', diff --git a/TESTING/EIG/ddrvsx.f b/TESTING/EIG/ddrvsx.f index 42b5b76e..12a7271f 100644 --- a/TESTING/EIG/ddrvsx.f +++ b/TESTING/EIG/ddrvsx.f @@ -933,7 +933,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if WR, WI same no matter what else computed ', $ '(sort), 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', $ / ' 14 = 0 if RCONDE same no matter what else computed,', $ ' 1/ulp otherwise', / $ ' 15 = 0 if RCONDv same no matter what else computed,', diff --git a/TESTING/EIG/ddrvvx.f b/TESTING/EIG/ddrvvx.f index 14c5c74b..4a7e72a8 100644 --- a/TESTING/EIG/ddrvvx.f +++ b/TESTING/EIG/ddrvvx.f @@ -471,7 +471,7 @@ *> \verbatim *> INFO is INTEGER *> If 0, then successful exit. -*> If <0, then input paramter -INFO is incorrect. +*> If <0, then input parameter -INFO is incorrect. *> If >0, DLATMR, SLATMS, SLATME or DGET23 returned an error *> code, and INFO is its absolute value. *> diff --git a/TESTING/EIG/dlctes.f b/TESTING/EIG/dlctes.f index 71b70919..b25bbc5c 100644 --- a/TESTING/EIG/dlctes.f +++ b/TESTING/EIG/dlctes.f @@ -26,7 +26,7 @@ *> .FALSE.. *> *> It is used by the test routine DDRGES to test whether the driver -*> routine DGGES succesfully sorts eigenvalues. +*> routine DGGES successfully sorts eigenvalues. *> \endverbatim * * Arguments: diff --git a/TESTING/EIG/dslect.f b/TESTING/EIG/dslect.f index 3978024c..5dbac822 100644 --- a/TESTING/EIG/dslect.f +++ b/TESTING/EIG/dslect.f @@ -22,8 +22,8 @@ *> *> DSLECT returns .TRUE. if the eigenvalue ZR+sqrt(-1)*ZI is to be *> selected, and otherwise it returns .FALSE. -*> It is used by DCHK41 to test if DGEES succesfully sorts eigenvalues, -*> and by DCHK43 to test if DGEESX succesfully sorts eigenvalues. +*> It is used by DCHK41 to test if DGEES successfully sorts eigenvalues, +*> and by DCHK43 to test if DGEESX successfully sorts eigenvalues. *> *> The common block /SSLCT/ controls how eigenvalues are selected. *> If SELOPT = 0, then DSLECT return .TRUE. when ZR is less than zero, diff --git a/TESTING/EIG/schkgg.f b/TESTING/EIG/schkgg.f index 708b2437..0297c859 100644 --- a/TESTING/EIG/schkgg.f +++ b/TESTING/EIG/schkgg.f @@ -72,7 +72,7 @@ *> and each type of matrix, one matrix will be generated and used *> to test the nonsymmetric eigenroutines. For each matrix, 15 *> tests will be performed. The first twelve "test ratios" should be -*> small -- O(1). They will be compared with the threshhold THRESH: +*> small -- O(1). They will be compared with the threshold THRESH: *> *> T *> (1) | A - U H V | / ( |A| n ulp ) @@ -132,7 +132,7 @@ *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp *> *> In addition, the normalization of L and R are checked, and compared -*> with the threshhold THRSHN. +*> with the threshold THRSHN. *> *> Test Matrices *> ---- -------- @@ -298,7 +298,7 @@ *> \param[in] THRSHN *> \verbatim *> THRSHN is REAL -*> Threshhold for reporting eigenvector normalization error. +*> Threshold for reporting eigenvector normalization error. *> If the normalization of any eigenvector differs from 1 by *> more than THRSHN*ulp, then a special error message will be *> printed. (This is handled separately from the other tests, diff --git a/TESTING/EIG/sdrges.f b/TESTING/EIG/sdrges.f index f4d9a124..aedff349 100644 --- a/TESTING/EIG/sdrges.f +++ b/TESTING/EIG/sdrges.f @@ -52,7 +52,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/sdrges3.f b/TESTING/EIG/sdrges3.f index 6fed3c84..6b23dc93 100644 --- a/TESTING/EIG/sdrges3.f +++ b/TESTING/EIG/sdrges3.f @@ -52,7 +52,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/sdrgev.f b/TESTING/EIG/sdrgev.f index 816b37bb..0701d882 100644 --- a/TESTING/EIG/sdrgev.f +++ b/TESTING/EIG/sdrgev.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from SGGEV: *> diff --git a/TESTING/EIG/sdrgev3.f b/TESTING/EIG/sdrgev3.f index c1c92a89..2a1e351e 100644 --- a/TESTING/EIG/sdrgev3.f +++ b/TESTING/EIG/sdrgev3.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from SGGEV3: *> diff --git a/TESTING/EIG/sdrgsx.f b/TESTING/EIG/sdrgsx.f index 4cc8d019..0c64eb38 100644 --- a/TESTING/EIG/sdrgsx.f +++ b/TESTING/EIG/sdrgsx.f @@ -60,7 +60,7 @@ *> to test SGGESX. *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH except for the tests (7) and (9): +*> compared with the threshold THRESH except for the tests (7) and (9): *> *> (1) | A - Q S Z' | / ( |A| n ulp ) *> diff --git a/TESTING/EIG/sdrgvx.f b/TESTING/EIG/sdrgvx.f index d899e56d..a4df2b27 100644 --- a/TESTING/EIG/sdrgvx.f +++ b/TESTING/EIG/sdrgvx.f @@ -51,7 +51,7 @@ *> ``exactly'' (see SLATM6). *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH. +*> compared with the threshold THRESH. *> *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of *> diff --git a/TESTING/EIG/sdrves.f b/TESTING/EIG/sdrves.f index f2ec1e72..ebbca770 100644 --- a/TESTING/EIG/sdrves.f +++ b/TESTING/EIG/sdrves.f @@ -948,7 +948,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if WR, WI same no matter if VS computed (sort),', $ ' 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), $ ' type ', I2, ', test(', I2, ')=', G10.3 ) 9992 FORMAT( ' SDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', diff --git a/TESTING/EIG/sdrvsx.f b/TESTING/EIG/sdrvsx.f index a4437adb..d6147a02 100644 --- a/TESTING/EIG/sdrvsx.f +++ b/TESTING/EIG/sdrvsx.f @@ -933,7 +933,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if WR, WI same no matter what else computed ', $ '(sort), 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', $ / ' 14 = 0 if RCONDE same no matter what else computed,', $ ' 1/ulp otherwise', / $ ' 15 = 0 if RCONDv same no matter what else computed,', diff --git a/TESTING/EIG/sdrvvx.f b/TESTING/EIG/sdrvvx.f index a7136196..0e6a11b6 100644 --- a/TESTING/EIG/sdrvvx.f +++ b/TESTING/EIG/sdrvvx.f @@ -470,7 +470,7 @@ *> \verbatim *> INFO is INTEGER *> If 0, then successful exit. -*> If <0, then input paramter -INFO is incorrect. +*> If <0, then input parameter -INFO is incorrect. *> If >0, SLATMR, SLATMS, SLATME or SGET23 returned an error *> code, and INFO is its absolute value. *> diff --git a/TESTING/EIG/slctes.f b/TESTING/EIG/slctes.f index e39b0d63..09f2ccb1 100644 --- a/TESTING/EIG/slctes.f +++ b/TESTING/EIG/slctes.f @@ -26,7 +26,7 @@ *> .FALSE.. *> *> It is used by the test routine SDRGES to test whether the driver -*> routine SGGES succesfully sorts eigenvalues. +*> routine SGGES successfully sorts eigenvalues. *> \endverbatim * * Arguments: diff --git a/TESTING/EIG/sslect.f b/TESTING/EIG/sslect.f index 89d0981a..25300772 100644 --- a/TESTING/EIG/sslect.f +++ b/TESTING/EIG/sslect.f @@ -22,8 +22,8 @@ *> *> SSLECT returns .TRUE. if the eigenvalue ZR+sqrt(-1)*ZI is to be *> selected, and otherwise it returns .FALSE. -*> It is used by SCHK41 to test if SGEES succesfully sorts eigenvalues, -*> and by SCHK43 to test if SGEESX succesfully sorts eigenvalues. +*> It is used by SCHK41 to test if SGEES successfully sorts eigenvalues, +*> and by SCHK43 to test if SGEESX successfully sorts eigenvalues. *> *> The common block /SSLCT/ controls how eigenvalues are selected. *> If SELOPT = 0, then SSLECT return .TRUE. when ZR is less than zero, diff --git a/TESTING/EIG/zchkgg.f b/TESTING/EIG/zchkgg.f index 5c554cae..1fa4b09a 100644 --- a/TESTING/EIG/zchkgg.f +++ b/TESTING/EIG/zchkgg.f @@ -68,7 +68,7 @@ *> and each type of matrix, one matrix will be generated and used *> to test the nonsymmetric eigenroutines. For each matrix, 13 *> tests will be performed. The first twelve "test ratios" should be -*> small -- O(1). They will be compared with the threshhold THRESH: +*> small -- O(1). They will be compared with the threshold THRESH: *> *> H *> (1) | A - U H V | / ( |A| n ulp ) @@ -128,7 +128,7 @@ *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp *> *> In addition, the normalization of L and R are checked, and compared -*> with the threshhold THRSHN. +*> with the threshold THRSHN. *> *> Test Matrices *> ---- -------- @@ -298,7 +298,7 @@ *> \param[in] THRSHN *> \verbatim *> THRSHN is DOUBLE PRECISION -*> Threshhold for reporting eigenvector normalization error. +*> Threshold for reporting eigenvector normalization error. *> If the normalization of any eigenvector differs from 1 by *> more than THRSHN*ulp, then a special error message will be *> printed. (This is handled separately from the other tests, diff --git a/TESTING/EIG/zdrges.f b/TESTING/EIG/zdrges.f index 6e10cb1e..6dc578dc 100644 --- a/TESTING/EIG/zdrges.f +++ b/TESTING/EIG/zdrges.f @@ -50,7 +50,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/zdrges3.f b/TESTING/EIG/zdrges3.f index 9a427739..7c43d6df 100644 --- a/TESTING/EIG/zdrges3.f +++ b/TESTING/EIG/zdrges3.f @@ -50,7 +50,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/zdrgev.f b/TESTING/EIG/zdrgev.f index 96727449..537191f3 100644 --- a/TESTING/EIG/zdrgev.f +++ b/TESTING/EIG/zdrgev.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from ZGGEV: *> diff --git a/TESTING/EIG/zdrgev3.f b/TESTING/EIG/zdrgev3.f index cc9526c3..ad19102c 100644 --- a/TESTING/EIG/zdrgev3.f +++ b/TESTING/EIG/zdrgev3.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from ZGGEV3: *> diff --git a/TESTING/EIG/zdrgsx.f b/TESTING/EIG/zdrgsx.f index 9b859e49..09393186 100644 --- a/TESTING/EIG/zdrgsx.f +++ b/TESTING/EIG/zdrgsx.f @@ -59,7 +59,7 @@ *> (need more details on what kind of read-in data are needed). *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH except for the tests (7) and (9): +*> compared with the threshold THRESH except for the tests (7) and (9): *> *> (1) | A - Q S Z' | / ( |A| n ulp ) *> diff --git a/TESTING/EIG/zdrgvx.f b/TESTING/EIG/zdrgvx.f index 452530fe..2d3f735e 100644 --- a/TESTING/EIG/zdrgvx.f +++ b/TESTING/EIG/zdrgvx.f @@ -49,7 +49,7 @@ *> corresponding the first and last eigenvalues are also know *> ``exactly'' (see ZLATM6). *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH. +*> compared with the threshold THRESH. *> *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of *> diff --git a/TESTING/EIG/zdrves.f b/TESTING/EIG/zdrves.f index d2657720..e89e9b6e 100644 --- a/TESTING/EIG/zdrves.f +++ b/TESTING/EIG/zdrves.f @@ -901,7 +901,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if W same no matter if VS computed (sort),', $ ' 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), $ ' type ', I2, ', test(', I2, ')=', G10.3 ) 9992 FORMAT( ' ZDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', diff --git a/TESTING/EIG/zdrvsx.f b/TESTING/EIG/zdrvsx.f index 742162eb..615dfb90 100644 --- a/TESTING/EIG/zdrvsx.f +++ b/TESTING/EIG/zdrvsx.f @@ -914,7 +914,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if W same no matter what else computed ', $ '(sort), 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', $ / ' 14 = 0 if RCONDE same no matter what else computed,', $ ' 1/ulp otherwise', / $ ' 15 = 0 if RCONDv same no matter what else computed,', diff --git a/TESTING/EIG/zdrvvx.f b/TESTING/EIG/zdrvvx.f index c9ea4e0d..f8881005 100644 --- a/TESTING/EIG/zdrvvx.f +++ b/TESTING/EIG/zdrvvx.f @@ -446,7 +446,7 @@ *> \verbatim *> INFO is INTEGER *> If 0, then successful exit. -*> If <0, then input paramter -INFO is incorrect. +*> If <0, then input parameter -INFO is incorrect. *> If >0, ZLATMR, CLATMS, CLATME or ZGET23 returned an error *> code, and INFO is its absolute value. *> diff --git a/TESTING/EIG/zlctes.f b/TESTING/EIG/zlctes.f index 1306180d..90bafdf2 100644 --- a/TESTING/EIG/zlctes.f +++ b/TESTING/EIG/zlctes.f @@ -25,7 +25,7 @@ *> eigenvalue is negative), and otherwise it returns .FALSE.. *> *> It is used by the test routine ZDRGES to test whether the driver -*> routine ZGGES succesfully sorts eigenvalues. +*> routine ZGGES successfully sorts eigenvalues. *> \endverbatim * * Arguments: diff --git a/TESTING/EIG/zslect.f b/TESTING/EIG/zslect.f index a01308db..2169bfdb 100644 --- a/TESTING/EIG/zslect.f +++ b/TESTING/EIG/zslect.f @@ -22,8 +22,8 @@ *> *> ZSLECT returns .TRUE. if the eigenvalue Z is to be selected, *> otherwise it returns .FALSE. -*> It is used by ZCHK41 to test if ZGEES succesfully sorts eigenvalues, -*> and by ZCHK43 to test if ZGEESX succesfully sorts eigenvalues. +*> It is used by ZCHK41 to test if ZGEES successfully sorts eigenvalues, +*> and by ZCHK43 to test if ZGEESX successfully sorts eigenvalues. *> *> The common block /SSLCT/ controls how eigenvalues are selected. *> If SELOPT = 0, then ZSLECT return .TRUE. when real(Z) is less than |