Homec4science
Diffusion akantu (features/joss-2021) Browse

rAKA/src/solver/petsc_matrix.hh
03fe43e3763bfeatures/joss-2021

Last Change
Raw File

petsc_matrix.hh
View Options

/**
* @file petsc_matrix.hh
*
* @author Aurelia Isabel Cuba Ramos <aurelia.cubaramos@epfl.ch>
*
* @date creation: Fri Jun 18 2010
* @date last modification: Fri Aug 21 2015
*
* @brief Interface for PETSc matrices
*
* @section LICENSE
*
* Copyright (©) 2010-2012, 2014, 2015 EPFL (Ecole Polytechnique Fédérale de
* Lausanne) Laboratory (LSMS - Laboratoire de Simulation en Mécanique des
* Solides)
*
* 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 "sparse_matrix.hh"
#include "static_communicator.hh"
#include "static_solver.hh"
/* -------------------------------------------------------------------------- */
__BEGIN_AKANTU__
class PETScMatrixWrapper;
class PETScMatrix : public SparseMatrix, StaticSolverEventHandler {
/* ------------------------------------------------------------------------ */
/* Constructors/Destructors */
/* ------------------------------------------------------------------------ */
public:
PETScMatrix(UInt size,
const SparseMatrixType & sparse_matrix_type,
const ID & id = "petsc_matrix",
const MemoryID & memory_id = 0);
PETScMatrix(const SparseMatrix & matrix,
const ID & id = "petsc_matrix",
const MemoryID & memory_id = 0);
virtual ~PETScMatrix();
private:
/// init internal PETSc matrix
void init();
/* ------------------------------------------------------------------------ */
/* Methods */
/* ------------------------------------------------------------------------ */
public:
/// set the matrix to 0
virtual void clear();
/// fill the profil of the matrix
virtual void buildProfile(const Mesh & mesh, const DOFSynchronizer & dof_synchronizer, UInt nb_degree_of_freedom);
/// modify the matrix to "remove" the blocked dof
virtual void applyBoundary(const Array<bool> & boundary, Real block_val = 1.);
/// save the matrix in a ASCII file format
virtual void saveMatrix(const std::string & filename) const;
/// add a sparse matrix assuming the profile are the same
virtual void add(const SparseMatrix & matrix, Real alpha);
/// add a petsc matrix assuming the profile are the same
virtual void add(const PETScMatrix & matrix, Real alpha);
virtual void beforeStaticSolverDestroy();
Real operator()(UInt i, UInt j) const;
protected:
inline KeyCOO keyPETSc(UInt i, UInt j) const {
return std::make_pair(i, j);
}
private:
virtual void destroyInternalData();
/// set the size of the PETSc matrix
void setSize();
void createGlobalAkantuToPETScMap(Int* local_master_eq_nbs_ptr);
void createLocalAkantuToPETScMap(const DOFSynchronizer & dof_synchronizer);
/// perform assembly so that matrix is ready for use
void performAssembly();
/* ------------------------------------------------------------------------ */
/* Accessors */
/* ------------------------------------------------------------------------ */
public:
AKANTU_GET_MACRO(PETScMatrixWrapper, petsc_matrix_wrapper, PETScMatrixWrapper*);
AKANTU_GET_MACRO(LocalSize, local_size, Int);
/// AKANTU_GET_MACRO(LocalSize, local_size, Int);
public:
/* ------------------------------------------------------------------------ */
/* Class Members */
/* ------------------------------------------------------------------------ */
private:
/// store the PETSc structures
PETScMatrixWrapper * petsc_matrix_wrapper;
/// size of the diagonal part of the matrix partition
Int local_size;
/// number of nonzeros in every row of the diagonal part
Array<Int> d_nnz;
/// number of nonzeros in every row of the off-diagonal part
Array<Int> o_nnz;
/// the global index of the first local row
Int first_global_index;
/// bool to indicate if the matrix data has been initialized by calling MatCreate
bool is_petsc_matrix_initialized;
};
__END_AKANTU__
#endif /* __AKANTU_PETSC_MATRIX_HH__ */
c4science · Help