diff options
Diffstat (limited to 'TESTING/LIN/schklq.f')
| -rw-r--r-- | TESTING/LIN/schklq.f | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/TESTING/LIN/schklq.f b/TESTING/LIN/schklq.f index 38a59066..a6ccabd5 100644 --- a/TESTING/LIN/schklq.f +++ b/TESTING/LIN/schklq.f @@ -1,6 +1,6 @@ SUBROUTINE SCHKLQ( 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. * |