diff options
| author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-07-17 09:01:45 +0000 |
|---|---|---|
| committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-07-17 09:01:45 +0000 |
| commit | 8a4a5ccc1ecec7966779696e79d492a604521870 (patch) | |
| tree | 515c451acfde913e0c660b86797eafb107464043 /SRC | |
| parent | 4b6a6b3b23785efb93d48e925f0342ae54884f32 (diff) | |
| download | lapack-8a4a5ccc1ecec7966779696e79d492a604521870.tar.gz lapack-8a4a5ccc1ecec7966779696e79d492a604521870.tar.bz2 lapack-8a4a5ccc1ecec7966779696e79d492a604521870.zip | |
Fixed comments on factorization in refinement routines. Found when coding in C++
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/chesvxx.f | 2 | ||||
| -rw-r--r-- | SRC/cposvxx.f | 2 | ||||
| -rw-r--r-- | SRC/csysvxx.f | 2 | ||||
| -rw-r--r-- | SRC/dposvxx.f | 2 | ||||
| -rw-r--r-- | SRC/dsysvxx.f | 2 | ||||
| -rw-r--r-- | SRC/sposvxx.f | 2 | ||||
| -rw-r--r-- | SRC/ssysvxx.f | 2 | ||||
| -rw-r--r-- | SRC/zhesvxx.f | 2 | ||||
| -rw-r--r-- | SRC/zposvxx.f | 2 | ||||
| -rw-r--r-- | SRC/zsysvxx.f | 2 |
10 files changed, 10 insertions, 10 deletions
diff --git a/SRC/chesvxx.f b/SRC/chesvxx.f index 9d412f2b..ac3486d2 100644 --- a/SRC/chesvxx.f +++ b/SRC/chesvxx.f @@ -510,7 +510,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the LDL^T or UDU^T factorization of A. * CALL CLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL CHETRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/SRC/cposvxx.f b/SRC/cposvxx.f index 38e8d8f3..4c91e23a 100644 --- a/SRC/cposvxx.f +++ b/SRC/cposvxx.f @@ -504,7 +504,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the Cholesky factorization of A. * CALL CLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL CPOTRF( UPLO, N, AF, LDAF, INFO ) diff --git a/SRC/csysvxx.f b/SRC/csysvxx.f index 7693b882..8acce8c8 100644 --- a/SRC/csysvxx.f +++ b/SRC/csysvxx.f @@ -515,7 +515,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the LDL^T or UDU^T factorization of A. * CALL CLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL CSYTRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/SRC/dposvxx.f b/SRC/dposvxx.f index 7164ae31..da5dddde 100644 --- a/SRC/dposvxx.f +++ b/SRC/dposvxx.f @@ -503,7 +503,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the Cholesky factorization of A. * CALL DLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL DPOTRF( UPLO, N, AF, LDAF, INFO ) diff --git a/SRC/dsysvxx.f b/SRC/dsysvxx.f index 943559d5..5125fd5a 100644 --- a/SRC/dsysvxx.f +++ b/SRC/dsysvxx.f @@ -510,7 +510,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the LDL^T or UDU^T factorization of A. * CALL DLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL DSYTRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/SRC/sposvxx.f b/SRC/sposvxx.f index 21b1c20e..aa6b7506 100644 --- a/SRC/sposvxx.f +++ b/SRC/sposvxx.f @@ -506,7 +506,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the Cholesky factorization of A. * CALL SLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL SPOTRF( UPLO, N, AF, LDAF, INFO ) diff --git a/SRC/ssysvxx.f b/SRC/ssysvxx.f index db43aa36..50d4850c 100644 --- a/SRC/ssysvxx.f +++ b/SRC/ssysvxx.f @@ -513,7 +513,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the LDL^T or UDU^T factorization of A. * CALL SLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL SSYTRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/SRC/zhesvxx.f b/SRC/zhesvxx.f index b6412cab..deb1190e 100644 --- a/SRC/zhesvxx.f +++ b/SRC/zhesvxx.f @@ -507,7 +507,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the LDL^T or UDU^T factorization of A. * CALL ZLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL ZHETRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/SRC/zposvxx.f b/SRC/zposvxx.f index bd202fff..7a60fe50 100644 --- a/SRC/zposvxx.f +++ b/SRC/zposvxx.f @@ -501,7 +501,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the Cholesky factorization of A. * CALL ZLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL ZPOTRF( UPLO, N, AF, LDAF, INFO ) diff --git a/SRC/zsysvxx.f b/SRC/zsysvxx.f index f5464b2c..f8e5ced0 100644 --- a/SRC/zsysvxx.f +++ b/SRC/zsysvxx.f @@ -512,7 +512,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LU factorization of A. +* Compute the LDL^T or UDU^T factorization of A. * CALL ZLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL ZSYTRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) |