1 // This file is part of Eigen, a lightweight C++ template library
2 // for linear algebra.
3 //
4 // Copyright (C) 2008-2012 Gael Guennebaud <gael.guennebaud@inria.fr>
5 // Copyright (C) 2012 Désiré Nuentsa-Wakam <desire.nuentsa_wakam@inria.fr>
6 //
7 // This Source Code Form is subject to the terms of the Mozilla
8 // Public License v. 2.0. If a copy of the MPL was not distributed
9 // with this file, You can obtain one at http://mozilla.org/MPL/2.0/.
10 #include "sparse_solver.h"
11 #include <Eigen/PaStiXSupport>
12 #include <unsupported/Eigen/SparseExtra>
13 
14 
test_pastix_T()15 template<typename T> void test_pastix_T()
16 {
17   PastixLLT< SparseMatrix<T, ColMajor>, Eigen::Lower > pastix_llt_lower;
18   PastixLDLT< SparseMatrix<T, ColMajor>, Eigen::Lower > pastix_ldlt_lower;
19   PastixLLT< SparseMatrix<T, ColMajor>, Eigen::Upper > pastix_llt_upper;
20   PastixLDLT< SparseMatrix<T, ColMajor>, Eigen::Upper > pastix_ldlt_upper;
21   PastixLU< SparseMatrix<T, ColMajor> > pastix_lu;
22 
23   check_sparse_spd_solving(pastix_llt_lower);
24   check_sparse_spd_solving(pastix_ldlt_lower);
25   check_sparse_spd_solving(pastix_llt_upper);
26   check_sparse_spd_solving(pastix_ldlt_upper);
27   check_sparse_square_solving(pastix_lu);
28 }
29 
30 // There is no support for selfadjoint matrices with PaStiX.
31 // Complex symmetric matrices should pass though
test_pastix_T_LU()32 template<typename T> void test_pastix_T_LU()
33 {
34   PastixLU< SparseMatrix<T, ColMajor> > pastix_lu;
35   check_sparse_square_solving(pastix_lu);
36 }
37 
test_pastix_support()38 void test_pastix_support()
39 {
40   CALL_SUBTEST_1(test_pastix_T<float>());
41   CALL_SUBTEST_2(test_pastix_T<double>());
42   CALL_SUBTEST_3( (test_pastix_T_LU<std::complex<float> >()) );
43   CALL_SUBTEST_4(test_pastix_T_LU<std::complex<double> >());
44 }
45