/home/vivien/public_html/.src_seldon/computation/interfaces/direct/UmfPack.hxx

// Copyright (C) 2003-2009 Marc Duruflé
//
// 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_UMFPACK_HXX

extern "C"
{
#include "umfpack.h"
}

namespace Seldon
{
  template<class T>
  class MatrixUmfPack_Base
  {
  public :
    Vector<double> Control, Info; 
    void *Symbolic, *Numeric ; 
    int n; 
    int print_level;
    bool transpose; 
    int status_facto;

  public :
    MatrixUmfPack_Base();

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

    int GetInfoFactorization() const;

    void SelectOrdering(int type);
    void SetPermutation(const IVect&);
  };

  template<class T>
  class MatrixUmfPack : public MatrixUmfPack_Base<T>
  {
  };

  template<>
  class MatrixUmfPack<double> : public MatrixUmfPack_Base<double>
  {

  protected :
    int* ind_, *ptr_;
    double* data_;

  public :

    MatrixUmfPack();
    ~MatrixUmfPack();

    void Clear();

    template<class Prop, class Storage, class Allocator>
    void FactorizeMatrix(Matrix<double, Prop, Storage, Allocator> & mat,
                         bool keep_matrix = false);

    template<class Prop, class Allocator>
    void PerformAnalysis(Matrix<double, Prop, RowSparse, Allocator> & mat);

    template<class Prop, class Allocator>
    void
    PerformFactorization(Matrix<double, Prop, RowSparse, Allocator> & mat);

    template<class Allocator2>
    void Solve(Vector<double, VectFull, Allocator2>& x);

    template<class StatusTrans, class Allocator2>
    void Solve(const StatusTrans&, Vector<double, VectFull, Allocator2>& x);

  };


  template<>
  class MatrixUmfPack<complex<double> >
    : public MatrixUmfPack_Base<complex<double> >
  {

  protected:
    int* ptr_, *ind_;
    double* data_real_, *data_imag_;

  public :

    MatrixUmfPack();
    ~MatrixUmfPack();

    void Clear();

    template<class Prop, class Storage, class Allocator>
    void
    FactorizeMatrix(Matrix<complex<double>, Prop, Storage, Allocator> & mat,
                    bool keep_matrix = false);

    template<class Allocator2>
    void Solve(Vector<complex<double>, VectFull, Allocator2>& x);

    template<class StatusTrans, class Allocator2>
    void Solve(const StatusTrans&, Vector<complex<double>, VectFull, Allocator2>& x);

  };

}

#define SELDON_FILE_UMFPACK_HXX
#endif