diff options
-rw-r--r-- | SRC/clasyf_rook.f | 14 | ||||
-rw-r--r-- | SRC/dlasyf_rook.f | 11 | ||||
-rw-r--r-- | SRC/slasyf_rook.f | 14 | ||||
-rw-r--r-- | SRC/zlasyf_rook.f | 14 |
4 files changed, 37 insertions, 16 deletions
diff --git a/SRC/clasyf_rook.f b/SRC/clasyf_rook.f index 76d9d712..0b3f0dca 100644 --- a/SRC/clasyf_rook.f +++ b/SRC/clasyf_rook.f @@ -301,7 +301,8 @@ KP = K CALL CCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 ) ELSE -* ===================================================================== +* +* ============================================================ * * Test for interchange * @@ -403,9 +404,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 @@ -624,7 +627,8 @@ CALL CCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 ) * ELSE -* ===================================================================== +* +* ============================================================ * * Test for interchange * @@ -724,9 +728,11 @@ * End pivot search loop body * IF( .NOT. DONE ) GOTO 72 -* ===================================================================== +* END IF * +* ============================================================ +* KK = K + KSTEP - 1 * IF( ( KSTEP.EQ.2 ) .AND. ( P.NE.K ) ) THEN 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 diff --git a/SRC/slasyf_rook.f b/SRC/slasyf_rook.f index aaa4f777..323a571d 100644 --- a/SRC/slasyf_rook.f +++ b/SRC/slasyf_rook.f @@ -293,7 +293,8 @@ KP = K CALL SCOPY( 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,8 @@ CALL SCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 ) * ELSE -* ===================================================================== +* +* ============================================================ * * Test for interchange * @@ -716,9 +720,11 @@ * End pivot search loop body * IF( .NOT. DONE ) GOTO 72 -* ===================================================================== +* END IF * +* ============================================================ +* KK = K + KSTEP - 1 * IF( ( KSTEP.EQ.2 ) .AND. ( P.NE.K ) ) THEN diff --git a/SRC/zlasyf_rook.f b/SRC/zlasyf_rook.f index ce538469..1ae17378 100644 --- a/SRC/zlasyf_rook.f +++ b/SRC/zlasyf_rook.f @@ -301,7 +301,8 @@ KP = K CALL ZCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 ) ELSE -* ===================================================================== +* +* ============================================================ * * Test for interchange * @@ -403,9 +404,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 @@ -624,7 +627,8 @@ CALL ZCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 ) * ELSE -* ===================================================================== +* +* ============================================================ * * Test for interchange * @@ -724,9 +728,11 @@ * End pivot search loop body * IF( .NOT. DONE ) GOTO 72 -* ===================================================================== +* END IF * +* ============================================================ +* KK = K + KSTEP - 1 * IF( ( KSTEP.EQ.2 ) .AND. ( P.NE.K ) ) THEN |