From cc143e30456f56408054439ebe4e3f372519534a Mon Sep 17 00:00:00 2001 From: Ichitaro Yamazaki Date: Thu, 17 Nov 2016 14:28:04 -0500 Subject: [PATCH] typos in comments. --- SRC/chesv_aa.f | 8 ++++---- SRC/chetrf_aa.f | 6 +++--- SRC/chetrs_aa.f | 16 ++++++++-------- SRC/clahef_aa.f | 14 +++++++------- SRC/dlasyf_aa.f | 4 ++-- SRC/dsysv_aa.f | 6 ++++-- SRC/slasyf_aa.f | 10 +++++----- SRC/ssysv_aa.f | 8 ++++---- SRC/zhesv_aa.f | 4 ++-- SRC/zhetrf_aa.f | 6 +++--- SRC/zhetrs_aa.f | 14 +++++++------- SRC/zlahef_aa.f | 6 +++--- 12 files changed, 52 insertions(+), 50 deletions(-) diff --git a/SRC/chesv_aa.f b/SRC/chesv_aa.f index aae45e6..621ae1f 100644 --- a/SRC/chesv_aa.f +++ b/SRC/chesv_aa.f @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, -* LWORK, INFO ) +* LWORK, INFO ) * * .. Scalar Arguments .. * CHARACTER UPLO @@ -27,7 +27,7 @@ * .. * .. Array Arguments .. * INTEGER IPIV( * ) -* COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) +* COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. * * @@ -162,7 +162,7 @@ * * ===================================================================== SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, - $ LWORK, INFO ) + $ LWORK, INFO ) * * -- LAPACK driver routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -175,7 +175,7 @@ * .. * .. Array Arguments .. INTEGER IPIV( * ) - COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) + COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. * * ===================================================================== diff --git a/SRC/chetrf_aa.f b/SRC/chetrf_aa.f index 883e9f0..3dd7c03 100644 --- a/SRC/chetrf_aa.f +++ b/SRC/chetrf_aa.f @@ -37,7 +37,7 @@ *> CHETRF_AA computes the factorization of a complex hermitian matrix A *> using the Aasen's algorithm. The form of the factorization is *> -*> A = U*T*U**T or A = L*T*L**T +*> A = U*T*U**H or A = L*T*L**H *> *> where U (or L) is a product of permutation and unit upper (lower) *> triangular matrices, and T is a hermitian tridiagonal matrix. @@ -230,7 +230,7 @@ IF( UPPER ) THEN * * ..................................................... -* Factorize A as L*D*L**T using the upper triangle of A +* Factorize A as L*D*L**H using the upper triangle of A * ..................................................... * * copy first row A(1, 1:N) into H(1:n) (stored in WORK(1:N)) @@ -353,7 +353,7 @@ ELSE * * ..................................................... -* Factorize A as L*D*L**T using the lower triangle of A +* Factorize A as L*D*L**H using the lower triangle of A * ..................................................... * * copy first column A(1:N, 1) into H(1:N, 1) diff --git a/SRC/chetrs_aa.f b/SRC/chetrs_aa.f index 47d7825..11f19d6 100644 --- a/SRC/chetrs_aa.f +++ b/SRC/chetrs_aa.f @@ -27,7 +27,7 @@ * .. * .. Array Arguments .. * INTEGER IPIV( * ) -* COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) +* COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. * * @@ -36,9 +36,9 @@ *> *> \verbatim *> -*> CHETRS_AA solves a system of linear equations A*X = B with a real -*> hermitian matrix A using the factorization A = U*T*U**T or -*> A = L*T*L**T computed by CHETRF_AA. +*> CHETRS_AA solves a system of linear equations A*X = B with a complex +*> hermitian matrix A using the factorization A = U*T*U**H or +*> A = L*T*L**H computed by CHETRF_AA. *> \endverbatim * * Arguments: @@ -49,8 +49,8 @@ *> UPLO is CHARACTER*1 *> Specifies whether the details of the factorization are stored *> as an upper or lower triangular matrix. -*> = 'U': Upper triangular, form is A = U*T*U**T; -*> = 'L': Lower triangular, form is A = L*T*L**T. +*> = 'U': Upper triangular, form is A = U*T*U**H; +*> = 'L': Lower triangular, form is A = L*T*L**H. *> \endverbatim *> *> \param[in] N @@ -142,12 +142,12 @@ * .. * .. Array Arguments .. INTEGER IPIV( * ) - COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) + COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. * * ===================================================================== * - COMPLEX ONE + COMPLEX ONE PARAMETER ( ONE = 1.0E+0 ) * .. * .. Local Scalars .. diff --git a/SRC/clahef_aa.f b/SRC/clahef_aa.f index 01e8f98..38c469a 100644 --- a/SRC/clahef_aa.f +++ b/SRC/clahef_aa.f @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, -* H, LDH, WORK, INFO ) +* H, LDH, WORK, INFO ) * * .. Scalar Arguments .. * CHARACTER UPLO @@ -27,7 +27,7 @@ * .. * .. Array Arguments .. * INTEGER IPIV( * ) -* COMPLEX A( LDA, * ), H( LDH, * ), WORK( * ) +* COMPLEX A( LDA, * ), H( LDH, * ), WORK( * ) * .. * * @@ -36,7 +36,7 @@ *> *> \verbatim *> -*> DLATRF_AA factorizes a panel of a real hermitian matrix A using +*> CLAHEF_AA factorizes a panel of a complex hermitian matrix A using *> the Aasen's algorithm. The panel consists of a set of NB rows of A *> when UPLO is U, or a set of NB columns when UPLO is L. *> @@ -152,7 +152,7 @@ * * ===================================================================== SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, - $ H, LDH, WORK, INFO ) + $ H, LDH, WORK, INFO ) * * -- LAPACK computational routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -167,17 +167,17 @@ * .. * .. Array Arguments .. INTEGER IPIV( * ) - COMPLEX A( LDA, * ), H( LDH, * ), WORK( * ) + COMPLEX A( LDA, * ), H( LDH, * ), WORK( * ) * .. * * ===================================================================== * .. Parameters .. - COMPLEX ZERO, ONE + COMPLEX ZERO, ONE PARAMETER ( ZERO = (0.0E+0, 0.0E+0), ONE = (1.0E+0, 0.0E+0) ) * * .. Local Scalars .. INTEGER J, K, K1, I1, I2 - COMPLEX PIV, ALPHA + COMPLEX PIV, ALPHA * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/dlasyf_aa.f b/SRC/dlasyf_aa.f index cc0b80f..2f4b284 100644 --- a/SRC/dlasyf_aa.f +++ b/SRC/dlasyf_aa.f @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, -* H, LDH, WORK, INFO ) +* H, LDH, WORK, INFO ) * * .. Scalar Arguments .. * CHARACTER UPLO @@ -152,7 +152,7 @@ * * ===================================================================== SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, - $ H, LDH, WORK, INFO ) + $ H, LDH, WORK, INFO ) * * -- LAPACK computational routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsysv_aa.f b/SRC/dsysv_aa.f index 9f9969f..cb6b28e 100644 --- a/SRC/dsysv_aa.f +++ b/SRC/dsysv_aa.f @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, -* LWORK, INFO ) +* LWORK, INFO ) * * .. Scalar Arguments .. * CHARACTER UPLO @@ -156,11 +156,13 @@ * *> \date November 2016 * +* @precisions fortran d -> z c +* *> \ingroup doubleSYsolve * * ===================================================================== SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, - $ LWORK, INFO ) + $ LWORK, INFO ) * * -- LAPACK driver routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasyf_aa.f b/SRC/slasyf_aa.f index 953d574..55112ef 100644 --- a/SRC/slasyf_aa.f +++ b/SRC/slasyf_aa.f @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, -* H, LDH, WORK, INFO ) +* H, LDH, WORK, INFO ) * * .. Scalar Arguments .. * CHARACTER UPLO @@ -27,7 +27,7 @@ * .. * .. Array Arguments .. * INTEGER IPIV( * ) -* REAL A( LDA, * ), H( LDH, * ), WORK( * ) +* REAL A( LDA, * ), H( LDH, * ), WORK( * ) * .. * * @@ -152,7 +152,7 @@ * * ===================================================================== SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, - $ H, LDH, WORK, INFO ) + $ H, LDH, WORK, INFO ) * * -- LAPACK computational routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -167,7 +167,7 @@ * .. * .. Array Arguments .. INTEGER IPIV( * ) - REAL A( LDA, * ), H( LDH, * ), WORK( * ) + REAL A( LDA, * ), H( LDH, * ), WORK( * ) * .. * * ===================================================================== @@ -177,7 +177,7 @@ * * .. Local Scalars .. INTEGER J, K, K1, I1, I2 - REAL PIV, ALPHA + REAL PIV, ALPHA * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/ssysv_aa.f b/SRC/ssysv_aa.f index 52f6eb5..3dcc7cb 100644 --- a/SRC/ssysv_aa.f +++ b/SRC/ssysv_aa.f @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE SSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, -* LWORK, INFO ) +* LWORK, INFO ) * * .. Scalar Arguments .. * CHARACTER UPLO @@ -27,7 +27,7 @@ * .. * .. Array Arguments .. * INTEGER IPIV( * ) -* REAL A( LDA, * ), B( LDB, * ), WORK( * ) +* REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. * * @@ -160,7 +160,7 @@ * * ===================================================================== SUBROUTINE SSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, - $ LWORK, INFO ) + $ LWORK, INFO ) * * -- LAPACK driver routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -173,7 +173,7 @@ * .. * .. Array Arguments .. INTEGER IPIV( * ) - REAL A( LDA, * ), B( LDB, * ), WORK( * ) + REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. * * ===================================================================== diff --git a/SRC/zhesv_aa.f b/SRC/zhesv_aa.f index 5031454..285c971 100644 --- a/SRC/zhesv_aa.f +++ b/SRC/zhesv_aa.f @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, -* LWORK, INFO ) +* LWORK, INFO ) * * .. Scalar Arguments .. * CHARACTER UPLO @@ -162,7 +162,7 @@ * * ===================================================================== SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, - $ LWORK, INFO ) + $ LWORK, INFO ) * * -- LAPACK driver routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrf_aa.f b/SRC/zhetrf_aa.f index 73a8383..adaae91 100644 --- a/SRC/zhetrf_aa.f +++ b/SRC/zhetrf_aa.f @@ -37,7 +37,7 @@ *> ZHETRF_AA computes the factorization of a complex hermitian matrix A *> using the Aasen's algorithm. The form of the factorization is *> -*> A = U*T*U**T or A = L*T*L**T +*> A = U*T*U**H or A = L*T*L**H *> *> where U (or L) is a product of permutation and unit upper (lower) *> triangular matrices, and T is a hermitian tridiagonal matrix. @@ -230,7 +230,7 @@ IF( UPPER ) THEN * * ..................................................... -* Factorize A as L*D*L**T using the upper triangle of A +* Factorize A as L*D*L**H using the upper triangle of A * ..................................................... * * copy first row A(1, 1:N) into H(1:n) (stored in WORK(1:N)) @@ -353,7 +353,7 @@ ELSE * * ..................................................... -* Factorize A as L*D*L**T using the lower triangle of A +* Factorize A as L*D*L**H using the lower triangle of A * ..................................................... * * copy first column A(1:N, 1) into H(1:N, 1) diff --git a/SRC/zhetrs_aa.f b/SRC/zhetrs_aa.f index fd819d5..e5487ff 100644 --- a/SRC/zhetrs_aa.f +++ b/SRC/zhetrs_aa.f @@ -27,7 +27,7 @@ * .. * .. Array Arguments .. * INTEGER IPIV( * ) -* COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) +* COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. * * @@ -37,8 +37,8 @@ *> *> \verbatim *> -*> ZHETRS_AA solves a system of linear equations A*X = B with a real -*> hermitian matrix A using the factorization A = U*T*U**T or +*> ZHETRS_AA solves a system of linear equations A*X = B with a complex +*> hermitian matrix A using the factorization A = U*T*U**H or *> A = L*T*L**T computed by ZHETRF_AA. *> \endverbatim * @@ -50,8 +50,8 @@ *> UPLO is CHARACTER*1 *> Specifies whether the details of the factorization are stored *> as an upper or lower triangular matrix. -*> = 'U': Upper triangular, form is A = U*T*U**T; -*> = 'L': Lower triangular, form is A = L*T*L**T. +*> = 'U': Upper triangular, form is A = U*T*U**H; +*> = 'L': Lower triangular, form is A = L*T*L**H. *> \endverbatim *> *> \param[in] N @@ -143,12 +143,12 @@ * .. * .. Array Arguments .. INTEGER IPIV( * ) - COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) + COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. * * ===================================================================== * - COMPLEX*16 ONE + COMPLEX*16 ONE PARAMETER ( ONE = 1.0D+0 ) * .. * .. Local Scalars .. diff --git a/SRC/zlahef_aa.f b/SRC/zlahef_aa.f index 45d1b67..8e431ee 100644 --- a/SRC/zlahef_aa.f +++ b/SRC/zlahef_aa.f @@ -19,7 +19,7 @@ * =========== * * SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, -* H, LDH, WORK, INFO ) +* H, LDH, WORK, INFO ) * * .. Scalar Arguments .. * CHARACTER UPLO @@ -36,7 +36,7 @@ *> *> \verbatim *> -*> DLATRF_AA factorizes a panel of a real hermitian matrix A using +*> DLAHEF_AA factorizes a panel of a complex hermitian matrix A using *> the Aasen's algorithm. The panel consists of a set of NB rows of A *> when UPLO is U, or a set of NB columns when UPLO is L. *> @@ -152,7 +152,7 @@ * * ===================================================================== SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, - $ H, LDH, WORK, INFO ) + $ H, LDH, WORK, INFO ) * * -- LAPACK computational routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- -- 2.7.4