Fixed typos and variable types in testing files.

14 files changed, 34 insertions, 29 deletions

diff --git a/TESTING/LIN/cdrvgbx.f b/TESTING/LIN/cdrvgbx.f
index 68cf7fc3..ba250253 100644
--- 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 ee2aeacb..67bbf93e 100644
--- 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 1b460a36..8989cfd3 100644
--- 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 ddf19cf9..0f5c5848 100644
--- 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 677600f0..0dabf130 100644
--- 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 131a3660..7a25a8a8 100644
--- 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 8640657e..6d819509 100644
--- 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 28db6e54..d58b5ce2 100644
--- 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 44a251e5..7225487a 100644
--- 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 ce87b5f9..40a9d94d 100644
--- 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 f9e60615..dfff5e62 100644
--- 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 65af5e52..d68a3f1a 100644
--- 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 7c73260d..e3321a62 100644
--- 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 34036d79..23423e2b 100644
--- 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