maint: removed unused variables in testing routines

Several routines had unused variables

Signed-off-by: Nick Papior <nickpapior@gmail.com>

diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f
index 1a2eb53..0cd5c3b 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 )