Return to dgeesx.f CVS log | Up to [local] / rpl / lapack / lapack |
version 1.18, 2018/05/29 07:17:51 | version 1.19, 2020/05/21 21:45:56 |
---|---|
Line 583 | Line 583 |
IF( N.GT.I+1 ) | IF( N.GT.I+1 ) |
$ CALL DSWAP( N-I-1, A( I, I+2 ), LDA, | $ CALL DSWAP( N-I-1, A( I, I+2 ), LDA, |
$ A( I+1, I+2 ), LDA ) | $ A( I+1, I+2 ), LDA ) |
CALL DSWAP( N, VS( 1, I ), 1, VS( 1, I+1 ), 1 ) | IF( WANTVS ) THEN |
CALL DSWAP( N, VS( 1, I ), 1, VS( 1, I+1 ), 1 ) | |
END IF | |
A( I, I+1 ) = A( I+1, I ) | A( I, I+1 ) = A( I+1, I ) |
A( I+1, I ) = ZERO | A( I+1, I ) = ZERO |
END IF | END IF |