Fixed typos and variable types in testing files.

diff --git a/TESTING/LIN/cdrvgbx.f b/TESTING/LIN/cdrvgbx.f
index 68cf7fc350e59241841f8f5dca4b152e64f3c97d..ba250253e69faaf73740b7cf2284be239128c61b 100644 (file)
--- a/TESTING/LIN/cdrvgbx.f
+++ b/TESTING/LIN/cdrvgbx.f
@@ -739,11 +739,11 @@ c                     write(*,*) 'begin cgbsvxx testing'
 *                    and error bounds using CGBSVXX.
 *
                      SRNAMT = 'CGBSVXX'
-                     n_err_bnds = 3
+                     N_ERR_BNDS = 3
                      CALL CGBSVXX( FACT, TRANS, N, KL, KU, NRHS, A, LDA,
      $                    AFB, LDAFB, IWORK, EQUED, S, S( N+1 ), B, LDB,
-     $                    X, LDB, rcond, rpvgrw_svxx, berr, n_err_bnds,
-     $                    errbnds_n, errbnds_c, 0, ZERO, WORK,
+     $                    X, LDB, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
+     $                    ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
      $                    RWORK, INFO )
 *
 *                    Check the error code from CGBSVXX.

diff --git a/TESTING/LIN/cdrvhex.f b/TESTING/LIN/cdrvhex.f
index ee2aeacb8f3c0b610629ef80264c457dabfdece2..67bbf93e71a944df3433c9600e1afe39dd703b1e 100644 (file)
--- a/TESTING/LIN/cdrvhex.f
+++ b/TESTING/LIN/cdrvhex.f
@@ -95,7 +95,8 @@
       CHARACTER*3        PATH
       INTEGER            I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO,
      $                   IZERO, J, K, K1, KL, KU, LDA, LWORK, MODE, N,
-     $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT
+     $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT,
+     $                   N_ERR_BNDS
       REAL               AINVNM, ANORM, CNDNUM, RCOND, RCONDC,
      $                   RPVGRW_SVXX
 *     ..

diff --git a/TESTING/LIN/cdrvpox.f b/TESTING/LIN/cdrvpox.f
index 1b460a36a19e940f7ef3009048dcbf374fb37274..8989cfd37c69db58f1ecf3e71a08a81f73deba3f 100644 (file)
--- a/TESTING/LIN/cdrvpox.f
+++ b/TESTING/LIN/cdrvpox.f
@@ -528,10 +528,11 @@
 *                    and error bounds using CPOSVXX.
 *
                      SRNAMT = 'CPOSVXX'
+                     N_ERR_BNDS = 3
                     CALL CPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AFAC,
      $                    LDA, EQUED, S, B, LDA, X,
-     $                    LDA, rcond, rpvgrw_svxx, berr, n_err_bnds,
-     $                    errbnds_n, errbnds_c, 0, ZERO, WORK,
+     $                    LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
+     $                    ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
      $                    RWORK( 2*NRHS+1 ), INFO )
 *
 *                    Check the error code from CPOSVXX.

diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f
index ddf19cf928cd87c54f5a475cb9c14564085233f6..0f5c5848683cbc96fdf42c446706c92f4d6a05e7 100644 (file)
--- a/TESTING/LIN/cerrvxx.f
+++ b/TESTING/LIN/cerrvxx.f
@@ -966,7 +966,7 @@
 *        CSYSVXX
 *
          N_ERR_BNDS = 3
-         N_PARAMS = 0
+         NPARAMS = 0
          SRNAMT = 'CSYSVXX'
          INFOT = 1
          EQ = 'N'
@@ -976,7 +976,7 @@
          CALL CHKXER( 'CSYSVXX', INFOT, NOUT, LERR, OK )
          INFOT = 2
          CALL CSYSVXX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, B, 1, X,
-     $        1, RCOND, RPVGRW, BERR, B_ERR_BNDS, ERR_BNDS_N,
+     $        1, 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 = 3

diff --git a/TESTING/LIN/ddrvpox.f b/TESTING/LIN/ddrvpox.f
index 677600f07c832e3636abd8f234bdeb1e6573b42a..0dabf1302a893fd8ace0ba1ede09ff59c43f95ce 100644 (file)
--- a/TESTING/LIN/ddrvpox.f
+++ b/TESTING/LIN/ddrvpox.f
@@ -522,10 +522,11 @@
 *                    and error bounds using DPOSVXX.
 *
                      SRNAMT = 'DPOSVXX'
+                     N_ERR_BNDS = 3
                      CALL DPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AFAC,
      $                    LDA, EQUED, S, B, LDA, X,
-     $                    LDA, rcond, rpvgrw_svxx, berr, n_err_bnds,
-     $                    errbnds_n, errbnds_c, 0, ZERO, WORK,
+     $                    LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
+     $                    ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
      $                    IWORK, INFO )
 *
 *                    Check the error code from DPOSVXX.

diff --git a/TESTING/LIN/derrsyx.f b/TESTING/LIN/derrsyx.f
index 131a3660b68ee2ae215317564de9c5e47b298a63..7a25a8a807475d4087f030a57735c8274e28ec80 100644 (file)
--- a/TESTING/LIN/derrsyx.f
+++ b/TESTING/LIN/derrsyx.f
@@ -206,7 +206,7 @@
          EQ = 'N'
          INFOT = 3
          CALL DSYRFSX( 'U', EQ, -1, 0, A, 1, AF, 1, IP, S, B, 1, X, 1,
-     $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERRR_BNDS_C, NPARAMS,
+     $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
      $        PARAMS, W, IW, INFO )
          CALL CHKXER( 'DSYRFSX', INFOT, NOUT, LERR, OK )
          INFOT = 4

diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f
index 8640657e0d2e34fd83bc3ded6bd22f15eb6b86c9..6d8195098083fe0e90dcf067690f977fe4605302 100644 (file)
--- a/TESTING/LIN/derrvxx.f
+++ b/TESTING/LIN/derrvxx.f
@@ -799,7 +799,7 @@
 *        DSYSVXX
 *
          N_ERR_BNDS = 3
-         N_PARAMS = 0
+         NPARAMS = 0
          SRNAMT = 'DSYSVXX'
          INFOT = 1
          EQ = 'N'
@@ -809,7 +809,7 @@
          CALL CHKXER( 'DSYSVXX', INFOT, NOUT, LERR, OK )
          INFOT = 2
          CALL DSYSVXX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, B, 1, X,
-     $        1, RCOND, RPVGRW, BERR, B_ERR_BNDS, ERR_BNDS_N,
+     $        1, 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 = 3

diff --git a/TESTING/LIN/sdrvgbx.f b/TESTING/LIN/sdrvgbx.f
index 28db6e54488d426f62c7e99bb2e2833c6fcb88bc..d58b5ce2b7dc2e3229e67d5d6721b3ed550ad29c 100644 (file)
--- a/TESTING/LIN/sdrvgbx.f
+++ b/TESTING/LIN/sdrvgbx.f
@@ -737,11 +737,11 @@
 *                    and error bounds using SGBSVXX.
 *
                      SRNAMT = 'SGBSVXX'
-                     n_err_bnds = 3
+                     N_ERR_BNDS = 3
                      CALL SGBSVXX( FACT, TRANS, N, KL, KU, NRHS, A, LDA,
      $                    AFB, LDAFB, IWORK, EQUED, S, S( N+1 ), B, LDB,
-     $                    X, LDB, rcond, rpvgrw_svxx, berr, n_err_bnds,
-     $                    errbnds_n, errbnds_c, 0, ZERO, WORK,
+     $                    X, LDB, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
+     $                    ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
      $                    IWORK( N+1 ), INFO )
 
 *                    Check the error code from SGBSVXX.

diff --git a/TESTING/LIN/sdrvpox.f b/TESTING/LIN/sdrvpox.f
index 44a251e5213af647d6580f28af00b6e78652f388..7225487a67731e3bcb7bef833a9a56bf1787c2a9 100644 (file)
--- a/TESTING/LIN/sdrvpox.f
+++ b/TESTING/LIN/sdrvpox.f
@@ -522,11 +522,11 @@
 *                    and error bounds using SPOSVXX.
 *
                      SRNAMT = 'SPOSVXX'
-                     n_err_bnds = 3
+                     N_ERR_BNDS = 3
                      CALL SPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AFAC,
      $                    LDA, EQUED, S, B, LDA, X,
-     $                    LDA, rcond, rpvgrw_svxx, berr, n_err_bnds,
-     $                    errbnds_n, errbnds_c, 0, ZERO, WORK,
+     $                    LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
+     $                    ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
      $                    IWORK, INFO )
 *
 *                    Check the error code from SPOSVXX.

diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f
index ce87b5f9776716aa17621a69aba8d1f55c37490e..40a9d94d004d6e518b9195b280261f985231451d 100644 (file)
--- a/TESTING/LIN/serrvxx.f
+++ b/TESTING/LIN/serrvxx.f
@@ -799,7 +799,7 @@
 *        SSYSVXX
 *
          N_ERR_BNDS = 3
-         N_PARAMS = 0
+         NPARAMS = 0
          SRNAMT = 'SSYSVXX'
          INFOT = 1
          EQ = 'N'
@@ -809,7 +809,7 @@
          CALL CHKXER( 'SSYSVXX', INFOT, NOUT, LERR, OK )
          INFOT = 2
          CALL SSYSVXX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, B, 1, X,
-     $        1, RCOND, RPVGRW, BERR, B_ERR_BNDS, ERR_BNDS_N,
+     $        1, 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 = 3

diff --git a/TESTING/LIN/zdrvgbx.f b/TESTING/LIN/zdrvgbx.f
index f9e60615cace46e64f90a4996d6099365aafa5cf..dfff5e62708cd503e3b7196034d9bb5141a5cded 100644 (file)
--- a/TESTING/LIN/zdrvgbx.f
+++ b/TESTING/LIN/zdrvgbx.f
@@ -739,11 +739,11 @@ c                     write(*,*) 'begin zgbsvxx testing'
 *                    and error bounds using ZGBSVXX.
 *
                      SRNAMT = 'ZGBSVXX'
-                     n_err_bnds = 3
+                     N_ERR_BNDS = 3
                      CALL ZGBSVXX( FACT, TRANS, N, KL, KU, NRHS, A, LDA,
      $                    AFB, LDAFB, IWORK, EQUED, S, S( N+1 ), B, LDB,
-     $                    X, LDB, rcond, rpvgrw_svxx, berr, n_err_bnds,
-     $                    errbnds_n, errbnds_c, 0, ZERO, WORK,
+     $                    X, LDB, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
+     $                    ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
      $                    RWORK, INFO )
 *
 *                    Check the error code from ZGBSVXX.

diff --git a/TESTING/LIN/zdrvhex.f b/TESTING/LIN/zdrvhex.f
index 65af5e526e44fe109f9306a391eb65ce0d641e77..d68a3f1ab4f737dbaf17481c8fdd990d01c97656 100644 (file)
--- a/TESTING/LIN/zdrvhex.f
+++ b/TESTING/LIN/zdrvhex.f
@@ -95,7 +95,8 @@
       CHARACTER*3        PATH
       INTEGER            I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO,
      $                   IZERO, J, K, K1, KL, KU, LDA, LWORK, MODE, N,
-     $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT
+     $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT,
+     $                   N_ERR_BNDS
       DOUBLE PRECISION   AINVNM, ANORM, CNDNUM, RCOND, RCONDC,
      $                   RPVGRW_SVXX
 *     ..

diff --git a/TESTING/LIN/zdrvpox.f b/TESTING/LIN/zdrvpox.f
index 7c73260d2dfceed2a764fcacc05ad5dc7e3b5f2b..e3321a62ed836c046cad71e57c5779df7705ba1d 100644 (file)
--- a/TESTING/LIN/zdrvpox.f
+++ b/TESTING/LIN/zdrvpox.f
@@ -528,10 +528,11 @@
 *                    and error bounds using ZPOSVXX.
 *
                      SRNAMT = 'ZPOSVXX'
+                     N_ERR_BNDS = 3
                      CALL ZPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AFAC,
      $                    LDA, EQUED, S, B, LDA, X,
-     $                    LDA, rcond, rpvgrw_svxx, berr, n_err_bnds,
-     $                    errbnds_n, errbnds_c, 0, ZERO, WORK,
+     $                    LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
+     $                    ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
      $                    RWORK( 2*NRHS+1 ), INFO )
 *
 *                    Check the error code from ZPOSVXX.

diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f
index 34036d79d30d1a4a949a01c9b4479c51614536cb..23423e2be52ce647b73189329acb24d2de2ac2a1 100644 (file)
--- a/TESTING/LIN/zerrvxx.f
+++ b/TESTING/LIN/zerrvxx.f
@@ -979,7 +979,7 @@
 *        ZSYSVXX
 *
          N_ERR_BNDS = 3
-         N_PARAMS = 0
+         NPARAMS = 0
          SRNAMT = 'ZSYSVXX'
          INFOT = 1
          EQ = 'N'
@@ -989,7 +989,7 @@
          CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK )
          INFOT = 2
          CALL ZSYSVXX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, B, 1, X,
-     $        1, RCOND, RPVGRW, BERR, B_ERR_BNDS, ERR_BNDS_N,
+     $        1, 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 = 3