diff options
author | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-02-06 20:31:47 +0000 |
---|---|---|
committer | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-02-06 20:31:47 +0000 |
commit | 2cbabfbc388056bcf3a8aaff0a977deea8f6b3c2 (patch) | |
tree | b3497e95d8ca78b158442e2976079d195fc9523a /SRC/slasd8.f | |
parent | ec7a8aeaa1646a1b1879aef0eea83cdc5222ad70 (diff) | |
download | lapack-2cbabfbc388056bcf3a8aaff0a977deea8f6b3c2.tar.gz lapack-2cbabfbc388056bcf3a8aaff0a977deea8f6b3c2.tar.bz2 lapack-2cbabfbc388056bcf3a8aaff0a977deea8f6b3c2.zip |
Systematically return with INFO=1 when the root finder failed.
This corresponds to the documentation of [d/s]lasdx routines and fixes bug121
reported Justin Si.
Diffstat (limited to 'SRC/slasd8.f')
-rw-r--r-- | SRC/slasd8.f | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/SRC/slasd8.f b/SRC/slasd8.f index c80d7cdf..be223699 100644 --- a/SRC/slasd8.f +++ b/SRC/slasd8.f @@ -276,10 +276,9 @@ CALL SLASD4( K, J, DSIGMA, Z, WORK( IWK1 ), RHO, D( J ), $ WORK( IWK2 ), INFO ) * -* If the root finder fails, the computation is terminated. +* If the root finder fails, report the convergence failure. * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'SLASD4', -INFO ) RETURN END IF WORK( IWK3I+J ) = WORK( IWK3I+J )*WORK( J )*WORK( IWK2I+J ) |