diff options
| -rw-r--r-- | TESTING/EIG/derred.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/serred.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index 77592e56..f3faa7f5 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -415,7 +415,7 @@ $ 2, 2, A, 2, S, U, 1, VT, 2, $ W, 1, IW, INFO) CALL CHKXER( 'DGEJSV', INFOT, NOUT, LERR, OK ) - INFOT = 14 + INFOT = 15 CALL DGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', $ 2, 2, A, 2, S, U, 2, VT, 1, $ W, 1, IW, INFO) diff --git a/TESTING/EIG/serred.f b/TESTING/EIG/serred.f index f4b63ea5..fc94ba47 100644 --- a/TESTING/EIG/serred.f +++ b/TESTING/EIG/serred.f @@ -415,7 +415,7 @@ $ 2, 2, A, 2, S, U, 1, VT, 2, $ W, 1, IW, INFO) CALL CHKXER( 'SGEJSV', INFOT, NOUT, LERR, OK ) - INFOT = 14 + INFOT = 15 CALL SGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', $ 2, 2, A, 2, S, U, 2, VT, 1, $ W, 1, IW, INFO) |