diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-04-02 11:08:56 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-04-02 11:08:56 +0000 |
| commit | f2953573ede24d7f8c01fdb18de48f65f00a9943 (patch) | |
| tree | 53172aa9083b9aa1abe2d6c130f7c173d8d8725b /SRC/cpotf2.f | |
| parent | 53b71f5605f83d116ab6bcf477bfb6d2ca757de1 (diff) | |
First pass to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Diffstat (limited to 'SRC/cpotf2.f')
| -rw-r--r-- | SRC/cpotf2.f | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/SRC/cpotf2.f b/SRC/cpotf2.f index f15d8d04..49d31d89 100644 --- a/SRC/cpotf2.f +++ b/SRC/cpotf2.f @@ -20,8 +20,8 @@ * positive definite matrix A. * * The factorization has the form -* A = U' * U , if UPLO = 'U', or -* A = L * L', if UPLO = 'L', +* A = U**H * U , if UPLO = 'U', or +* A = L * L**H, if UPLO = 'L', * where U is an upper triangular matrix and L is lower triangular. * * This is the unblocked version of the algorithm, calling Level 2 BLAS. @@ -48,7 +48,7 @@ * triangular part of A is not referenced. * * On exit, if INFO = 0, the factor U or L from the Cholesky -* factorization A = U'*U or A = L*L'. +* factorization A = U**H *U or A = L*L**H. * * LDA (input) INTEGER * The leading dimension of the array A. LDA >= max(1,N). @@ -109,7 +109,7 @@ * IF( UPPER ) THEN * -* Compute the Cholesky factorization A = U'*U. +* Compute the Cholesky factorization A = U**H *U. * DO 10 J = 1, N * @@ -136,7 +136,7 @@ 10 CONTINUE ELSE * -* Compute the Cholesky factorization A = L*L'. +* Compute the Cholesky factorization A = L*L**H. * DO 20 J = 1, N * |