/home/vivien/public_html/.src_seldon/computation/solver/SparseSolver.hxx

// Copyright (C) 2011 Marc Duruflé
// Copyright (C) 2010 Vivien Mallet
//
// This file is part of the linear-algebra library Seldon,
// http://seldon.sourceforge.net/.
//
// Seldon is free software; you can 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.
//
// Seldon is distributed in the hope that it will be useful, but WITHOUT ANY
// WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
// FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
// more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with Seldon. If not, see http://www.gnu.org/licenses/.


#ifndef SELDON_FILE_COMPUTATION_SPARSESOLVER_HXX
#define SELDON_FILE_COMPUTATION_SPARSESOLVER_HXX


#include "Ordering.hxx"


namespace Seldon
{

  template<class T, class Allocator = SELDON_DEFAULT_ALLOCATOR<T> >
  class SparseSeldonSolver
  {
  protected :
    int print_level;
    double permtol;
    Matrix<T, Symmetric, ArrayRowSymSparse, Allocator> mat_sym;
    Matrix<T, General, ArrayRowSparse, Allocator> mat_unsym;
    IVect permutation_row, permutation_col;
    Vector<T, VectFull, Allocator> xtmp;
    bool symmetric_matrix;

  public :

    SparseSeldonSolver();

    void Clear();

    void HideMessages();
    void ShowMessages();

    double GetPivotThreshold() const;
    void SetPivotThreshold(const double&);

    template<class T0, class Storage0, class Allocator0>
    void FactorizeMatrix(const IVect& perm,
                         Matrix<T0, General, Storage0, Allocator0>& mat,
                         bool keep_matrix = false);

    template<class T0, class Storage0, class Allocator0>
    void FactorizeMatrix(const IVect& perm,
                         Matrix<T0, Symmetric, Storage0, Allocator0>& mat,
                         bool keep_matrix = false);

    template<class Vector1>
    void Solve(Vector1& z);

    template<class TransStatus, class Vector1>
    void Solve(const TransStatus& TransA, Vector1& z);

  };


  template<class T>
  class SparseDirectSolver
  {
  protected :
    int type_ordering;
    int type_solver;
    int number_threads_per_node;
    IVect permut;
    int n;

#ifdef SELDON_WITH_UMFPACK

    MatrixUmfPack<T> mat_umf;
#endif
#ifdef SELDON_WITH_SUPERLU

    MatrixSuperLU<T> mat_superlu;
#endif
#ifdef SELDON_WITH_MUMPS

    MatrixMumps<T> mat_mumps;
#endif
#ifdef SELDON_WITH_PASTIX

    MatrixPastix<T> mat_pastix;
#endif

#ifdef SELDON_WITH_PRECONDITIONING

    IlutPreconditioning<double, T, NewAlloc<T> > mat_ilut;
#endif

    double threshold_matrix;
    bool enforce_unsym_ilut;

    SparseSeldonSolver<T> mat_seldon;

  public :
    // Available solvers.
    enum {SELDON_SOLVER, UMFPACK, SUPERLU, MUMPS, PASTIX, ILUT};
    // Error codes.
    enum {FACTO_OK, STRUCTURALLY_SINGULAR_MATRIX,
          NUMERICALLY_SINGULAR_MATRIX, OUT_OF_MEMORY, INVALID_ARGUMENT,
          INCORRECT_NUMBER_OF_ROWS, MATRIX_INDICES_INCORRECT,
          INVALID_PERMUTATION, ORDERING_FAILED, INTERNAL_ERROR};

    SparseDirectSolver();

    void HideMessages();
    void ShowMessages();
    void ShowFullHistory();

    void Clear();

    int GetM() const;
    int GetN() const;

    int GetTypeOrdering() const;
    void SetPermutation(const IVect&);
    void SelectOrdering(int);

    void SetNumberThreadPerNode(int m);

    template<class MatrixSparse>
    void ComputeOrdering(MatrixSparse& A);

    void SelectDirectSolver(int);
    void SetNonSymmetricIlut();

    int GetDirectSolver();

    double GetThresholdMatrix() const;

    template<class MatrixSparse>
    void Factorize(MatrixSparse& A, bool keep_matrix = false);

    int GetInfoFactorization(int& ierr) const;

    template<class Vector1>
    void Solve(Vector1& x);

    template<class TransStatus, class Vector1>
    void Solve(const TransStatus& TransA, Vector1& x);

#ifdef SELDON_WITH_MPI
    template<class Tint>
    void FactorizeDistributed(MPI::Comm& comm_facto,
                              Vector<Tint>& Ptr, Vector<Tint>& IndRow,
                              Vector<T>& Val, const IVect& glob_num,
                              bool sym, bool keep_matrix = false);

    template<class Vector1>
    void SolveDistributed(MPI::Comm& comm_facto, Vector1& x_solution,
                          const IVect& glob_number);

    template<class TransStatus, class Vector1>
    void SolveDistributed(MPI::Comm& comm_facto,
                          const TransStatus& TransA, Vector1& x_solution,
                          const IVect& glob_number);
#endif


  };


  template <class T0, class Prop0, class Storage0, class Allocator0,
            class T1, class Storage1, class Allocator1>
  void SparseSolve(Matrix<T0, Prop0, Storage0, Allocator0>& M,
                   Vector<T1, Storage1, Allocator1>& Y);


  template <class T, class Prop0, class Allocator0, class Allocator1>
  void Solve(Matrix<T, Prop0, ColSparse, Allocator0>& M,
             Vector<T, VectFull, Allocator1>& Y);


  template <class T, class Prop0, class Allocator0, class Allocator1>
  void Solve(Matrix<T, Prop0, RowSparse, Allocator0>& M,
             Vector<T, VectFull, Allocator1>& Y);


}  // namespace Seldon.


#endif