diff options
| author | julie <julielangou@users.noreply.github.com> | 2010-11-07 18:08:29 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2010-11-07 18:08:29 +0000 |
| commit | e9718dbb16036b1ef3684a9d396954a72d3c25a0 (patch) | |
| tree | 6e6863584cf5e31543a07cdf5b612b7e679056f7 /SRC/dlasd6.f | |
| parent | 33cb046512d310b24cd6c71fd757bf51e93111fc (diff) | |
Correct bug0064 :: got a bug in divide and conquer (non convergence)
o see http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=2&t=529 (forum topic 529)
o Increase MAXIT to 200 (was 20 before)
o Add some XERBLA calls when INFO is not zero.
Diffstat (limited to 'SRC/dlasd6.f')
| -rw-r--r-- | SRC/dlasd6.f | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/SRC/dlasd6.f b/SRC/dlasd6.f index 99b99e17..0dcdb802 100644 --- a/SRC/dlasd6.f +++ b/SRC/dlasd6.f @@ -282,6 +282,13 @@ CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM, $ WORK( ISIGMA ), WORK( IW ), INFO ) * +* Handle error returned +* + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLASD8', -INFO ) + RETURN + END IF +* * Save the poles if ICOMPQ = 1. * IF( ICOMPQ.EQ.1 ) THEN |