diff options
author | langou <julien.langou@ucdenver.edu> | 2016-09-18 15:11:15 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-09-18 15:11:15 +0200 |
commit | f50a461085ea94f972f05ea03d15fc56c4b09b74 (patch) | |
tree | fd1fd1b1037064e5701e010cc9b4d297738eb36c /TESTING | |
parent | 7bd944279193dd7d85294286973b40c2ee80ba5b (diff) | |
parent | ac6017c437977f9924258200a8cd40b33f98975c (diff) | |
download | lapack-f50a461085ea94f972f05ea03d15fc56c4b09b74.tar.gz lapack-f50a461085ea94f972f05ea03d15fc56c4b09b74.tar.bz2 lapack-f50a461085ea94f972f05ea03d15fc56c4b09b74.zip |
Merge pull request #53 from zerothi/test-unused
maint: removed unused variables in testing routines
Diffstat (limited to 'TESTING')
-rw-r--r-- | TESTING/EIG/cbdt05.f | 1 | ||||
-rw-r--r-- | TESTING/EIG/dbdt05.f | 1 | ||||
-rw-r--r-- | TESTING/EIG/dchkbd.f | 4 | ||||
-rw-r--r-- | TESTING/EIG/sbdt05.f | 1 | ||||
-rw-r--r-- | TESTING/EIG/schkbd.f | 4 | ||||
-rw-r--r-- | TESTING/EIG/zbdt05.f | 1 | ||||
-rw-r--r-- | TESTING/LIN/cchkhe_rook.f | 7 | ||||
-rw-r--r-- | TESTING/LIN/cchksy_rook.f | 5 | ||||
-rw-r--r-- | TESTING/LIN/cqrt17.f | 3 | ||||
-rw-r--r-- | TESTING/LIN/dchksy_rook.f | 7 | ||||
-rw-r--r-- | TESTING/LIN/dqrt17.f | 3 | ||||
-rw-r--r-- | TESTING/LIN/schksy_rook.f | 7 | ||||
-rw-r--r-- | TESTING/LIN/sqrt17.f | 3 | ||||
-rw-r--r-- | TESTING/LIN/zchkhe_rook.f | 7 | ||||
-rw-r--r-- | TESTING/LIN/zchksy_rook.f | 5 | ||||
-rw-r--r-- | TESTING/LIN/zqrt17.f | 3 |
16 files changed, 24 insertions, 38 deletions
diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index 1a2eb53c..0cd5c3bb 100644 --- a/TESTING/EIG/cbdt05.f +++ b/TESTING/EIG/cbdt05.f @@ -130,7 +130,6 @@ * November 2011 * * .. Scalar Arguments .. - CHARACTER UPLO INTEGER LDA, LDU, LDVT, M, N, NS REAL RESID * .. diff --git a/TESTING/EIG/dbdt05.f b/TESTING/EIG/dbdt05.f index 4ab86d0c..402de2fa 100644 --- a/TESTING/EIG/dbdt05.f +++ b/TESTING/EIG/dbdt05.f @@ -130,7 +130,6 @@ * November 2011 * * .. Scalar Arguments .. - CHARACTER UPLO INTEGER LDA, LDU, LDVT, M, N, NS DOUBLE PRECISION RESID * .. diff --git a/TESTING/EIG/dchkbd.f b/TESTING/EIG/dchkbd.f index 4c1f5af2..50252b5e 100644 --- a/TESTING/EIG/dchkbd.f +++ b/TESTING/EIG/dchkbd.f @@ -531,8 +531,8 @@ $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, $ NS1, NS2, NTEST DOUBLE PRECISION ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, - $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, - $ UNFL, VL, VU + $ RTUNFL, TEMP1, TEMP2, ULP, ULPINV, UNFL, + $ VL, VU * .. * .. Local Arrays .. INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), diff --git a/TESTING/EIG/sbdt05.f b/TESTING/EIG/sbdt05.f index dc2ba5e9..af05f3ce 100644 --- a/TESTING/EIG/sbdt05.f +++ b/TESTING/EIG/sbdt05.f @@ -130,7 +130,6 @@ * November 2011 * * .. Scalar Arguments .. - CHARACTER UPLO INTEGER LDA, LDU, LDVT, M, N, NS REAL RESID * .. diff --git a/TESTING/EIG/schkbd.f b/TESTING/EIG/schkbd.f index 28cd3352..d8f2fc11 100644 --- a/TESTING/EIG/schkbd.f +++ b/TESTING/EIG/schkbd.f @@ -531,8 +531,8 @@ $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, $ NS1, NS2, NTEST REAL ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, - $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, - $ UNFL, VL, VU + $ RTUNFL, TEMP1, TEMP2, ULP, ULPINV, UNFL, + $ VL, VU * .. * .. Local Arrays .. INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), diff --git a/TESTING/EIG/zbdt05.f b/TESTING/EIG/zbdt05.f index a1399d57..ab3c3a98 100644 --- a/TESTING/EIG/zbdt05.f +++ b/TESTING/EIG/zbdt05.f @@ -130,7 +130,6 @@ * November 2011 * * .. Scalar Arguments .. - CHARACTER UPLO INTEGER LDA, LDU, LDVT, M, N, NS DOUBLE PRECISION RESID * .. diff --git a/TESTING/LIN/cchkhe_rook.f b/TESTING/LIN/cchkhe_rook.f index 275451cb..a145a3f9 100644 --- a/TESTING/LIN/cchkhe_rook.f +++ b/TESTING/LIN/cchkhe_rook.f @@ -211,15 +211,14 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, - $ ITEMP, ITEMP2, IUPLO, IZERO, J, K, KL, KU, LDA, - $ LWORK, MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS, - $ NRUN, NT + $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, + $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT REAL ALPHA, ANORM, CNDNUM, CONST, SING_MAX, $ SING_MIN, RCOND, RCONDC, STEMP * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) - INTEGER ISEED( 4 ), ISEEDY( 4 ), IDUMMY( 1 ) + INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) COMPLEX BLOCK( 2, 2 ), CDUMMY( 1 ) * .. diff --git a/TESTING/LIN/cchksy_rook.f b/TESTING/LIN/cchksy_rook.f index 6e7c3793..d6ffeb52 100644 --- a/TESTING/LIN/cchksy_rook.f +++ b/TESTING/LIN/cchksy_rook.f @@ -211,9 +211,8 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, - $ ITEMP, ITEMP2, IUPLO, IZERO, J, K, KL, KU, LDA, - $ LWORK, MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS, - $ NRUN, NT + $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, + $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT REAL ALPHA, ANORM, CNDNUM, CONST, SING_MAX, $ SING_MIN, RCOND, RCONDC, STEMP * .. diff --git a/TESTING/LIN/cqrt17.f b/TESTING/LIN/cqrt17.f index 8436e348..97eeec4c 100644 --- a/TESTING/LIN/cqrt17.f +++ b/TESTING/LIN/cqrt17.f @@ -172,8 +172,7 @@ * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, NORMX, - $ SMLNUM + REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. REAL RWORK( 1 ) diff --git a/TESTING/LIN/dchksy_rook.f b/TESTING/LIN/dchksy_rook.f index 822bdcc5..4c8cc066 100644 --- a/TESTING/LIN/dchksy_rook.f +++ b/TESTING/LIN/dchksy_rook.f @@ -205,15 +205,14 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, - $ ITEMP, IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, - $ MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, - $ NT + $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, + $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT DOUBLE PRECISION ALPHA, ANORM, CNDNUM, CONST, DTEMP, SING_MAX, $ SING_MIN, RCOND, RCONDC * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) - INTEGER IDUMMY( 1 ), ISEED( 4 ), ISEEDY( 4 ) + INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION BLOCK( 2, 2 ), DDUMMY( 1 ), RESULT( NTESTS ) * .. * .. External Functions .. diff --git a/TESTING/LIN/dqrt17.f b/TESTING/LIN/dqrt17.f index 2da2d376..ebfce9cc 100644 --- a/TESTING/LIN/dqrt17.f +++ b/TESTING/LIN/dqrt17.f @@ -172,8 +172,7 @@ * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, NORMX, - $ SMLNUM + DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. DOUBLE PRECISION RWORK( 1 ) diff --git a/TESTING/LIN/schksy_rook.f b/TESTING/LIN/schksy_rook.f index fdcd154c..8d5ca447 100644 --- a/TESTING/LIN/schksy_rook.f +++ b/TESTING/LIN/schksy_rook.f @@ -205,15 +205,14 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, - $ ITEMP, IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, - $ MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, - $ NT + $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, + $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT REAL ALPHA, ANORM, CNDNUM, CONST, SING_MAX, $ SING_MIN, RCOND, RCONDC, STEMP * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) - INTEGER IDUMMY( 1 ), ISEED( 4 ), ISEEDY( 4 ) + INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL BLOCK( 2, 2 ), RESULT( NTESTS ), SDUMMY( 1 ) * .. * .. External Functions .. diff --git a/TESTING/LIN/sqrt17.f b/TESTING/LIN/sqrt17.f index 75611c0e..c18774c6 100644 --- a/TESTING/LIN/sqrt17.f +++ b/TESTING/LIN/sqrt17.f @@ -172,8 +172,7 @@ * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, NORMX, - $ SMLNUM + REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. REAL RWORK( 1 ) diff --git a/TESTING/LIN/zchkhe_rook.f b/TESTING/LIN/zchkhe_rook.f index 67d16b7b..71c6f940 100644 --- a/TESTING/LIN/zchkhe_rook.f +++ b/TESTING/LIN/zchkhe_rook.f @@ -211,15 +211,14 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, - $ ITEMP, ITEMP2, IUPLO, IZERO, J, K, KL, KU, LDA, - $ LWORK, MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS, - $ NRUN, NT + $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, + $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT DOUBLE PRECISION ALPHA, ANORM, CNDNUM, CONST, SING_MAX, $ SING_MIN, RCOND, RCONDC, DTEMP * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) - INTEGER ISEED( 4 ), ISEEDY( 4 ), IDUMMY( 1 ) + INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) COMPLEX*16 BLOCK( 2, 2 ), ZDUMMY( 1 ) * .. diff --git a/TESTING/LIN/zchksy_rook.f b/TESTING/LIN/zchksy_rook.f index 97f57d81..7cfbc67d 100644 --- a/TESTING/LIN/zchksy_rook.f +++ b/TESTING/LIN/zchksy_rook.f @@ -211,9 +211,8 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, - $ ITEMP, ITEMP2, IUPLO, IZERO, J, K, KL, KU, LDA, - $ LWORK, MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS, - $ NRUN, NT + $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, + $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT DOUBLE PRECISION ALPHA, ANORM, CNDNUM, CONST, DTEMP, SING_MAX, $ SING_MIN, RCOND, RCONDC * .. diff --git a/TESTING/LIN/zqrt17.f b/TESTING/LIN/zqrt17.f index c0fbf8bc..9d132bda 100644 --- a/TESTING/LIN/zqrt17.f +++ b/TESTING/LIN/zqrt17.f @@ -172,8 +172,7 @@ * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, NORMX, - $ SMLNUM + DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. DOUBLE PRECISION RWORK( 1 ) |