diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-13 14:17:20 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-13 14:17:20 +0100 |
| commit | 1c09a232b5d1314e2e13f36e081efe9f9406d17e (patch) | |
| tree | 91774a959848766b65ac1246501b2802bd53944b /SRC/sgejsv.f | |
| parent | 42944f6fdee4de98fd1dd650c4f81047937635c2 (diff) | |
| download | lapack-1c09a232b5d1314e2e13f36e081efe9f9406d17e.tar.gz lapack-1c09a232b5d1314e2e13f36e081efe9f9406d17e.tar.bz2 lapack-1c09a232b5d1314e2e13f36e081efe9f9406d17e.zip | |
fix #98
Diffstat (limited to 'SRC/sgejsv.f')
| -rw-r--r-- | SRC/sgejsv.f | 2 |
1 files changed, 1 insertions, 1 deletions
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. |