From 749c032e2644bd48b5d8127ab574742d7a739603 Mon Sep 17 00:00:00 2001
From: deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971>
Date: Thu, 22 Jan 2009 10:40:59 +0000
Subject: Added the rest of the extra precise iterative refinement testing.

---
 TESTING/LIN/derrpox.f | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 'TESTING/LIN/derrpox.f')

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 )
-- 
cgit v1.2.3