From c77258510e861765109d99270f54fecd583a0301 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= Date: Thu, 29 Dec 2016 16:41:28 +0100 Subject: Fix various typos. --- SRC/cgejsv.f | 2 +- SRC/checon_3.f | 2 +- SRC/chetri_3.f | 2 +- SRC/chetri_3x.f | 2 +- SRC/chetrs_3.f | 2 +- SRC/csycon_3.f | 2 +- SRC/csyconvf.f | 2 +- SRC/csyconvf_rook.f | 2 +- SRC/csytri_3.f | 2 +- SRC/csytri_3x.f | 2 +- SRC/csytrs_3.f | 2 +- SRC/dlarrb.f | 2 +- SRC/dsycon_3.f | 2 +- SRC/dsyconvf.f | 2 +- SRC/dsyconvf_rook.f | 2 +- SRC/dsytri_3.f | 2 +- SRC/dsytri_3x.f | 2 +- SRC/dsytrs_3.f | 2 +- SRC/slarrb.f | 2 +- SRC/ssycon_3.f | 2 +- SRC/ssyconvf.f | 2 +- SRC/ssyconvf_rook.f | 2 +- SRC/ssytri_3.f | 2 +- SRC/ssytri_3x.f | 2 +- SRC/ssytrs_3.f | 2 +- SRC/zgejsv.f | 4 ++-- SRC/zhecon_3.f | 2 +- SRC/zhetri_3.f | 2 +- SRC/zhetri_3x.f | 2 +- SRC/zhetrs_3.f | 2 +- SRC/zsycon_3.f | 2 +- SRC/zsyconvf.f | 2 +- SRC/zsyconvf_rook.f | 2 +- SRC/zsytri_3.f | 2 +- SRC/zsytri_3x.f | 2 +- SRC/zsytrs_3.f | 2 +- TESTING/LIN/chet01_3.f | 2 +- TESTING/LIN/csyt01_3.f | 2 +- TESTING/LIN/dsyt01_3.f | 2 +- TESTING/LIN/ssyt01_3.f | 2 +- TESTING/LIN/zhet01_3.f | 2 +- TESTING/LIN/zsyt01_3.f | 2 +- 42 files changed, 43 insertions(+), 43 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 *> -- cgit v1.2.3 From 6c3b79b35e83df36e30bd2ceadc9b927a3287740 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= Date: Thu, 29 Dec 2016 16:41:54 +0100 Subject: Fix -r option of lapack_testing.py. The numbering of tests had been broken in commit ed4e95e4. --- lapack_testing.py | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) 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: -- cgit v1.2.3