diff options
Diffstat (limited to 'TESTING/LIN/dchklq.f')
| -rw-r--r-- | TESTING/LIN/dchklq.f | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/TESTING/LIN/dchklq.f b/TESTING/LIN/dchklq.f index 4fb6f33d..310c8020 100644 --- a/TESTING/LIN/dchklq.f +++ b/TESTING/LIN/dchklq.f @@ -1,6 +1,6 @@ SUBROUTINE DCHKLQ( 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( * ) DOUBLE PRECISION A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), $ B( * ), RWORK( * ), TAU( * ), WORK( * ), @@ -94,8 +94,6 @@ * * RWORK (workspace) DOUBLE PRECISION array, dimension (NMAX) * -* IWORK (workspace) INTEGER array, dimension (NMAX) -* * NOUT (input) INTEGER * The unit number for output. * |