diff options
Diffstat (limited to 'SRC/slasd1.f')
| -rw-r--r-- | SRC/slasd1.f | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/SRC/slasd1.f b/SRC/slasd1.f index b076fca7..080368e7 100644 --- a/SRC/slasd1.f +++ b/SRC/slasd1.f @@ -302,6 +302,9 @@ $ U, LDU, WORK( IU2 ), LDU2, VT, LDVT, WORK( IVT2 ), $ LDVT2, IWORK( IDXC ), IWORK( COLTYP ), WORK( IZ ), $ INFO ) +* +* Report the possible convergence failure. +* IF( INFO.NE.0 ) THEN RETURN END IF |