diff options
author | Sébastien Villemot <sebastien@debian.org> | 2016-12-29 16:41:28 +0100 |
---|---|---|
committer | Sébastien Villemot <sebastien@debian.org> | 2016-12-29 16:41:28 +0100 |
commit | c77258510e861765109d99270f54fecd583a0301 (patch) | |
tree | 8732540562d8fcdc5dde8907e836ed0601dc78f1 | |
parent | 94a68a2937b4b3769aca5281dd4d588b36f1e42c (diff) | |
download | lapack-c77258510e861765109d99270f54fecd583a0301.tar.gz lapack-c77258510e861765109d99270f54fecd583a0301.tar.bz2 lapack-c77258510e861765109d99270f54fecd583a0301.zip |
Fix various typos.
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 *> |