diff options
author | julie <julielangou@users.noreply.github.com> | 2011-04-07 13:53:54 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-04-07 13:53:54 +0000 |
commit | 16973f0c15a4327f8a78b9652f178246895778c1 (patch) | |
tree | 1d022faeffac8e1524f4f73517483f4cd828038d /SRC/cpstrf.f | |
parent | 8b5dd5433b205f27821b10d5389f55bcd4a1e87a (diff) | |
download | lapack-16973f0c15a4327f8a78b9652f178246895778c1.tar.gz lapack-16973f0c15a4327f8a78b9652f178246895778c1.tar.bz2 lapack-16973f0c15a4327f8a78b9652f178246895778c1.zip |
Second and hopefully last pass to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Please take a look and let me know if you find some old notation of transpose.
I am going to close bug0024.
Julie
Diffstat (limited to 'SRC/cpstrf.f')
-rw-r--r-- | SRC/cpstrf.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/cpstrf.f b/SRC/cpstrf.f index 9c958c43..d998d109 100644 --- a/SRC/cpstrf.f +++ b/SRC/cpstrf.f @@ -22,8 +22,8 @@ * pivoting of a complex Hermitian positive semidefinite matrix A. * * The factorization has the form -* P' * A * P = U' * U , if UPLO = 'U', -* P' * A * P = L * L', if UPLO = 'L', +* P**T * A * P = U**H * U , if UPLO = 'U', +* P**T * A * P = L * L**H, if UPLO = 'L', * where U is an upper triangular matrix and L is lower triangular, and * P is stored as vector PIV. * @@ -172,7 +172,7 @@ * IF( UPPER ) THEN * -* Compute the Cholesky factorization P' * A * P = U' * U +* Compute the Cholesky factorization P**T * A * P = U**H * U * DO 160 K = 1, N, NB * @@ -267,7 +267,7 @@ * ELSE * -* Compute the Cholesky factorization P' * A * P = L * L' +* Compute the Cholesky factorization P**T * A * P = L * L**H * DO 210 K = 1, N, NB * |