diff options
| author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-01-22 10:40:59 +0000 |
|---|---|---|
| committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-01-22 10:40:59 +0000 |
| commit | 749c032e2644bd48b5d8127ab574742d7a739603 (patch) | |
| tree | a43393edc2dbf50e7bc8a70e66536dbb512fdab8 /TESTING/LIN/derrpox.f | |
| parent | ef145621404f97fc38ea3cc89432148563df4e9a (diff) | |
| download | lapack-749c032e2644bd48b5d8127ab574742d7a739603.tar.gz lapack-749c032e2644bd48b5d8127ab574742d7a739603.tar.bz2 lapack-749c032e2644bd48b5d8127ab574742d7a739603.zip | |
Added the rest of the extra precise iterative refinement testing.
Diffstat (limited to 'TESTING/LIN/derrpox.f')
| -rw-r--r-- | TESTING/LIN/derrpox.f | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/TESTING/LIN/derrpox.f b/TESTING/LIN/derrpox.f index f6ab31fb..e8c1e7e8 100644 --- a/TESTING/LIN/derrpox.f +++ b/TESTING/LIN/derrpox.f @@ -1,6 +1,6 @@ SUBROUTINE DERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.2) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * November 2006 * @@ -15,6 +15,9 @@ * DERRPO tests the error exits for the DOUBLE PRECISION routines * for symmetric positive definite matrices. * +* Note that this file is used only when the XBLAS are available, +* otherwise derrpo.f defines this subroutine. +* * Arguments * ========= * @@ -41,7 +44,7 @@ DOUBLE PRECISION A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ), $ R1( NMAX ), R2( NMAX ), W( 3*NMAX ), X( NMAX ), $ S( NMAX ), ERR_BNDS_N( NMAX, 3 ), - $ ERR_BNDS_C( NMAX, 3 ), PARAMS + $ ERR_BNDS_C( NMAX, 3), PARAMS( 1 ) * .. * .. External Functions .. LOGICAL LSAMEN @@ -189,7 +192,7 @@ NPARAMS = 0 SRNAMT = 'DPORFSX' INFOT = 1 - CALL DPORFSX( '/', EQ, 0, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL DPORFSX( '/', EQ, 0, 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 ) @@ -205,27 +208,27 @@ $ PARAMS, W, IW, INFO ) CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL DPORFSX( 'U', EQ, 0, -1, A, 1, AF, 1, S, B, 1, X, 1, + CALL DPORFSX( 'U', EQ, 0, -1, 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 ) INFOT = 6 - CALL DPORFSX( 'U', EQ, 2, 1, A, 1, AF, 2, S, B, 2, X, 2, + CALL DPORFSX( 'U', EQ, 2, 1, A, 1, AF, 2, S, B, 2, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, IW, INFO ) CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 1, S, B, 2, X, 2, + CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 1, S, B, 2, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, IW, INFO ) CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 2, S, B, 1, X, 2, + CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 2, S, B, 1, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, IW, INFO ) CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 2, S, B, 2, X, 1, + CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 2, S, B, 2, 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 ) |