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/clahef_aa.f | |
| parent | 1ac0f87e617d0d0164341892b9dea8a0dfb60582 (diff) | |
typos in comments.
Diffstat (limited to 'SRC/clahef_aa.f')
| -rw-r--r-- | SRC/clahef_aa.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/SRC/clahef_aa.f b/SRC/clahef_aa.f index 01e8f98c..38c469a8 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 |