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/dlasd1.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/dlasd1.f')
| -rw-r--r-- | SRC/dlasd1.f | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/SRC/dlasd1.f b/SRC/dlasd1.f index 8b8ae08b..6e9e6e9e 100644 --- a/SRC/dlasd1.f +++ b/SRC/dlasd1.f @@ -302,6 +302,9 @@ $ U, LDU, WORK( IU2 ), LDU2, VT, LDVT, WORK( IVT2 ), $ LDVT2, IWORK( IDXC ), IWORK( COLTYP ), WORK( IZ ), $ INFO ) +* +* Report the convergence failure. +* IF( INFO.NE.0 ) THEN RETURN END IF |