fix_scalapack tests

diff --git a/tests/fail/scalapack_15_b.cc b/tests/fail/scalapack_15_b.cc
index b23029014af971630df915855344b70929252c00..5df8a6a0320b8e78106f8a754123136c3373bfaa 100644 (file)
--- a/tests/fail/scalapack_15_b.cc
+++ b/tests/fail/scalapack_15_b.cc
@@ -93,9 +93,8 @@ test(const unsigned int size,
     int        LDA   = size; // leading dimension of the matrix A
     NumberType vl = 0, vu = 0;
     int        il = size - max_n_eigenvalues + 1, iu = size;
-    char       sign = 'S';
-    NumberType abstol;
-    lamch(&sign, abstol);
+    char       sign   = 'S';
+    NumberType abstol = lamch(&sign);
     abstol *= 2;
     int                     m = 0;
     std::vector<NumberType> eigenvectors(size * size);

diff --git a/tests/scalapack/scalapack_15.cc b/tests/scalapack/scalapack_15.cc
index 11ec2a12177b01aa7ee33c9295a03c20f1624dfb..f333fa005ae0760b3c40dad77cff4702efb77882 100644 (file)
--- a/tests/scalapack/scalapack_15.cc
+++ b/tests/scalapack/scalapack_15.cc
@@ -93,9 +93,8 @@ test(const unsigned int size,
     int        LDA   = size; // leading dimension of the matrix A
     NumberType vl = 0, vu = 0;
     int        il = 1, iu = size;
-    char       sign = 'S';
-    NumberType abstol;
-    lamch(&sign, abstol);
+    char       sign   = 'S';
+    NumberType abstol = lamch(&sign);
     abstol *= 2;
     int                     m = 0;
     std::vector<NumberType> eigenvectors(size * size);

diff --git a/tests/scalapack/scalapack_15_a.cc b/tests/scalapack/scalapack_15_a.cc
index 8400cd58fe3c9cff003c1b68b72ac70ad9c766ec..5954b2d6e45b263fa680ba29a161ceb2422fe877 100644 (file)
--- a/tests/scalapack/scalapack_15_a.cc
+++ b/tests/scalapack/scalapack_15_a.cc
@@ -93,9 +93,8 @@ test(const unsigned int size,
     int        LDA   = size; // leading dimension of the matrix A
     NumberType vl = 0, vu = 0;
     int        il = 1, iu = size;
-    char       sign = 'S';
-    NumberType abstol;
-    lamch(&sign, abstol);
+    char       sign   = 'S';
+    NumberType abstol = lamch(&sign);
     abstol *= 2;
     int                     m = 0;
     std::vector<NumberType> eigenvectors(size * size); // will not be referenced