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/LIN/derrvxx.f | |
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/LIN/derrvxx.f')
-rw-r--r-- | TESTING/LIN/derrvxx.f | 11 |
1 files changed, 11 insertions, 0 deletions
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, |