maint: removed unused variables in testing routines

Several routines had unused variables

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

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 )