diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-06-22 09:45:40 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-06-22 09:45:40 +0000 |
| commit | 0d0b443c697874898ee9947afe634c1b89761dce (patch) | |
| tree | 27a6fd0102f166d128c1f5e9ae60942e788a242d /TESTING/MATGEN | |
| parent | ffd034b32b7f443988c8fb54274b97d5968dbd85 (diff) | |
| download | lapack-0d0b443c697874898ee9947afe634c1b89761dce.tar.gz lapack-0d0b443c697874898ee9947afe634c1b89761dce.tar.bz2 lapack-0d0b443c697874898ee9947afe634c1b89761dce.zip | |
Summer cleanup
Cleanup some codes, like unused variables.
Used -Walls to detect problems.
Diffstat (limited to 'TESTING/MATGEN')
| -rw-r--r-- | TESTING/MATGEN/clatme.f | 8 | ||||
| -rw-r--r-- | TESTING/MATGEN/zlatme.f | 8 |
2 files changed, 4 insertions, 12 deletions
diff --git a/TESTING/MATGEN/clatme.f b/TESTING/MATGEN/clatme.f index c27ba827..ae14e829 100644 --- a/TESTING/MATGEN/clatme.f +++ b/TESTING/MATGEN/clatme.f @@ -1,4 +1,4 @@ - SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, $ RSIGN, $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, $ A, @@ -9,7 +9,7 @@ * June 2010 * * .. Scalar Arguments .. - CHARACTER DIST, EI, RSIGN, SIM, UPPER + CHARACTER DIST, RSIGN, SIM, UPPER INTEGER INFO, KL, KU, LDA, MODE, MODES, N REAL ANORM, COND, CONDS COMPLEX DMAX @@ -118,10 +118,6 @@ * equal to DMAX. * Not modified. * -* EI (input) CHARACTER*1 array, dimension ( N ) -* (ignored) -* Not modified. -* * RSIGN (input) CHARACTER*1 * If MODE is not 0, 6, or -6, and RSIGN='T', then the * elements of D, as computed according to MODE and COND, will diff --git a/TESTING/MATGEN/zlatme.f b/TESTING/MATGEN/zlatme.f index f3345ce2..0063b06c 100644 --- a/TESTING/MATGEN/zlatme.f +++ b/TESTING/MATGEN/zlatme.f @@ -1,4 +1,4 @@ - SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, $ RSIGN, $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, $ A, @@ -9,7 +9,7 @@ * June 2010 * * .. Scalar Arguments .. - CHARACTER DIST, EI, RSIGN, SIM, UPPER + CHARACTER DIST, RSIGN, SIM, UPPER INTEGER INFO, KL, KU, LDA, MODE, MODES, N DOUBLE PRECISION ANORM, COND, CONDS COMPLEX*16 DMAX @@ -118,10 +118,6 @@ * equal to DMAX. * Not modified. * -* EI (input) CHARACTER*1 array, dimension ( N ) -* (ignored) -* Not modified. -* * RSIGN (input) CHARACTER*1 * If MODE is not 0, 6, or -6, and RSIGN='T', then the * elements of D, as computed according to MODE and COND, will |