diff options
| author | Nick Papior <nickpapior@gmail.com> | 2016-09-18 15:21:11 +0200 |
|---|---|---|
| committer | Nick Papior <nickpapior@gmail.com> | 2016-09-18 15:21:11 +0200 |
| commit | 87c31223b1a90302bf75ee3f6f58c84233bf5cec (patch) | |
| tree | 4f19973955b3f6c0b7c2ef01cf8dc3cb52126e5b /TESTING/EIG/zerrec.f | |
| parent | 7bd944279193dd7d85294286973b40c2ee80ba5b (diff) | |
bug: fixes always failing tests for *TREXC which was erroneous tests
There where checks for *TREXC for the argument of N = 0 with a return value
of -7. However, the documentation of the *TREXC routines specify that
N = 0 is a valid argument with instant return.
Hence the checks have been removed and the quick returns established in the
affected routines.
Also comments for [dz]errec.f files are fixed.
Signed-off-by: Nick Papior <nickpapior@gmail.com>
Diffstat (limited to 'TESTING/EIG/zerrec.f')
| -rw-r--r-- | TESTING/EIG/zerrec.f | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index 7ea308b2..948f6eec 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -23,7 +23,7 @@ *> *> ZERREC tests the error exits for the routines for eigen- condition *> estimation for DOUBLE PRECISION matrices: -*> ZTRSYL, CTREXC, CTRSNA and CTRSEN. +*> ZTRSYL, ZTREXC, ZTRSNA and ZTRSEN. *> \endverbatim * * Arguments: @@ -152,9 +152,6 @@ INFOT = 1 CALL ZTREXC( 'X', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'ZTREXC', INFOT, NOUT, LERR, OK ) - INFOT = 7 - CALL ZTREXC( 'N', 0, A, 1, B, 1, IFST, ILST, INFO ) - CALL CHKXER( 'ZTREXC', INFOT, NOUT, LERR, OK ) INFOT = 4 ILST = 2 CALL ZTREXC( 'N', 2, A, 1, B, 1, IFST, ILST, INFO ) @@ -180,7 +177,7 @@ ILST = 2 CALL ZTREXC( 'V', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'ZTREXC', INFOT, NOUT, LERR, OK ) - NT = NT + 8 + NT = NT + 7 * * Test ZTRSNA * |