aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlangou <julien.langou@ucdenver.edu>2016-12-29 21:26:48 +0100
committerGitHub <noreply@github.com>2016-12-29 21:26:48 +0100
commit663bdbf4e150d521ac0bee4a125e28715d70e714 (patch)
treec89d48cd14c7721811fd1c7197b729a72221e1ac
parent7ca543cf4361480238f4b67ad1ac4269fb617e0e (diff)
parent6c3b79b35e83df36e30bd2ceadc9b927a3287740 (diff)
downloadlapack-663bdbf4e150d521ac0bee4a125e28715d70e714.tar.gz
Merge pull request #104 from sebastien-villemot/master
Patches applied to Debian package for LAPACK 3.7.0
-rw-r--r--SRC/cgejsv.f2
-rw-r--r--SRC/checon_3.f2
-rw-r--r--SRC/chetri_3.f2
-rw-r--r--SRC/chetri_3x.f2
-rw-r--r--SRC/chetrs_3.f2
-rw-r--r--SRC/csycon_3.f2
-rw-r--r--SRC/csyconvf.f2
-rw-r--r--SRC/csyconvf_rook.f2
-rw-r--r--SRC/csytri_3.f2
-rw-r--r--SRC/csytri_3x.f2
-rw-r--r--SRC/csytrs_3.f2
-rw-r--r--SRC/dlarrb.f2
-rw-r--r--SRC/dsycon_3.f2
-rw-r--r--SRC/dsyconvf.f2
-rw-r--r--SRC/dsyconvf_rook.f2
-rw-r--r--SRC/dsytri_3.f2
-rw-r--r--SRC/dsytri_3x.f2
-rw-r--r--SRC/dsytrs_3.f2
-rw-r--r--SRC/slarrb.f2
-rw-r--r--SRC/ssycon_3.f2
-rw-r--r--SRC/ssyconvf.f2
-rw-r--r--SRC/ssyconvf_rook.f2
-rw-r--r--SRC/ssytri_3.f2
-rw-r--r--SRC/ssytri_3x.f2
-rw-r--r--SRC/ssytrs_3.f2
-rw-r--r--SRC/zgejsv.f4
-rw-r--r--SRC/zhecon_3.f2
-rw-r--r--SRC/zhetri_3.f2
-rw-r--r--SRC/zhetri_3x.f2
-rw-r--r--SRC/zhetrs_3.f2
-rw-r--r--SRC/zsycon_3.f2
-rw-r--r--SRC/zsyconvf.f2
-rw-r--r--SRC/zsyconvf_rook.f2
-rw-r--r--SRC/zsytri_3.f2
-rw-r--r--SRC/zsytri_3x.f2
-rw-r--r--SRC/zsytrs_3.f2
-rw-r--r--TESTING/LIN/chet01_3.f2
-rw-r--r--TESTING/LIN/csyt01_3.f2
-rw-r--r--TESTING/LIN/dsyt01_3.f2
-rw-r--r--TESTING/LIN/ssyt01_3.f2
-rw-r--r--TESTING/LIN/zhet01_3.f2
-rw-r--r--TESTING/LIN/zsyt01_3.f2
-rwxr-xr-xlapack_testing.py18
43 files changed, 52 insertions, 52 deletions
diff --git a/SRC/cgejsv.f b/SRC/cgejsv.f
index ceff5e6b..28804e76 100644
--- a/SRC/cgejsv.f
+++ b/SRC/cgejsv.f
@@ -424,7 +424,7 @@
*> then LRWORK = max( 7, 2 * M ).
*> 4.2. Otherwise, LRWORK = max( 7, N ).
*>
-*> If, on entry, LRWORK = -1 ot LWORK=-1, a workspace query is assumed and
+*> If, on entry, LRWORK = -1 or LWORK=-1, a workspace query is assumed and
*> the length of RWORK is returned in RWORK(1).
*> \endverbatim
*>
diff --git a/SRC/checon_3.f b/SRC/checon_3.f
index 9f3eae1b..8b18dacd 100644
--- a/SRC/checon_3.f
+++ b/SRC/checon_3.f
@@ -95,7 +95,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/chetri_3.f b/SRC/chetri_3.f
index d72fa43a..8f1527db 100644
--- a/SRC/chetri_3.f
+++ b/SRC/chetri_3.f
@@ -102,7 +102,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/chetri_3x.f b/SRC/chetri_3x.f
index f7701544..c8fc3d9c 100644
--- a/SRC/chetri_3x.f
+++ b/SRC/chetri_3x.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i), i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/chetrs_3.f b/SRC/chetrs_3.f
index 3568a1be..ade0a156 100644
--- a/SRC/chetrs_3.f
+++ b/SRC/chetrs_3.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/csycon_3.f b/SRC/csycon_3.f
index d01d4e18..a1ff812b 100644
--- a/SRC/csycon_3.f
+++ b/SRC/csycon_3.f
@@ -95,7 +95,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/csyconvf.f b/SRC/csyconvf.f
index 0cc83cfb..0e843c3f 100644
--- a/SRC/csyconvf.f
+++ b/SRC/csyconvf.f
@@ -45,7 +45,7 @@
*> If parameter WAY = 'R':
*> CSYCONVF performs the conversion in reverse direction, i.e.
*> converts the factorization output format used in CSYTRF_RK
-*> (or CSYTRF_BK) provided on entry in parametes A and E into
+*> (or CSYTRF_BK) provided on entry in parameters A and E into
*> the factorization output format used in CSYTRF that is stored
*> on exit in parameter A. It also coverts in place details of
*> the intechanges stored in IPIV from the format used in CSYTRF_RK
diff --git a/SRC/csyconvf_rook.f b/SRC/csyconvf_rook.f
index bb6edad7..7a8ba601 100644
--- a/SRC/csyconvf_rook.f
+++ b/SRC/csyconvf_rook.f
@@ -44,7 +44,7 @@
*> If parameter WAY = 'R':
*> CSYCONVF_ROOK performs the conversion in reverse direction, i.e.
*> converts the factorization output format used in CSYTRF_RK
-*> (or CSYTRF_BK) provided on entry in parametes A and E into
+*> (or CSYTRF_BK) provided on entry in parameters A and E into
*> the factorization output format used in CSYTRF_ROOK that is stored
*> on exit in parameter A. IPIV format for CSYTRF_ROOK and
*> CSYTRF_RK (or CSYTRF_BK) is the same and is not converted.
diff --git a/SRC/csytri_3.f b/SRC/csytri_3.f
index e9d26927..43abc6a7 100644
--- a/SRC/csytri_3.f
+++ b/SRC/csytri_3.f
@@ -102,7 +102,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/csytri_3x.f b/SRC/csytri_3x.f
index a1105011..2865839f 100644
--- a/SRC/csytri_3x.f
+++ b/SRC/csytri_3x.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i), i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/csytrs_3.f b/SRC/csytrs_3.f
index 578116b2..b0e868e1 100644
--- a/SRC/csytrs_3.f
+++ b/SRC/csytrs_3.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/dlarrb.f b/SRC/dlarrb.f
index 68d6ade9..2733922f 100644
--- a/SRC/dlarrb.f
+++ b/SRC/dlarrb.f
@@ -107,7 +107,7 @@
*> \verbatim
*> W is DOUBLE PRECISION array, dimension (N)
*> On input, W( IFIRST-OFFSET ) through W( ILAST-OFFSET ) are
-*> estimates of the eigenvalues of L D L^T indexed IFIRST throug
+*> estimates of the eigenvalues of L D L^T indexed IFIRST through
*> ILAST.
*> On output, these estimates are refined.
*> \endverbatim
diff --git a/SRC/dsycon_3.f b/SRC/dsycon_3.f
index 0c3f696f..5802aa83 100644
--- a/SRC/dsycon_3.f
+++ b/SRC/dsycon_3.f
@@ -95,7 +95,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/dsyconvf.f b/SRC/dsyconvf.f
index 7672acfa..673360fd 100644
--- a/SRC/dsyconvf.f
+++ b/SRC/dsyconvf.f
@@ -45,7 +45,7 @@
*> If parameter WAY = 'R':
*> DSYCONVF performs the conversion in reverse direction, i.e.
*> converts the factorization output format used in DSYTRF_RK
-*> (or DSYTRF_BK) provided on entry in parametes A and E into
+*> (or DSYTRF_BK) provided on entry in parameters A and E into
*> the factorization output format used in DSYTRF that is stored
*> on exit in parameter A. It also coverts in place details of
*> the intechanges stored in IPIV from the format used in DSYTRF_RK
diff --git a/SRC/dsyconvf_rook.f b/SRC/dsyconvf_rook.f
index 541a342d..2d163703 100644
--- a/SRC/dsyconvf_rook.f
+++ b/SRC/dsyconvf_rook.f
@@ -44,7 +44,7 @@
*> If parameter WAY = 'R':
*> DSYCONVF_ROOK performs the conversion in reverse direction, i.e.
*> converts the factorization output format used in DSYTRF_RK
-*> (or DSYTRF_BK) provided on entry in parametes A and E into
+*> (or DSYTRF_BK) provided on entry in parameters A and E into
*> the factorization output format used in DSYTRF_ROOK that is stored
*> on exit in parameter A. IPIV format for DSYTRF_ROOK and
*> DSYTRF_RK (or DSYTRF_BK) is the same and is not converted.
diff --git a/SRC/dsytri_3.f b/SRC/dsytri_3.f
index f177bec2..3437e141 100644
--- a/SRC/dsytri_3.f
+++ b/SRC/dsytri_3.f
@@ -102,7 +102,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/dsytri_3x.f b/SRC/dsytri_3x.f
index 83ad1d12..fecde38f 100644
--- a/SRC/dsytri_3x.f
+++ b/SRC/dsytri_3x.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i), i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/dsytrs_3.f b/SRC/dsytrs_3.f
index d0d303a9..85c09e01 100644
--- a/SRC/dsytrs_3.f
+++ b/SRC/dsytrs_3.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/slarrb.f b/SRC/slarrb.f
index bc0e8196..c2d130b5 100644
--- a/SRC/slarrb.f
+++ b/SRC/slarrb.f
@@ -107,7 +107,7 @@
*> \verbatim
*> W is REAL array, dimension (N)
*> On input, W( IFIRST-OFFSET ) through W( ILAST-OFFSET ) are
-*> estimates of the eigenvalues of L D L^T indexed IFIRST throug
+*> estimates of the eigenvalues of L D L^T indexed IFIRST through
*> ILAST.
*> On output, these estimates are refined.
*> \endverbatim
diff --git a/SRC/ssycon_3.f b/SRC/ssycon_3.f
index 21b2ece4..74f6761e 100644
--- a/SRC/ssycon_3.f
+++ b/SRC/ssycon_3.f
@@ -95,7 +95,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/ssyconvf.f b/SRC/ssyconvf.f
index 32b53e1e..b9069093 100644
--- a/SRC/ssyconvf.f
+++ b/SRC/ssyconvf.f
@@ -45,7 +45,7 @@
*> If parameter WAY = 'R':
*> SSYCONVF performs the conversion in reverse direction, i.e.
*> converts the factorization output format used in SSYTRF_RK
-*> (or SSYTRF_BK) provided on entry in parametes A and E into
+*> (or SSYTRF_BK) provided on entry in parameters A and E into
*> the factorization output format used in SSYTRF that is stored
*> on exit in parameter A. It also coverts in place details of
*> the intechanges stored in IPIV from the format used in SSYTRF_RK
diff --git a/SRC/ssyconvf_rook.f b/SRC/ssyconvf_rook.f
index 5b184c9e..1ed5774f 100644
--- a/SRC/ssyconvf_rook.f
+++ b/SRC/ssyconvf_rook.f
@@ -44,7 +44,7 @@
*> If parameter WAY = 'R':
*> SSYCONVF_ROOK performs the conversion in reverse direction, i.e.
*> converts the factorization output format used in SSYTRF_RK
-*> (or SSYTRF_BK) provided on entry in parametes A and E into
+*> (or SSYTRF_BK) provided on entry in parameters A and E into
*> the factorization output format used in SSYTRF_ROOK that is stored
*> on exit in parameter A. IPIV format for SSYTRF_ROOK and
*> SSYTRF_RK (or SSYTRF_BK) is the same and is not converted.
diff --git a/SRC/ssytri_3.f b/SRC/ssytri_3.f
index 01245e60..e1ef66ee 100644
--- a/SRC/ssytri_3.f
+++ b/SRC/ssytri_3.f
@@ -102,7 +102,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/ssytri_3x.f b/SRC/ssytri_3x.f
index 237c79b7..09c9f939 100644
--- a/SRC/ssytri_3x.f
+++ b/SRC/ssytri_3x.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i), i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/ssytrs_3.f b/SRC/ssytrs_3.f
index c54ae28c..bf565704 100644
--- a/SRC/ssytrs_3.f
+++ b/SRC/ssytrs_3.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/zgejsv.f b/SRC/zgejsv.f
index ebc8183f..fcf07351 100644
--- a/SRC/zgejsv.f
+++ b/SRC/zgejsv.f
@@ -339,7 +339,7 @@
*> the minimal requirement is LWORK >= 5*N+2*N*N.
*> 4.2. if JOBV.EQ.'J' the minimal requirement is
*> LWORK >= 4*N+N*N.
-*> In both cases, the allocated CWORK can accomodate blocked runs
+*> In both cases, the allocated CWORK can accommodate blocked runs
*> of ZGEQP3, ZGEQRF, ZGELQF, SUNMQR, ZUNMLQ.
*>
*> If the call to ZGEJSV is a workspace query (indicated by LWORK=-1 or
@@ -423,7 +423,7 @@
*> then LRWORK = max( 7, 2 * M ).
*> 4.2. Otherwise, LRWORK = max( 7, N ).
*>
-*> If, on entry, LRWORK = -1 ot LWORK=-1, a workspace query is assumed and
+*> If, on entry, LRWORK = -1 or LWORK=-1, a workspace query is assumed and
*> the length of RWORK is returned in RWORK(1).
*> \endverbatim
*>
diff --git a/SRC/zhecon_3.f b/SRC/zhecon_3.f
index ef3423ec..db93f6d9 100644
--- a/SRC/zhecon_3.f
+++ b/SRC/zhecon_3.f
@@ -95,7 +95,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/zhetri_3.f b/SRC/zhetri_3.f
index d2933808..69d6e0b8 100644
--- a/SRC/zhetri_3.f
+++ b/SRC/zhetri_3.f
@@ -102,7 +102,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/zhetri_3x.f b/SRC/zhetri_3x.f
index 16a4324e..8be104cb 100644
--- a/SRC/zhetri_3x.f
+++ b/SRC/zhetri_3x.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i), i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/zhetrs_3.f b/SRC/zhetrs_3.f
index d3a55e12..a73f51b4 100644
--- a/SRC/zhetrs_3.f
+++ b/SRC/zhetrs_3.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/zsycon_3.f b/SRC/zsycon_3.f
index 8031277e..f279f3c6 100644
--- a/SRC/zsycon_3.f
+++ b/SRC/zsycon_3.f
@@ -95,7 +95,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/zsyconvf.f b/SRC/zsyconvf.f
index b49a6a1a..5bd93199 100644
--- a/SRC/zsyconvf.f
+++ b/SRC/zsyconvf.f
@@ -45,7 +45,7 @@
*> If parameter WAY = 'R':
*> ZSYCONVF performs the conversion in reverse direction, i.e.
*> converts the factorization output format used in ZSYTRF_RK
-*> (or ZSYTRF_BK) provided on entry in parametes A and E into
+*> (or ZSYTRF_BK) provided on entry in parameters A and E into
*> the factorization output format used in ZSYTRF that is stored
*> on exit in parameter A. It also coverts in place details of
*> the intechanges stored in IPIV from the format used in ZSYTRF_RK
diff --git a/SRC/zsyconvf_rook.f b/SRC/zsyconvf_rook.f
index 182acfb7..daddd260 100644
--- a/SRC/zsyconvf_rook.f
+++ b/SRC/zsyconvf_rook.f
@@ -44,7 +44,7 @@
*> If parameter WAY = 'R':
*> ZSYCONVF_ROOK performs the conversion in reverse direction, i.e.
*> converts the factorization output format used in ZSYTRF_RK
-*> (or ZSYTRF_BK) provided on entry in parametes A and E into
+*> (or ZSYTRF_BK) provided on entry in parameters A and E into
*> the factorization output format used in ZSYTRF_ROOK that is stored
*> on exit in parameter A. IPIV format for ZSYTRF_ROOK and
*> ZSYTRF_RK (or ZSYTRF_BK) is the same and is not converted.
diff --git a/SRC/zsytri_3.f b/SRC/zsytri_3.f
index fba41f52..99d771a8 100644
--- a/SRC/zsytri_3.f
+++ b/SRC/zsytri_3.f
@@ -102,7 +102,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/zsytri_3x.f b/SRC/zsytri_3x.f
index 8638f91e..7f999e06 100644
--- a/SRC/zsytri_3x.f
+++ b/SRC/zsytri_3x.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i), i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/SRC/zsytrs_3.f b/SRC/zsytrs_3.f
index 235f9118..dab36135 100644
--- a/SRC/zsytrs_3.f
+++ b/SRC/zsytrs_3.f
@@ -99,7 +99,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*>
*> NOTE: For 1-by-1 diagonal block D(k), where
diff --git a/TESTING/LIN/chet01_3.f b/TESTING/LIN/chet01_3.f
index 8967329e..3e08c094 100644
--- a/TESTING/LIN/chet01_3.f
+++ b/TESTING/LIN/chet01_3.f
@@ -92,7 +92,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*> \endverbatim
*>
diff --git a/TESTING/LIN/csyt01_3.f b/TESTING/LIN/csyt01_3.f
index 17d84b9c..9d4ed77a 100644
--- a/TESTING/LIN/csyt01_3.f
+++ b/TESTING/LIN/csyt01_3.f
@@ -92,7 +92,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*> \endverbatim
*>
diff --git a/TESTING/LIN/dsyt01_3.f b/TESTING/LIN/dsyt01_3.f
index 5735a2ad..5eabb05f 100644
--- a/TESTING/LIN/dsyt01_3.f
+++ b/TESTING/LIN/dsyt01_3.f
@@ -91,7 +91,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*> \endverbatim
*>
diff --git a/TESTING/LIN/ssyt01_3.f b/TESTING/LIN/ssyt01_3.f
index 4ad8bbda..f370962c 100644
--- a/TESTING/LIN/ssyt01_3.f
+++ b/TESTING/LIN/ssyt01_3.f
@@ -91,7 +91,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*> \endverbatim
*>
diff --git a/TESTING/LIN/zhet01_3.f b/TESTING/LIN/zhet01_3.f
index 38325373..3499868c 100644
--- a/TESTING/LIN/zhet01_3.f
+++ b/TESTING/LIN/zhet01_3.f
@@ -92,7 +92,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the Hermitian block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*> \endverbatim
*>
diff --git a/TESTING/LIN/zsyt01_3.f b/TESTING/LIN/zsyt01_3.f
index ab2fbdfe..89229407 100644
--- a/TESTING/LIN/zsyt01_3.f
+++ b/TESTING/LIN/zsyt01_3.f
@@ -92,7 +92,7 @@
*> On entry, contains the superdiagonal (or subdiagonal)
*> elements of the symmetric block diagonal matrix D
*> with 1-by-1 or 2-by-2 diagonal blocks, where
-*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;
+*> If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
*> If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
*> \endverbatim
*>
diff --git a/lapack_testing.py b/lapack_testing.py
index a3d05a95..70783fee 100755
--- a/lapack_testing.py
+++ b/lapack_testing.py
@@ -197,16 +197,16 @@ else:
range_prec=list(range(4))
if test=='lin':
- range_test=[15]
-elif test=='mixed':
range_test=[16]
+elif test=='mixed':
+ range_test=[17]
range_prec=[1,3]
elif test=='rfp':
- range_test=[17]
+ range_test=[18]
elif test=='eig':
- range_test=list(range(15))
+ range_test=list(range(16))
else:
- range_test=list(range(18))
+ range_test=list(range(19))
list_results = [
[0, 0, 0, 0, 0],
@@ -250,18 +250,18 @@ for dtype in range_prec:
for dtest in range_test:
nb_of_test=0
# NEED TO SKIP SOME PRECISION (namely s and c) FOR PROTO MIXED PRECISION TESTING
- if dtest==16 and (letter=="s" or letter=="c"):
+ if dtest==17 and (letter=="s" or letter=="c"):
continue
if (with_file==1):
cmdbase=dtests[2][dtest]+".out"
else:
- if dtest==15:
+ if dtest==16:
# LIN TESTS
cmdbase="xlintst"+letter+" < "+dtests[0][dtest]+".in > "+dtests[2][dtest]+".out"
- elif dtest==16:
+ elif dtest==17:
# PROTO LIN TESTS
cmdbase="xlintst"+letter+dtypes[0][dtype-1]+" < "+dtests[0][dtest]+".in > "+dtests[2][dtest]+".out"
- elif dtest==17:
+ elif dtest==18:
# PROTO LIN TESTS
cmdbase="xlintstrf"+letter+" < "+dtests[0][dtest]+".in > "+dtests[2][dtest]+".out"
else: