diff options
Diffstat (limited to 'TESTING/EIG/derred.f')
| -rw-r--r-- | TESTING/EIG/derred.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index 4f778b15..6b388cf3 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -475,7 +475,7 @@ CALL DGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) - INFOT = 16 + INFOT = 17 CALL DGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) |