diff options
author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-10-25 22:12:12 +0000 |
---|---|---|
committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-10-25 22:12:12 +0000 |
commit | 227e83bb8250dd91ce144909646a94198e154f98 (patch) | |
tree | 21ea8434b83a4df59a9274067e0ad763c2809bbb /SRC/dlasyf_rook.f | |
parent | df210ad64f82dcbca68f6b916fcc94ba060bcf9b (diff) |
fixes to comments in *lasyf_rook.f
Diffstat (limited to 'SRC/dlasyf_rook.f')
-rw-r--r-- | SRC/dlasyf_rook.f | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/SRC/dlasyf_rook.f b/SRC/dlasyf_rook.f index 630a866a..b5094779 100644 --- a/SRC/dlasyf_rook.f +++ b/SRC/dlasyf_rook.f @@ -293,7 +293,8 @@ KP = K CALL DCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 ) ELSE -* ===================================================================== +* +* ============================================================ * * Test for interchange * @@ -395,9 +396,11 @@ * End pivot search loop body * IF( .NOT. DONE ) GOTO 12 -* ===================================================================== +* END IF * +* ============================================================ +* KK = K - KSTEP + 1 * * KKW is the column of W which corresponds to column KK of A @@ -616,7 +619,7 @@ CALL DCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 ) * ELSE -* ===================================================================== +* ================================================================== * * Test for interchange * @@ -716,7 +719,7 @@ * End pivot search loop body * IF( .NOT. DONE ) GOTO 72 -* ===================================================================== +* ================================================================== END IF * KK = K + KSTEP - 1 |