summaryrefslogtreecommitdiff
path: root/TESTING
diff options
context:
space:
mode:
Diffstat (limited to 'TESTING')
-rw-r--r--TESTING/EIG/cbdt05.f1
-rw-r--r--TESTING/EIG/dbdt05.f1
-rw-r--r--TESTING/EIG/dchkbd.f4
-rw-r--r--TESTING/EIG/sbdt05.f1
-rw-r--r--TESTING/EIG/schkbd.f4
-rw-r--r--TESTING/EIG/zbdt05.f1
-rw-r--r--TESTING/LIN/cchkhe_rook.f7
-rw-r--r--TESTING/LIN/cchksy_rook.f5
-rw-r--r--TESTING/LIN/cqrt17.f3
-rw-r--r--TESTING/LIN/dchksy_rook.f7
-rw-r--r--TESTING/LIN/dqrt17.f3
-rw-r--r--TESTING/LIN/schksy_rook.f7
-rw-r--r--TESTING/LIN/sqrt17.f3
-rw-r--r--TESTING/LIN/zchkhe_rook.f7
-rw-r--r--TESTING/LIN/zchksy_rook.f5
-rw-r--r--TESTING/LIN/zqrt17.f3
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 )
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-25 03:17:23 +0000