diff options
| author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-11-02 00:44:17 +0000 |
|---|---|---|
| committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-11-02 00:44:17 +0000 |
| commit | 1dece8c92b635a218ef8b778cbe0cadabb19b6d6 (patch) | |
| tree | 5d903afe52ca76348361bfa45e59f037568c6f58 /SRC/zlahef.f | |
| parent | a47e62c31d492e9599c3d7611712efc70e95fb6f (diff) | |
updated comments in (c,z)lahef.f for column interchange
Diffstat (limited to 'SRC/zlahef.f')
| -rw-r--r-- | SRC/zlahef.f | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/SRC/zlahef.f b/SRC/zlahef.f index f83b655f..2566c7d3 100644 --- a/SRC/zlahef.f +++ b/SRC/zlahef.f @@ -341,7 +341,10 @@ * IF( KP.NE.KK ) THEN * -* Copy non-updated column KK to column KP +* Copy non-updated column KK to column KP of submatrix A +* at step K. No need to copy element into column K +* (or K and K-1) of A, since these columns will be later +* overwritten. * A( KP, KP ) = DBLE( A( KK, KK ) ) CALL ZCOPY( KK-1-KP, A( KP+1, KK ), 1, A( KP, KP+1 ), @@ -595,7 +598,10 @@ * IF( KP.NE.KK ) THEN * -* Copy non-updated column KK to column KP +* Copy non-updated column KK to column KP of submatrix A +* at step K. No need to copy element into column K +* (or K and K+1) of A, since these columns will be later +* overwritten. * A( KP, KP ) = DBLE( A( KK, KK ) ) CALL ZCOPY( KP-KK-1, A( KK+1, KK ), 1, A( KP, KK+1 ), |