From 1c09a232b5d1314e2e13f36e081efe9f9406d17e Mon Sep 17 00:00:00 2001 From: Julien Langou Date: Tue, 13 Dec 2016 14:17:20 +0100 Subject: [PATCH] fix #98 --- SRC/dgejsv.f | 2 +- SRC/sgejsv.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f index 64f0908..4369e33 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. diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f index a52e39b..a26c4a6 100644 --- a/SRC/sgejsv.f +++ b/SRC/sgejsv.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. -- 2.7.4