aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJulien Langou <julien.langou@ucdenver.edu>2016-12-13 14:17:20 +0100
committerJulien Langou <julien.langou@ucdenver.edu>2016-12-13 14:17:20 +0100
commit1c09a232b5d1314e2e13f36e081efe9f9406d17e (patch)
tree91774a959848766b65ac1246501b2802bd53944b
parent42944f6fdee4de98fd1dd650c4f81047937635c2 (diff)
fix #98
-rw-r--r--SRC/dgejsv.f2
-rw-r--r--SRC/sgejsv.f2
2 files changed, 2 insertions, 2 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.
diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f
index a52e39b3..a26c4a63 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.