diff options
| author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-11-01 19:37:46 +0000 |
|---|---|---|
| committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-11-01 19:37:46 +0000 |
| commit | 2326ea03981cefadcbf94d330e173e6d1da2e12a (patch) | |
| tree | ddd27bfeab7c182e62904d3c5c69c63d0b4a91b3 /SRC/zlahef.f | |
| parent | 77d27131d077fffed1598f37c27eb820292817fc (diff) | |
fixesd inconsistencies between 'L' and 'U' parts in (z,c)lahef.f, added an IF check to 'U' part IF(KP.GT.1) where column interchange occurs
Diffstat (limited to 'SRC/zlahef.f')
| -rw-r--r-- | SRC/zlahef.f | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/SRC/zlahef.f b/SRC/zlahef.f index 705e8fcf..cbe76330 100644 --- a/SRC/zlahef.f +++ b/SRC/zlahef.f @@ -347,7 +347,8 @@ CALL ZCOPY( KK-1-KP, A( KP+1, KK ), 1, A( KP, KP+1 ), $ LDA ) CALL ZLACGV( KK-1-KP, A( KP, KP+1 ), LDA ) - CALL ZCOPY( KP-1, A( 1, KK ), 1, A( 1, KP ), 1 ) + IF( KP.GT.1 ) + $ CALL ZCOPY( KP-1, A( 1, KK ), 1, A( 1, KP ), 1 ) * * Interchange rows KK and KP in last KK columns of A and W * |