diff options
author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-12-12 01:16:46 +0000 |
---|---|---|
committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-12-12 01:16:46 +0000 |
commit | 315b545f709de1ea5e9079d9f8b97caab0cc46a2 (patch) | |
tree | 3c585ed970755923b40bea0bf8c19a125228f1a9 /SRC/csytf2_rook.f | |
parent | 2a7e5cf57727ec9666809a186473d29987252ffd (diff) | |
download | lapack-315b545f709de1ea5e9079d9f8b97caab0cc46a2.tar.gz lapack-315b545f709de1ea5e9079d9f8b97caab0cc46a2.tar.bz2 lapack-315b545f709de1ea5e9079d9f8b97caab0cc46a2.zip |
updated comments in
Diffstat (limited to 'SRC/csytf2_rook.f')
-rw-r--r-- | SRC/csytf2_rook.f | 36 |
1 files changed, 17 insertions, 19 deletions
diff --git a/SRC/csytf2_rook.f b/SRC/csytf2_rook.f index b1356fa2..a234b29f 100644 --- a/SRC/csytf2_rook.f +++ b/SRC/csytf2_rook.f @@ -1,4 +1,4 @@ -*> \brief \b CSYTF2_ROOK +*> \brief \b CSYTF2_ROOK computes the factorization of a complex symmetric indefinite matrix using the bounded Bunch-Kaufman ("rook") diagonal pivoting method (unblocked algorithm). * * =========== DOCUMENTATION =========== * @@ -92,22 +92,22 @@ *> Details of the interchanges and the block structure of D. *> *> If UPLO = 'U': -*> If IPIV(k) > 0, then rows and columns k and IPIV(k) -*> were interchanged and D(k,k) is a 1-by-1 diagonal block. +*> If IPIV(k) > 0, then rows and columns k and IPIV(k) +*> were interchanged and D(k,k) is a 1-by-1 diagonal block. *> -*> If IPIV(k) < 0 and IPIV(k-1) < 0, then rows and -*> columns k and -IPIV(k) were interchanged and rows and -*> columns k-1 and -IPIV(k-1) were inerchaged, -*> D(k-1:k,k-1:k) is a 2-by-2 diagonal block. +*> If IPIV(k) < 0 and IPIV(k-1) < 0, then rows and +*> columns k and -IPIV(k) were interchanged and rows and +*> columns k-1 and -IPIV(k-1) were inerchaged, +*> D(k-1:k,k-1:k) is a 2-by-2 diagonal block. *> *> If UPLO = 'L': -*> If IPIV(k) > 0, then rows and columns k and IPIV(k) -*> were interchanged and D(k,k) is a 1-by-1 diagonal block. +*> If IPIV(k) > 0, then rows and columns k and IPIV(k) +*> were interchanged and D(k,k) is a 1-by-1 diagonal block. *> -*> If IPIV(k) < 0 and IPIV(k+1) < 0, then rows and -*> columns k and -IPIV(k) were interchanged and rows and -*> columns k+1 and -IPIV(k+1) were inerchaged, -*> D(k:k+1,k:k+1) is a 2-by-2 diagonal block. +*> If IPIV(k) < 0 and IPIV(k+1) < 0, then rows and +*> columns k and -IPIV(k) were interchanged and rows and +*> columns k+1 and -IPIV(k+1) were inerchaged, +*> D(k:k+1,k:k+1) is a 2-by-2 diagonal block. *> \endverbatim *> *> \param[out] INFO @@ -178,7 +178,7 @@ *> *> \verbatim *> -*> April 2012, Igor Kozachenko, +*> April 2012, Igor Kozachenko, *> Computer Science Division, *> University of California, Berkeley *> @@ -188,9 +188,7 @@ *> *> 01-01-96 - Based on modifications by *> J. Lewis, Boeing Computer Services Company -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA -*> 1-96 - Based on modifications by J. Lewis, Boeing Computer Services -*> Company +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville abd , USA *> \endverbatim * * ===================================================================== @@ -306,7 +304,7 @@ * IF( (MAX( ABSAKK, COLMAX ).EQ.ZERO) ) THEN * -* Column K is zero: set INFO and continue +* Column K is zero or underflow: set INFO and continue * IF( INFO.EQ.0 ) $ INFO = K @@ -574,7 +572,7 @@ * IF( ( MAX( ABSAKK, COLMAX ).EQ.ZERO ) ) THEN * -* Column K is zero: set INFO and continue +* Column K is zero or underflow: set INFO and continue * IF( INFO.EQ.0 ) $ INFO = K |