From 51aa48f35ba5f0a053e03893530d9c94828141f4 Mon Sep 17 00:00:00 2001 From: igor175 Date: Mon, 5 Dec 2011 09:56:22 +0000 Subject: fixes to dsytrf_rook.f --- SRC/dsytrf_rook.f | 18 +++++++----------- 1 file 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 * -- cgit v1.2.3