projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 40c9efd)
Patching LAPACK testing routines according to Mike Pont (NAG)'s forum post #2894.
authorlangou <langou@users.noreply.github.com>
Wed, 30 Nov 2011 13:34:58 +0000 (13:34 +0000)
committerlangou <langou@users.noreply.github.com>
Wed, 30 Nov 2011 13:34:58 +0000 (13:34 +0000)
http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=2894

TESTING/LIN/cdrvhex.f patch | blob | history
TESTING/LIN/cdrvsyx.f patch | blob | history
TESTING/LIN/zdrvhex.f patch | blob | history
TESTING/LIN/zdrvsyx.f patch | blob | history

diff --git a/TESTING/LIN/cdrvhex.f b/TESTING/LIN/cdrvhex.f
index fda06b7..67d99d4 100644 (file)
--- a/TESTING/LIN/cdrvhex.f
+++ b/TESTING/LIN/cdrvhex.f
@@ -614,7 +614,7 @@
      $                 LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X,
      $                 LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
      $                 ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
-     $                 IWORK( N+1 ), INFO )
+     $                 RWORK, INFO )
 *
 *                 Adjust the expected value of INFO to account for
 *                 pivoting.
diff --git a/TESTING/LIN/cdrvsyx.f b/TESTING/LIN/cdrvsyx.f
index 600f70b..7bbefa1 100644 (file)
--- a/TESTING/LIN/cdrvsyx.f
+++ b/TESTING/LIN/cdrvsyx.f
@@ -620,7 +620,7 @@
      $                 LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X,
      $                 LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
      $                 ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
-     $                 IWORK( N+1 ), INFO )
+     $                 RWORK, INFO )
 *
 *                 Adjust the expected value of INFO to account for
 *                 pivoting.
diff --git a/TESTING/LIN/zdrvhex.f b/TESTING/LIN/zdrvhex.f
index d488142..1143481 100644 (file)
--- a/TESTING/LIN/zdrvhex.f
+++ b/TESTING/LIN/zdrvhex.f
@@ -614,7 +614,7 @@
      $                 LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X,
      $                 LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
      $                 ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
-     $                 IWORK( N+1 ), INFO )
+     $                 RWORK, INFO )
 *
 *                 Adjust the expected value of INFO to account for
 *                 pivoting.
diff --git a/TESTING/LIN/zdrvsyx.f b/TESTING/LIN/zdrvsyx.f
index 68b14a0..c626c06 100644 (file)
--- a/TESTING/LIN/zdrvsyx.f
+++ b/TESTING/LIN/zdrvsyx.f
@@ -620,7 +620,7 @@
      $                 LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X,
      $                 LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
      $                 ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
-     $                 IWORK( N+1 ), INFO )
+     $                 RWORK, INFO )
 *
 *                 Adjust the expected value of INFO to account for
 *                 pivoting.
Domain: System / Base;