diff options
author | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-17 14:28:04 -0500 |
---|---|---|
committer | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-17 14:28:04 -0500 |
commit | cc143e30456f56408054439ebe4e3f372519534a (patch) | |
tree | c25b922daa7dd9f20e112a3a1f96696ee00765ee /SRC/zhetrs_aa.f | |
parent | 1ac0f87e617d0d0164341892b9dea8a0dfb60582 (diff) |
typos in comments.
Diffstat (limited to 'SRC/zhetrs_aa.f')
-rw-r--r-- | SRC/zhetrs_aa.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/SRC/zhetrs_aa.f b/SRC/zhetrs_aa.f index fd819d5a..e5487ff4 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 .. |