summaryrefslogtreecommitdiff
path: root/TESTING
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2016-01-08 03:07:42 +0000
committerjulie <julielangou@users.noreply.github.com>2016-01-08 03:07:42 +0000
commit21c91533ffb3b82114b7b37a74bee5542b262815 (patch)
tree1b39458239f73272ad70eb9741ef4080ea43e198 /TESTING
parent198dd8994cfa67040a4e8250b537eb5dc78d2115 (diff)
downloadlapack-21c91533ffb3b82114b7b37a74bee5542b262815.tar.gz
lapack-21c91533ffb3b82114b7b37a74bee5542b262815.tar.bz2
lapack-21c91533ffb3b82114b7b37a74bee5542b262815.zip
Committing Sébastien Villemot patches (5) sent on Jan 6th 2016 to LAPACK Mailing list
From Sébastien Villemot: I attach to this message 5 patches that are currently applied to the Debian package for LAPACK, and that I think could be usefully merged in the LAPACK SVN tree. The patches include fixes for old outstanding bugs in the CBLAS test programs, fixes for the build system, and fixes for various typos. Each patch file contains a more detailed description of its purpose.
Diffstat (limited to 'TESTING')
-rw-r--r--TESTING/EIG/cchkgg.f6
-rw-r--r--TESTING/EIG/cdrges.f2
-rw-r--r--TESTING/EIG/cdrges3.f2
-rw-r--r--TESTING/EIG/cdrgev.f2
-rw-r--r--TESTING/EIG/cdrgev3.f2
-rw-r--r--TESTING/EIG/cdrgsx.f2
-rw-r--r--TESTING/EIG/cdrgvx.f2
-rw-r--r--TESTING/EIG/cdrves.f2
-rw-r--r--TESTING/EIG/cdrvsx.f2
-rw-r--r--TESTING/EIG/cdrvvx.f2
-rw-r--r--TESTING/EIG/clctes.f2
-rw-r--r--TESTING/EIG/cslect.f4
-rw-r--r--TESTING/EIG/dchkgg.f6
-rw-r--r--TESTING/EIG/ddrges.f2
-rw-r--r--TESTING/EIG/ddrges3.f2
-rw-r--r--TESTING/EIG/ddrgev.f2
-rw-r--r--TESTING/EIG/ddrgev3.f2
-rw-r--r--TESTING/EIG/ddrgsx.f2
-rw-r--r--TESTING/EIG/ddrgvx.f2
-rw-r--r--TESTING/EIG/ddrves.f2
-rw-r--r--TESTING/EIG/ddrvsx.f2
-rw-r--r--TESTING/EIG/ddrvvx.f2
-rw-r--r--TESTING/EIG/dlctes.f2
-rw-r--r--TESTING/EIG/dslect.f4
-rw-r--r--TESTING/EIG/schkgg.f6
-rw-r--r--TESTING/EIG/sdrges.f2
-rw-r--r--TESTING/EIG/sdrges3.f2
-rw-r--r--TESTING/EIG/sdrgev.f2
-rw-r--r--TESTING/EIG/sdrgev3.f2
-rw-r--r--TESTING/EIG/sdrgsx.f2
-rw-r--r--TESTING/EIG/sdrgvx.f2
-rw-r--r--TESTING/EIG/sdrves.f2
-rw-r--r--TESTING/EIG/sdrvsx.f2
-rw-r--r--TESTING/EIG/sdrvvx.f2
-rw-r--r--TESTING/EIG/slctes.f2
-rw-r--r--TESTING/EIG/sslect.f4
-rw-r--r--TESTING/EIG/zchkgg.f6
-rw-r--r--TESTING/EIG/zdrges.f2
-rw-r--r--TESTING/EIG/zdrges3.f2
-rw-r--r--TESTING/EIG/zdrgev.f2
-rw-r--r--TESTING/EIG/zdrgev3.f2
-rw-r--r--TESTING/EIG/zdrgsx.f2
-rw-r--r--TESTING/EIG/zdrgvx.f2
-rw-r--r--TESTING/EIG/zdrves.f2
-rw-r--r--TESTING/EIG/zdrvsx.f2
-rw-r--r--TESTING/EIG/zdrvvx.f2
-rw-r--r--TESTING/EIG/zlctes.f2
-rw-r--r--TESTING/EIG/zslect.f4
-rw-r--r--TESTING/LIN/Makefile2
-rw-r--r--TESTING/MATGEN/clatm2.f2
-rw-r--r--TESTING/MATGEN/clatm3.f2
-rw-r--r--TESTING/MATGEN/clatm5.f2
-rw-r--r--TESTING/MATGEN/dlatm2.f2
-rw-r--r--TESTING/MATGEN/dlatm3.f2
-rw-r--r--TESTING/MATGEN/dlatm5.f2
-rw-r--r--TESTING/MATGEN/slatm2.f2
-rw-r--r--TESTING/MATGEN/slatm3.f2
-rw-r--r--TESTING/MATGEN/slatm5.f2
-rw-r--r--TESTING/MATGEN/zlatm2.f2
-rw-r--r--TESTING/MATGEN/zlatm3.f2
-rw-r--r--TESTING/MATGEN/zlatm5.f2
-rw-r--r--TESTING/Makefile2
62 files changed, 76 insertions, 72 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
diff --git a/TESTING/LIN/Makefile b/TESTING/LIN/Makefile
index 09d514e5..9db8b38a 100644
--- a/TESTING/LIN/Makefile
+++ b/TESTING/LIN/Makefile
@@ -339,3 +339,5 @@ zchkaa.o: zchkaa.f
.f.o:
$(FORTRAN) $(OPTS) -c $< -o $@
+
+.NOTPARALLEL:
diff --git a/TESTING/MATGEN/clatm2.f b/TESTING/MATGEN/clatm2.f
index 588caaa4..096ff167 100644
--- a/TESTING/MATGEN/clatm2.f
+++ b/TESTING/MATGEN/clatm2.f
@@ -30,7 +30,7 @@
*> \verbatim
*>
*> CLATM2 returns the (I,J) entry of a random matrix of dimension
-*> (M, N) described by the other paramters. It is called by the
+*> (M, N) described by the other parameters. It is called by the
*> CLATMR routine in order to build random test matrices. No error
*> checking on parameters is done, because this routine is called in
*> a tight loop by CLATMR which has already checked the parameters.
diff --git a/TESTING/MATGEN/clatm3.f b/TESTING/MATGEN/clatm3.f
index d3073bef..a8664ab4 100644
--- a/TESTING/MATGEN/clatm3.f
+++ b/TESTING/MATGEN/clatm3.f
@@ -32,7 +32,7 @@
*> \verbatim
*>
*> CLATM3 returns the (ISUB,JSUB) entry of a random matrix of
-*> dimension (M, N) described by the other paramters. (ISUB,JSUB)
+*> dimension (M, N) described by the other parameters. (ISUB,JSUB)
*> is the final position of the (I,J) entry after pivoting
*> according to IPVTNG and IWORK. CLATM3 is called by the
*> CLATMR routine in order to build random test matrices. No error
diff --git a/TESTING/MATGEN/clatm5.f b/TESTING/MATGEN/clatm5.f
index 3f3eb956..41a2437e 100644
--- a/TESTING/MATGEN/clatm5.f
+++ b/TESTING/MATGEN/clatm5.f
@@ -48,7 +48,7 @@
*> \param[in] PRTYPE
*> \verbatim
*> PRTYPE is INTEGER
-*> "Points" to a certian type of the matrices to generate
+*> "Points" to a certain type of the matrices to generate
*> (see futher details).
*> \endverbatim
*>
diff --git a/TESTING/MATGEN/dlatm2.f b/TESTING/MATGEN/dlatm2.f
index 87ef4f42..d71b9663 100644
--- a/TESTING/MATGEN/dlatm2.f
+++ b/TESTING/MATGEN/dlatm2.f
@@ -30,7 +30,7 @@
*> \verbatim
*>
*> DLATM2 returns the (I,J) entry of a random matrix of dimension
-*> (M, N) described by the other paramters. It is called by the
+*> (M, N) described by the other parameters. It is called by the
*> DLATMR routine in order to build random test matrices. No error
*> checking on parameters is done, because this routine is called in
*> a tight loop by DLATMR which has already checked the parameters.
diff --git a/TESTING/MATGEN/dlatm3.f b/TESTING/MATGEN/dlatm3.f
index b2c49823..96f9516a 100644
--- a/TESTING/MATGEN/dlatm3.f
+++ b/TESTING/MATGEN/dlatm3.f
@@ -32,7 +32,7 @@
*> \verbatim
*>
*> DLATM3 returns the (ISUB,JSUB) entry of a random matrix of
-*> dimension (M, N) described by the other paramters. (ISUB,JSUB)
+*> dimension (M, N) described by the other parameters. (ISUB,JSUB)
*> is the final position of the (I,J) entry after pivoting
*> according to IPVTNG and IWORK. DLATM3 is called by the
*> DLATMR routine in order to build random test matrices. No error
diff --git a/TESTING/MATGEN/dlatm5.f b/TESTING/MATGEN/dlatm5.f
index 9c8ee380..76902b42 100644
--- a/TESTING/MATGEN/dlatm5.f
+++ b/TESTING/MATGEN/dlatm5.f
@@ -48,7 +48,7 @@
*> \param[in] PRTYPE
*> \verbatim
*> PRTYPE is INTEGER
-*> "Points" to a certian type of the matrices to generate
+*> "Points" to a certain type of the matrices to generate
*> (see futher details).
*> \endverbatim
*>
diff --git a/TESTING/MATGEN/slatm2.f b/TESTING/MATGEN/slatm2.f
index 88dcd649..75c0a6ca 100644
--- a/TESTING/MATGEN/slatm2.f
+++ b/TESTING/MATGEN/slatm2.f
@@ -30,7 +30,7 @@
*> \verbatim
*>
*> SLATM2 returns the (I,J) entry of a random matrix of dimension
-*> (M, N) described by the other paramters. It is called by the
+*> (M, N) described by the other parameters. It is called by the
*> SLATMR routine in order to build random test matrices. No error
*> checking on parameters is done, because this routine is called in
*> a tight loop by SLATMR which has already checked the parameters.
diff --git a/TESTING/MATGEN/slatm3.f b/TESTING/MATGEN/slatm3.f
index f90790cb..1a9dc730 100644
--- a/TESTING/MATGEN/slatm3.f
+++ b/TESTING/MATGEN/slatm3.f
@@ -32,7 +32,7 @@
*> \verbatim
*>
*> SLATM3 returns the (ISUB,JSUB) entry of a random matrix of
-*> dimension (M, N) described by the other paramters. (ISUB,JSUB)
+*> dimension (M, N) described by the other parameters. (ISUB,JSUB)
*> is the final position of the (I,J) entry after pivoting
*> according to IPVTNG and IWORK. SLATM3 is called by the
*> SLATMR routine in order to build random test matrices. No error
diff --git a/TESTING/MATGEN/slatm5.f b/TESTING/MATGEN/slatm5.f
index ce0540c1..c38b3e7a 100644
--- a/TESTING/MATGEN/slatm5.f
+++ b/TESTING/MATGEN/slatm5.f
@@ -48,7 +48,7 @@
*> \param[in] PRTYPE
*> \verbatim
*> PRTYPE is INTEGER
-*> "Points" to a certian type of the matrices to generate
+*> "Points" to a certain type of the matrices to generate
*> (see futher details).
*> \endverbatim
*>
diff --git a/TESTING/MATGEN/zlatm2.f b/TESTING/MATGEN/zlatm2.f
index 920e43e8..b977a7f4 100644
--- a/TESTING/MATGEN/zlatm2.f
+++ b/TESTING/MATGEN/zlatm2.f
@@ -30,7 +30,7 @@
*> \verbatim
*>
*> ZLATM2 returns the (I,J) entry of a random matrix of dimension
-*> (M, N) described by the other paramters. It is called by the
+*> (M, N) described by the other parameters. It is called by the
*> ZLATMR routine in order to build random test matrices. No error
*> checking on parameters is done, because this routine is called in
*> a tight loop by ZLATMR which has already checked the parameters.
diff --git a/TESTING/MATGEN/zlatm3.f b/TESTING/MATGEN/zlatm3.f
index 4c27ad3b..a79bf62b 100644
--- a/TESTING/MATGEN/zlatm3.f
+++ b/TESTING/MATGEN/zlatm3.f
@@ -32,7 +32,7 @@
*> \verbatim
*>
*> ZLATM3 returns the (ISUB,JSUB) entry of a random matrix of
-*> dimension (M, N) described by the other paramters. (ISUB,JSUB)
+*> dimension (M, N) described by the other parameters. (ISUB,JSUB)
*> is the final position of the (I,J) entry after pivoting
*> according to IPVTNG and IWORK. ZLATM3 is called by the
*> ZLATMR routine in order to build random test matrices. No error
diff --git a/TESTING/MATGEN/zlatm5.f b/TESTING/MATGEN/zlatm5.f
index 6b277268..5064fb7e 100644
--- a/TESTING/MATGEN/zlatm5.f
+++ b/TESTING/MATGEN/zlatm5.f
@@ -48,7 +48,7 @@
*> \param[in] PRTYPE
*> \verbatim
*> PRTYPE is INTEGER
-*> "Points" to a certian type of the matrices to generate
+*> "Points" to a certain type of the matrices to generate
*> (see futher details).
*> \endverbatim
*>
diff --git a/TESTING/Makefile b/TESTING/Makefile
index 9aaf07de..968a9a2b 100644
--- a/TESTING/Makefile
+++ b/TESTING/Makefile
@@ -582,3 +582,5 @@ FRCEIG:
FRC:
@FRC=$(FRC)
+
+.NOTPARALLEL: