diff options
Diffstat (limited to 'TESTING/EIG/cerrec.f')
| -rw-r--r-- | TESTING/EIG/cerrec.f | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/TESTING/EIG/cerrec.f b/TESTING/EIG/cerrec.f index 90ada2f7..fa476e00 100644 --- a/TESTING/EIG/cerrec.f +++ b/TESTING/EIG/cerrec.f @@ -152,9 +152,6 @@ INFOT = 1 CALL CTREXC( 'X', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'CTREXC', INFOT, NOUT, LERR, OK ) - INFOT = 7 - CALL CTREXC( 'N', 0, A, 1, B, 1, IFST, ILST, INFO ) - CALL CHKXER( 'CTREXC', INFOT, NOUT, LERR, OK ) INFOT = 4 ILST = 2 CALL CTREXC( 'N', 2, A, 1, B, 1, IFST, ILST, INFO ) @@ -180,7 +177,7 @@ ILST = 2 CALL CTREXC( 'V', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'CTREXC', INFOT, NOUT, LERR, OK ) - NT = NT + 8 + NT = NT + 7 * * Test CTRSNA * |