diff options
author | julie <julielangou@users.noreply.github.com> | 2015-04-23 03:25:41 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2015-04-23 03:25:41 +0000 |
commit | c2bb35e025810d6e7c23c74f2858227f338c97df (patch) | |
tree | f86241b80e690c4435b6c93b0fcc265d7157ffb0 /TESTING | |
parent | fe1d6223cac273c4b7f45311ae0f1e60aba3f09b (diff) |
Correct info testing for SYSVXX routines
in ?SYSVXX
INFO = -10 needs to be changed to INFO = -11
The code in this section of the files is about to check and make sure all S
elements are positive. And S is argument 11 not 10.
in ?ERRVXX
Add info testing for input parameter 10 and 11
Diffstat (limited to 'TESTING')
-rw-r--r-- | TESTING/LIN/cerrvxx.f | 11 | ||||
-rw-r--r-- | TESTING/LIN/derrvxx.f | 11 | ||||
-rw-r--r-- | TESTING/LIN/serrvxx.f | 11 | ||||
-rw-r--r-- | TESTING/LIN/zerrvxx.f | 13 |
4 files changed, 45 insertions, 1 deletions
diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f index bcc2d520..881350be 100644 --- a/TESTING/LIN/cerrvxx.f +++ b/TESTING/LIN/cerrvxx.f @@ -1061,6 +1061,17 @@ $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'CSYSVXX', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL CSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, 'A', R, B, 2, X, + $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, + $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) + CALL CHKXER( 'CSYSVXX', INFOT, NOUT, LERR, OK ) + INFOT = 11 + EQ='Y' + CALL CSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, + $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, + $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) + CALL CHKXER( 'CSYSVXX', INFOT, NOUT, LERR, OK ) INFOT = 13 EQ = 'N' CALL CSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f index fbceee8e..9c9df6f6 100644 --- a/TESTING/LIN/derrvxx.f +++ b/TESTING/LIN/derrvxx.f @@ -875,6 +875,17 @@ $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO ) CALL CHKXER( 'DSYSVXX', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL DSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, 'A', R, B, 2, X, + $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, + $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) + CALL CHKXER( 'DSYSVXX', INFOT, NOUT, LERR, OK ) + INFOT = 11 + EQ='Y' + CALL DSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, + $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, + $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) + CALL CHKXER( 'DSYSVXX', INFOT, NOUT, LERR, OK ) INFOT = 13 EQ = 'N' CALL DSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f index 80d37fc5..b56b5ce1 100644 --- a/TESTING/LIN/serrvxx.f +++ b/TESTING/LIN/serrvxx.f @@ -876,6 +876,17 @@ $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO ) CALL CHKXER( 'SSYSVXX', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL SSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, 'A', R, B, 2, X, + $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, + $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) + CALL CHKXER( 'SSYSVXX', INFOT, NOUT, LERR, OK ) + INFOT = 11 + EQ='Y' + CALL SSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, + $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, + $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) + CALL CHKXER( 'SSYSVXX', INFOT, NOUT, LERR, OK ) INFOT = 13 EQ = 'N' CALL SSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f index 07127037..f6299ecf 100644 --- a/TESTING/LIN/zerrvxx.f +++ b/TESTING/LIN/zerrvxx.f @@ -1092,7 +1092,18 @@ $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 13 + INFOT = 10 + CALL ZSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, 'A', R, B, 2, X, + $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, + $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) + CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) + INFOT = 11 + EQ='Y' + CALL ZSYSVXX( 'F', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, + $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, + $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) + CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) + INFOT = 13 EQ = 'N' CALL ZSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, |