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/LIN/schkql.f | |
| 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/LIN/schkql.f')
| -rw-r--r-- | TESTING/LIN/schkql.f | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/TESTING/LIN/schkql.f b/TESTING/LIN/schkql.f index 09d98dec..e5778d50 100644 --- a/TESTING/LIN/schkql.f +++ b/TESTING/LIN/schkql.f @@ -1,6 +1,6 @@ SUBROUTINE SCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, - $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * * -- LAPACK test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. @@ -13,7 +13,7 @@ * .. * .. Array Arguments .. LOGICAL DOTYPE( * ) - INTEGER IWORK( * ), MVAL( * ), NBVAL( * ), NVAL( * ), + INTEGER MVAL( * ), NBVAL( * ), NVAL( * ), $ NXVAL( * ) REAL A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), $ B( * ), RWORK( * ), TAU( * ), WORK( * ), @@ -94,8 +94,6 @@ * * RWORK (workspace) REAL array, dimension (NMAX) * -* IWORK (workspace) INTEGER array, dimension (NMAX) -* * NOUT (input) INTEGER * The unit number for output. * |