From: Nick Papior Date: Sun, 18 Sep 2016 12:42:59 +0000 (+0200) Subject: maint: removed unused variables in testing routines X-Git-Tag: accepted/tizen/5.0/unified/20181102.024111~132^2 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ac6017c437977f9924258200a8cd40b33f98975c;p=platform%2Fupstream%2Flapack.git maint: removed unused variables in testing routines Several routines had unused variables Signed-off-by: Nick Papior --- diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index 1a2eb53..0cd5c3b 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 4ab86d0..402de2f 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 4c1f5af..50252b5 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 dc2ba5e..af05f3c 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 28cd335..d8f2fc1 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 a1399d5..ab3c3a9 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 275451c..a145a3f 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 6e7c379..d6ffeb5 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 8436e34..97eeec4 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 822bdcc..4c8cc06 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 2da2d37..ebfce9c 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 fdcd154..8d5ca44 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 75611c0..c18774c 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 67d16b7..71c6f94 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 97f57d8..7cfbc67 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 c0fbf8b..9d132bd 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 )