diff options
Diffstat (limited to 'SRC/dpstf2.f')
-rw-r--r-- | SRC/dpstf2.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/dpstf2.f b/SRC/dpstf2.f index 35279a06..8d184b65 100644 --- a/SRC/dpstf2.f +++ b/SRC/dpstf2.f @@ -21,8 +21,8 @@ * pivoting of a real symmetric 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**T * U , if UPLO = 'U', +* P**T * A * P = L * L**T, if UPLO = 'L', * where U is an upper triangular matrix and L is lower triangular, and * P is stored as vector PIV. * @@ -161,7 +161,7 @@ * IF( UPPER ) THEN * -* Compute the Cholesky factorization P' * A * P = U' * U +* Compute the Cholesky factorization P**T * A * P = U**T * U * DO 130 J = 1, N * @@ -224,7 +224,7 @@ * ELSE * -* Compute the Cholesky factorization P' * A * P = L * L' +* Compute the Cholesky factorization P**T * A * P = L * L**T * DO 150 J = 1, N * |