Corrected minor bug submitted by Elena Ivanova, Oracle on March 18th 2014.

From Elena:
there is a minor bug in /LIN/dchkql.f:
Array IWORK  (a parameter of this routine) is not used at all.
It would be better to remove IWORK from the list of parameters,
remove its declaration and description in the code of /LIN/dchkql.f:

Note: only dchkql had that IWORK parameter, [c,s,z]chkql don't have it.

diff --git a/TESTING/LIN/dchkaa.f b/TESTING/LIN/dchkaa.f
index e256d84f9a4e2a19b13732052ab6e55b5509107d..43076b36570c7efff2151f20e807ede711bedf8e 100644 (file)
--- a/TESTING/LIN/dchkaa.f
+++ b/TESTING/LIN/dchkaa.f
@@ -784,7 +784,7 @@
      $                   NRHS, THRESH, TSTERR, NMAX, A( 1, 1 ),
      $                   A( 1, 2 ), A( 1, 3 ), A( 1, 4 ), A( 1, 5 ),
      $                   B( 1, 1 ), B( 1, 2 ), B( 1, 3 ), B( 1, 4 ),
-     $                   WORK, RWORK, IWORK, NOUT )
+     $                   WORK, RWORK, NOUT )
          ELSE
             WRITE( NOUT, FMT = 9989 )PATH
          END IF

diff --git a/TESTING/LIN/dchkql.f b/TESTING/LIN/dchkql.f
index f8ce05e21445a1896ca784b1608b1ab7acbb27cf..3dbf6717ade1e8f73d9196692e5bccf9cdfb34e0 100644 (file)
--- a/TESTING/LIN/dchkql.f
+++ b/TESTING/LIN/dchkql.f
@@ -10,7 +10,7 @@
 *
 *       SUBROUTINE DCHKQL( 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 )
 * 
 *       .. Scalar Arguments ..
 *       LOGICAL            TSTERR
@@ -19,7 +19,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( * ),
@@ -173,11 +173,6 @@
 *>          RWORK is DOUBLE PRECISION array, dimension (NMAX)
 *> \endverbatim
 *>
-*> \param[out] IWORK
-*> \verbatim
-*>          IWORK is INTEGER array, dimension (NMAX)
-*> \endverbatim
-*>
 *> \param[in] NOUT
 *> \verbatim
 *>          NOUT is INTEGER
@@ -199,7 +194,7 @@
 *  =====================================================================
       SUBROUTINE DCHKQL( 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.4.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
@@ -213,7 +208,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( * ),