petsc.hpp

Go to the documentation of this file.

// SPDX-FileCopyrightText: 2025 - 2026 NeoN authors
//
// SPDX-License-Identifier: MIT
 
#pragma once
 
#if NF_WITH_PETSC
 
#include <Kokkos_Core.hpp>
#include <petscvec_kokkos.hpp>
#include <petscmat.h>
#include <petscksp.h>
 
#include "NeoN/fields/field.hpp"
#include "NeoN/core/dictionary.hpp"
#include "NeoN/linearAlgebra/linearSystem.hpp"
#include "NeoN/linearAlgebra/utilities.hpp"
#include "NeoN/linearAlgebra/petscSolverContext.hpp"
#include "NeoN/linearAlgebra/solver.hpp"
// #include "NeoN/core/database/petscSolverContextCollection.hpp"
 
namespace fvcc = NeoN::finiteVolume::cellCentred;
 
namespace NeoN::la::petsc
{
 
// template<typename ValueType>
 
class petscSolver : public SolverFactory::template Register<petscSolver>
{
 
    using Base = SolverFactory::template Register<petscSolver>;
 
private:
 
    Dictionary solverDict_;
    // Mat Amat_;
    // KSP ksp_;
 
    // Vec sol_, rhs_;
 
    // NeoN::la::petscSolverContext::petscSolverContext<scalar> petsctx_;
 
    /*
        NeoN::Database& db_;
        std::string eqnName_;
    */
 
public:
 
    petscSolver(Executor exec, Dictionary solverDict) : Base(exec), solverDict_(solverDict)
    //, Amat_(nullptr), ksp_(nullptr), sol_(nullptr),
    //  rhs_(nullptr),petsctx_(exec_)
    //, db_(db), eqnName_(eqnName)
    {}
 
    //- Destructor
    virtual ~petscSolver()
    {
        // MatDestroy(&Amat_);
        // KSPDestroy(&ksp_);
        // VecDestroy(&sol_);
        // VecDestroy(&rhs_);
    }
 
    static std::string name() { return "Petsc"; }
 
    static std::string doc() { return "TBD"; }
 
    static std::string schema() { return "none"; }
 
    // TODO why use a smart pointer here?
    virtual std::unique_ptr<SolverFactory> clone() const final
    {
        NF_ERROR_EXIT("Not implemented");
        return {};
    }
 
 
    virtual SolverStats solve(const LinearSystem<scalar>& sys, Vector<scalar>& x) const final
    {
 
        Mat Amat;
        KSP ksp;
 
        Vec sol, rhs;
 
        NeoN::la::petscSolverContext::petscSolverContext<scalar> petsctx(exec_);
 
        std::size_t nrows = sys.rhs().size();
 
        petsctx.initialize(sys);
 
        Amat = petsctx.AMat();
        rhs = petsctx.rhs();
        sol = petsctx.sol();
        ksp = petsctx.ksp();
 
        VecSetValuesCOO(rhs, sys.rhs().data(), ADD_VALUES);
        MatSetValuesCOO(Amat, sys.matrix().values().data(), ADD_VALUES);
 
        // MatView(Amat_, PETSC_VIEWER_STDOUT_WORLD);
        // VecView(rhs_, PETSC_VIEWER_STDOUT_WORLD);
 
 
        // KSPCreate(PETSC_COMM_WORLD, &ksp_);
        KSPSetOperators(ksp, Amat, Amat);
        // KSPSetTolerances(ksp, 1.e-9, PETSC_DEFAULT, PETSC_DEFAULT, PETSC_DEFAULT);
        // KSPSetFromOptions(ksp_);
        // KSPSetUp(ksp);
 
 
        PetscCallVoid(KSPSolve(ksp, rhs, sol));
 
        auto numIter = 0;
        KSPGetIterationNumber(ksp, &numIter);
 
 
        PetscScalar* x_help = static_cast<PetscScalar*>(x.data());
        VecGetArray(sol, &x_help);
 
        Vector<scalar> x2(x.exec(), static_cast<scalar*>(x_help), nrows, x.exec());
        x = x2;
 
        // TODO residual norms are missing
        return {numIter, 0.0, 0.0, 0.0};
    }
};
 
}
 
#endif