MILU.hpp

/*
  Copyright 2015, 2022 Dr. Blatt - HPC-Simulation-Software & Services
  Copyright 2015 Statoil AS

  This file is part of the Open Porous Media project (OPM).

  OPM is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  OPM 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 General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with OPM.  If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef OPM_MILU_HEADER_INCLUDED
#define OPM_MILU_HEADER_INCLUDED

#include <cmath>
#include <cstddef>
#include <functional>
#include <string>
#include <vector>



namespace Opm
{

enum class MILU_VARIANT{
    ILU = 0,
    MILU_1 = 1,
    MILU_2 = 2,
    MILU_3 = 3,
    MILU_4 = 4
};

MILU_VARIANT convertString2Milu(const std::string& milu);


namespace detail
{

template <typename T>
T identityFunctor(const T&);

template <typename T>
T oneFunctor(const T&);

template <typename T>
T signFunctor(const T&);

template <typename T>
T isPositiveFunctor(const T&);

template <typename T>
T absFunctor(const T&);


struct Reorderer
{
    virtual std::size_t operator[](std::size_t i) const = 0;
    virtual ~Reorderer() {}
};

struct NoReorderer : public Reorderer
{
    std::size_t operator[](std::size_t i) const override
    {
        return i;
    }
};

struct RealReorderer : public Reorderer
{
    explicit RealReorderer(const std::vector<std::size_t>& ordering)
        : ordering_(&ordering)
    {}

    std::size_t operator[](std::size_t i) const override
    {
        return (*ordering_)[i];
    }

    const std::vector<std::size_t>* ordering_;
};


template<class M>
using FieldFunct = std::function<typename M::field_type(const typename M::field_type&)>;

template <typename M>
void milu0_decomposition(M& A, FieldFunct<M> absFunctor = signFunctor<typename M::field_type>,
                         FieldFunct<M> signFunctor = oneFunctor<typename M::field_type>,
                         std::vector<typename M::block_type>* diagonal = nullptr);

template<class M>
void  milu0_decomposition(M& A, std::vector<typename M::block_type>* diagonal)
{
    milu0_decomposition(A, identityFunctor<typename M::field_type>, oneFunctor<typename M::field_type>, diagonal);
}


template<class M>
void milun_decomposition(const M& A, int n, MILU_VARIANT milu, M& ILU,
                         Reorderer& ordering, Reorderer& inverseOrdering);

} // end namespace details

} // end namespace Opm

#endif