diff options
author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-01-22 23:28:13 +0000 |
---|---|---|
committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-01-22 23:28:13 +0000 |
commit | ce91deebd43a93991b7344444a323958db2ab64c (patch) | |
tree | acbcdda579374cec7bfd4131c6b44ebffb5f9c26 | |
parent | 749c032e2644bd48b5d8127ab574742d7a739603 (diff) | |
download | lapack-ce91deebd43a93991b7344444a323958db2ab64c.tar.gz lapack-ce91deebd43a93991b7344444a323958db2ab64c.tar.bz2 lapack-ce91deebd43a93991b7344444a323958db2ab64c.zip |
Fixed typos and variable types in testing files.
-rw-r--r-- | TESTING/LIN/cdrvgbx.f | 6 | ||||
-rw-r--r-- | TESTING/LIN/cdrvhex.f | 3 | ||||
-rw-r--r-- | TESTING/LIN/cdrvpox.f | 5 | ||||
-rw-r--r-- | TESTING/LIN/cerrvxx.f | 4 | ||||
-rw-r--r-- | TESTING/LIN/ddrvpox.f | 5 | ||||
-rw-r--r-- | TESTING/LIN/derrsyx.f | 2 | ||||
-rw-r--r-- | TESTING/LIN/derrvxx.f | 4 | ||||
-rw-r--r-- | TESTING/LIN/sdrvgbx.f | 6 | ||||
-rw-r--r-- | TESTING/LIN/sdrvpox.f | 6 | ||||
-rw-r--r-- | TESTING/LIN/serrvxx.f | 4 | ||||
-rw-r--r-- | TESTING/LIN/zdrvgbx.f | 6 | ||||
-rw-r--r-- | TESTING/LIN/zdrvhex.f | 3 | ||||
-rw-r--r-- | TESTING/LIN/zdrvpox.f | 5 | ||||
-rw-r--r-- | TESTING/LIN/zerrvxx.f | 4 |
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 |