diff options
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 |