Description: Fix various typos Author: Sébastien Villemot Forwarded: https://github.com/Reference-LAPACK/lapack/pull/104 Applied-Upstream: https://github.com/Reference-LAPACK/lapack/commit/c77258510e861765109d99270f54fecd583a0301 Last-Update: 2016-12-29 --- This patch header follows DEP-3: http://dep.debian.net/deps/dep3/ --- 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 --- 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 --- 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 *> --- 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 *> --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 *> --- 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 *> --- 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 *> --- 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 *> --- 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 *> --- 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 *> --- 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 --- 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. --- 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 --- 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. --- 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 --- 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. --- 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 --- 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.