diff options
Diffstat (limited to 'SRC/dlaed2.f')
| -rw-r--r-- | SRC/dlaed2.f | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/SRC/dlaed2.f b/SRC/dlaed2.f index 21e2c03f..055213c4 100644 --- a/SRC/dlaed2.f +++ b/SRC/dlaed2.f @@ -418,8 +418,11 @@ * The deflated eigenvalues and their corresponding vectors go back * into the last N - K slots of D and Q respectively. * - CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, Q( 1, K+1 ), LDQ ) - CALL DCOPY( N-K, Z( K+1 ), 1, D( K+1 ), 1 ) + IF( K.LT.N ) THEN + CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, + $ Q( 1, K+1 ), LDQ ) + CALL DCOPY( N-K, Z( K+1 ), 1, D( K+1 ), 1 ) + END IF * * Copy CTOT into COLTYP for referencing in DLAED3. * |