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/cpstf2.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/cpstf2.f')
-rw-r--r-- | SRC/cpstf2.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/cpstf2.f b/SRC/cpstf2.f index 3369ac87..4684c6c0 100644 --- a/SRC/cpstf2.f +++ b/SRC/cpstf2.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. * @@ -162,7 +162,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 150 J = 1, N * @@ -234,7 +234,7 @@ * ELSE * -* Compute the Cholesky factorization P' * A * P = L * L' +* Compute the Cholesky factorization P**T * A * P = L * L**H * DO 180 J = 1, N * |