From: Denis Davydov <davydden@gmail.com>
Date: Thu, 13 Oct 2016 08:30:33 +0000 (+0200)
Subject: add a quick test for LAPACK
X-Git-Tag: v8.5.0-rc1~576^2~4
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=92da158140a04be269735fbf763080e28602ac84;p=dealii.git

add a quick test for LAPACK
---

diff --git a/tests/quick_tests/CMakeLists.txt b/tests/quick_tests/CMakeLists.txt
index 5cd10638a2..c6ecfc44dc 100644
--- a/tests/quick_tests/CMakeLists.txt
+++ b/tests/quick_tests/CMakeLists.txt
@@ -121,6 +121,11 @@ IF (DEAL_II_WITH_METIS AND DEAL_II_WITH_MPI)
   make_quicktest("step-metis" ${_mybuild} 2)
 ENDIF()
 
+# Test LAPACK
+IF (DEAL_II_WITH_LAPACK)
+  make_quicktest("lapack" ${_mybuild} "")
+ENDIF()
+
 
 
 # A custom test target:
diff --git a/tests/quick_tests/lapack.cc b/tests/quick_tests/lapack.cc
new file mode 100644
index 0000000000..704a9e5fe3
--- /dev/null
+++ b/tests/quick_tests/lapack.cc
@@ -0,0 +1,124 @@
+// ---------------------------------------------------------------------
+//
+// Copyright (C) 2016 by the deal.II authors
+//
+// This file is part of the deal.II library.
+//
+// The deal.II library is free software; you can use it, redistribute
+// it, and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
+// The full text of the license can be found in the file LICENSE at
+// the top level of the deal.II distribution.
+//
+// ---------------------------------------------------------------------
+
+
+// Tests vector multiplication and eigenvalues of LAPACKFullMatrix
+// copy-paste of lapack/full_matrix_01
+
+#include "../tests.h"
+#include <deal.II/base/logstream.h>
+#include <deal.II/lac/lapack_full_matrix.h>
+#include <deal.II/lac/full_matrix.h>
+#include <deal.II/lac/vector.h>
+
+#include <fstream>
+#include <iostream>
+
+/*
+ * Eigenvalues and -vectors of this system are
+ * lambda = 1     v = (1, 1, 1, 1)
+ * lambda = 5     v = (1,-1, 0, 0)
+ * lambda = 5     v = (0, 1,-1, 0)
+ * lambda = 5     v = (0, 0, 1,-1)
+ */
+const double symm[] =
+{
+  4., -1., -1., -1.,
+  -1., 4., -1., -1.,
+  -1., -1., 4., -1.,
+  -1., -1., -1., 4.
+};
+
+const double rect[] =
+{
+  4., 3., 2., 1.,
+  5., 8., 1., -2.,
+  11., 13., -4., -5
+};
+
+
+void test_rect(unsigned int m, unsigned int n, const double *values)
+{
+  std::ostringstream prefix;
+  prefix << m << 'x' << n;
+  deallog.push(prefix.str());
+
+  FullMatrix<double> A(m,n,values);
+  LAPACKFullMatrix<double> LA(m,n);
+  LA = A;
+
+  Vector<double> u(n);
+  Vector<double> v1(m);
+  Vector<double> v2(m);
+
+  for (unsigned int i=0; i<u.size(); ++i)
+    u(i) = i*i;
+
+  deallog << "operator= (const FullMatrix<number>&) ok" << std::endl;
+
+  A.vmult(v1,u);
+  LA.vmult(v2,u);
+  v1 -= v2;
+  if (v1.l2_norm() < 1.e-14)
+    deallog << "vmult ok" << std::endl;
+  v1 = v2;
+
+  A.vmult_add(v1,u);
+  LA.vmult_add(v2,u);
+  v1 -= v2;
+  if (v1.l2_norm() < 1.e-14)
+    deallog << "vmult_add ok" << std::endl;
+
+  LA.Tvmult(u, v2);
+  u *= -1;
+  A.Tvmult_add(u, v2);
+  if (u.l2_norm() < 1.e-14)
+    deallog << "Tvmult ok" << std::endl;
+
+  A.Tvmult(u, v2);
+  u *= -1;
+  LA.Tvmult_add(u, v2);
+  if (u.l2_norm() < 1.e-14)
+    deallog << "Tvmult_add ok" << std::endl;
+
+  deallog.pop();
+}
+
+int main()
+{
+  const std::string logname = "output";
+  std::ofstream logfile(logname.c_str());
+  logfile.precision(3);
+  deallog.attach(logfile);
+  deallog.threshold_double(1.e-10);
+
+  test_rect(3,4,rect);
+  test_rect(4,3,rect);
+  test_rect(4,4,symm);
+
+  // Test symmetric system
+  FullMatrix<double> A(4,4,symm);
+  LAPACKFullMatrix<double> LA(4,4);
+  A.fill(symm);
+  LA = A;
+  LA.compute_eigenvalues();
+  for (unsigned int i=0; i<A.m(); ++i)
+    {
+      std::complex<double> lambda = LA.eigenvalue(i);
+      deallog << "Eigenvalues "
+              << (int) (lambda.real()+.0001) << '\t'
+              << (int) (lambda.imag()+.0001) << std::endl;
+    }
+}