diff options
author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-05 09:56:22 +0000 |
---|---|---|
committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-05 09:56:22 +0000 |
commit | 51aa48f35ba5f0a053e03893530d9c94828141f4 (patch) | |
tree | 455eae04851203e8422b0e0634672d088f6f8d1b /SRC/dsytrf_rook.f | |
parent | 3542df4eea0be867b91734fed91d9ee037b99a26 (diff) | |
download | lapack-51aa48f35ba5f0a053e03893530d9c94828141f4.tar.gz lapack-51aa48f35ba5f0a053e03893530d9c94828141f4.tar.bz2 lapack-51aa48f35ba5f0a053e03893530d9c94828141f4.zip |
fixes to dsytrf_rook.f
Diffstat (limited to 'SRC/dsytrf_rook.f')
-rw-r--r-- | SRC/dsytrf_rook.f | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/SRC/dsytrf_rook.f b/SRC/dsytrf_rook.f index 72c73def..275bcf16 100644 --- a/SRC/dsytrf_rook.f +++ b/SRC/dsytrf_rook.f @@ -195,9 +195,13 @@ *> *> \verbatim *> -*> November 2011, Igor Kozachenko, University of California Berkeley +*> November 2011, Igor Kozachenko, +*> Computer Science Division, +*> University of California, Berkeley *> -*> September 2007, Craig Lucas, University of Manchester +*> September 2007, Sven Hammarling, Nicholas J. Higham, Craig Lucas, +*> School of Mathematics, +*> University of Manchester *> *> \endverbatim * @@ -319,15 +323,7 @@ IF( INFO.EQ.0 .AND. IINFO.GT.0 ) $ INFO = IINFO * -* Adjust IPIV -* - DO 14 J = K, K - KB + 1 - IF( IPIV( J ).GT.0 ) THEN - IPIV( J ) = IPIV( J ) - K + 1 - ELSE - IPIV( J ) = IPIV( J ) + K - 1 - END IF - 14 CONTINUE +* No need to adjust IPIV * * Decrease K and return to the start of the main loop * |