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/slasd0.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/slasd0.f')
-rw-r--r-- | SRC/slasd0.f | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/SRC/slasd0.f b/SRC/slasd0.f index b04a32dc..b2d3e8bb 100644 --- a/SRC/slasd0.f +++ b/SRC/slasd0.f @@ -300,6 +300,9 @@ CALL SLASD1( NL, NR, SQREI, D( NLF ), ALPHA, BETA, $ U( NLF, NLF ), LDU, VT( NLF, NLF ), LDVT, $ IWORK( IDXQC ), IWORK( IWK ), WORK, INFO ) +* +* Report the possible convergence failure. +* IF( INFO.NE.0 ) THEN RETURN END IF |