diff options
Diffstat (limited to 'SRC/dgejsv.f')
| -rw-r--r-- | SRC/dgejsv.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f index 64f0908f..4369e331 100644 --- a/SRC/dgejsv.f +++ b/SRC/dgejsv.f @@ -562,7 +562,7 @@ ELSE IF ( LSVEC .AND. ( LDU .LT. M ) ) THEN INFO = - 13 ELSE IF ( RSVEC .AND. ( LDV .LT. N ) ) THEN - INFO = - 14 + INFO = - 15 ELSE IF ( (.NOT.(LSVEC .OR. RSVEC .OR. ERREST).AND. & (LWORK .LT. MAX(7,4*N+1,2*M+N))) .OR. & (.NOT.(LSVEC .OR. RSVEC) .AND. ERREST .AND. |