Homec4science
Diffusion akantu (features/modular_fe_engine) Browse

rAKA/src/solver/sparse_matrix_petsc.hh
beb52f566651features/modular_fe_eng…

Last Change
Raw File

sparse_matrix_petsc.hh
View Options

/**
* Copyright (©) 2010-2023 EPFL (Ecole Polytechnique Fédérale de Lausanne)
* Laboratory (LSMS - Laboratoire de Simulation en Mécanique des Solides)
*
* This file is part of Akantu
*
* Akantu 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 3 of the License, or (at your option) any
* later version.
*
* Akantu 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 Akantu. If not, see <http://www.gnu.org/licenses/>.
*/
/* -------------------------------------------------------------------------- */
#ifndef AKANTU_PETSC_MATRIX_HH_
#define AKANTU_PETSC_MATRIX_HH_
/* -------------------------------------------------------------------------- */
#include "aka_types.hh"
#include "sparse_matrix.hh"
/* -------------------------------------------------------------------------- */
#include <petscmat.h>
/* -------------------------------------------------------------------------- */
namespace akantu {
class DOFManagerPETSc;
}
namespace akantu {
class SparseMatrixPETSc : public SparseMatrix {
/* ------------------------------------------------------------------------ */
/* Constructors/Destructors */
/* ------------------------------------------------------------------------ */
public:
SparseMatrixPETSc(DOFManagerPETSc & dof_manager,
const MatrixType & matrix_type,
const ID & id = "sparse_matrix_petsc");
SparseMatrixPETSc(const SparseMatrixPETSc & matrix,
const ID & id = "sparse_matrix_petsc");
~SparseMatrixPETSc() override;
/* ------------------------------------------------------------------------ */
/* Methods */
/* ------------------------------------------------------------------------ */
public:
/// set the matrix to 0
void zero() override;
void set(Real /*val*/) override { AKANTU_TO_IMPLEMENT(); }
void clearProfile() override;
/// add a non-zero element to the profile
Idx add(Idx i, Idx j) override;
/// assemble a local matrix in the sparse one
void add(Idx i, Idx j, Real value) override;
void addLocal(Idx i, Idx j);
void addLocal(Idx i, Idx j, Real val);
void addLocal(const Vector<Int> & rows, const Vector<Int> & cols,
const Matrix<Real> & values);
/// add a block of values
void addValues(const Vector<Int> & rows, const Vector<Int> & cols,
const Matrix<Real> & values, MatrixType values_type);
/// save the profil in a file using the MatrixMarket file format
// void saveProfile(__attribute__((unused)) const std::string &) const
// override {
// AKANTU_DEBUG_TO_IMPLEMENT();
// }
/// save the matrix in a file using the MatrixMarket file format
void saveMatrix(const std::string & filename) const override;
/// multiply the matrix by a coefficient
void mul(Real alpha) override;
/// Equivalent of *gemv in blas
void matVecMul(const SolverVector & x, SolverVector & y, Real alpha = 1.,
Real beta = 0.) const override;
/// modify the matrix to "remove" the blocked dof
void applyBoundary(Real block_val = 1.) override;
/// copy the profile of a matrix
void copyProfile(const SparseMatrix & other) override;
void applyModifications();
void resize();
Real min() override { AKANTU_TO_IMPLEMENT(); }
protected:
void addMeTo(SparseMatrix & B, Real alpha) const override;
/// This is the specific implementation
void addMeToImpl(SparseMatrixPETSc & B, Real alpha) const;
void beginAssembly();
void endAssembly();
/* ------------------------------------------------------------------------ */
/* Accessors */
/* ------------------------------------------------------------------------ */
public:
/// return the values at potition i, j
inline Real operator()(Idx /*i*/, Idx /*j*/) const override {
AKANTU_TO_IMPLEMENT();
}
/// return the values at potition i, j
inline Real & operator()(Idx /*i*/, Idx /*j*/) override {
AKANTU_TO_IMPLEMENT();
}
Int getRelease() const override { return release; };
operator Mat &() { return mat; }
operator const Mat &() const { return mat; }
AKANTU_GET_MACRO(Mat, mat, const Mat &);
AKANTU_GET_MACRO_NOT_CONST(Mat, mat, Mat &);
/* ------------------------------------------------------------------------ */
/* Class Members */
/* ------------------------------------------------------------------------ */
protected:
/// store the PETSc matrix
Mat mat;
/// matrix release
Int release{0};
};
void PetscPrint(Mat x);
} // namespace akantu
#endif /* AKANTU_PETSC_MATRIX_HH_ */
c4science · Help