diff options
| -rw-r--r-- | TESTING/LIN/cerrpox.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/derrpox.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/serrpox.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zerrpox.f | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/TESTING/LIN/cerrpox.f b/TESTING/LIN/cerrpox.f index cbace149..e65816d9 100644 --- a/TESTING/LIN/cerrpox.f +++ b/TESTING/LIN/cerrpox.f @@ -238,7 +238,7 @@ $ PARAMS, W, R, INFO ) CALL CHKXER( 'CPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL CPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL CPORFSX( 'U', '/', -1, 0, A, 1, AF, 1, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CPORFSX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/LIN/derrpox.f b/TESTING/LIN/derrpox.f index 1aadabcf..9d9ac406 100644 --- a/TESTING/LIN/derrpox.f +++ b/TESTING/LIN/derrpox.f @@ -238,7 +238,7 @@ $ PARAMS, W, IW, INFO ) CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL DPORFSX( 'U', "/", -1, 0, A, 1, AF, 1, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, IW, INFO ) CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/LIN/serrpox.f b/TESTING/LIN/serrpox.f index f37dcee4..537a9401 100644 --- a/TESTING/LIN/serrpox.f +++ b/TESTING/LIN/serrpox.f @@ -238,7 +238,7 @@ $ PARAMS, W, IW, INFO ) CALL CHKXER( 'SPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL SPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL SPORFSX( 'U', "/", -1, 0, A, 1, AF, 1, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, IW, INFO ) CALL CHKXER( 'SPORFSX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/LIN/zerrpox.f b/TESTING/LIN/zerrpox.f index f82b6600..75000db0 100644 --- a/TESTING/LIN/zerrpox.f +++ b/TESTING/LIN/zerrpox.f @@ -240,7 +240,7 @@ $ PARAMS, W, R, INFO ) CALL CHKXER( 'ZPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL ZPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL ZPORFSX( 'U', "/", -1, 0, A, 1, AF, 1, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'ZPORFSX', INFOT, NOUT, LERR, OK ) |