File Metadata

Created: Mon, Dec 2, 03:32

sparse_solver_mumps.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/>.
	*/

	/* -------------------------------------------------------------------------- */
	#include "sparse_solver.hh"
	/* -------------------------------------------------------------------------- */
	#include <dmumps_c.h>
	/* -------------------------------------------------------------------------- */

	#ifndef AKANTU_SOLVER_MUMPS_HH_
	#define AKANTU_SOLVER_MUMPS_HH_

	namespace akantu {
	class DOFManagerDefault;
	class SparseMatrixAIJ;
	} // namespace akantu

	namespace akantu {

	class SparseSolverMumps : public SparseSolver {
	/* ------------------------------------------------------------------------ */
	/* Constructors/Destructors */
	/* ------------------------------------------------------------------------ */
	public:
	SparseSolverMumps(DOFManagerDefault & dof_manager, const ID & matrix_id,
	const ID & id = "sparse_solver_mumps");

	~SparseSolverMumps() override;

	/* ------------------------------------------------------------------------ */
	/* Methods */
	/* ------------------------------------------------------------------------ */
	public:
	/// build the profile and do the analysis part
	void initialize() override;

	/// analysis (symbolic facto + permutations)
	void analysis() override;

	/// factorize the matrix
	void factorize() override;

	/// solve the system
	virtual void solve(Array<Real> & x, const Array<Real> & b);

	/// solve using residual and solution from the dof_manager
	void solve() override;

	private:
	/// print the error if any happened in mumps
	void printError();

	/// solve the system with master_rhs_solution as b and x
	void solveInternal();

	/// set internal values;
	void initMumpsData();

	/// set the level of verbosity of mumps based on the debug level of akantu
	void setOutputLevel();

	protected:
	/// de-initialize the internal data
	void destroyInternalData() override;

	/// check if initialized and except if it is not the case
	void checkInitialized();

	private:
	void mumpsDataDestroy();

	/* ------------------------------------------------------------------------ */
	/* Accessors */
	/* ------------------------------------------------------------------------ */
	private:
	/// access the control variable
	inline Int & icntl(Int i) { return mumps_data.icntl[i - 1]; }

	/// access the results info
	inline Int & info(Int i) { return mumps_data.info[i - 1]; }

	/* ------------------------------------------------------------------------ */
	/* Class Members */
	/* ------------------------------------------------------------------------ */
	private:
	/// DOFManager used by the Mumps implementation of the SparseSolver
	DOFManagerDefault & dof_manager;

	/// Full right hand side on the master processors and solution after solve
	Array<Real> master_rhs_solution;

	/// mumps data
	DMUMPS_STRUC_C mumps_data;

	/// Rank of the current process
	Int prank;

	/// matrix release at last solve
	Int last_profile_release{-1};

	/// matrix release at last solve
	Int last_value_release{-1};

	/// check if the solver data are initialized
	bool is_initialized{false};

	/* ------------------------------------------------------------------------ */
	/* Local types */
	/* ------------------------------------------------------------------------ */
	private:
	SolverParallelMethod parallel_method;

	// bool rhs_is_local;

	enum SolverMumpsJob {
	_smj_initialize = -1,
	_smj_analyze = 1,
	_smj_factorize = 2,
	_smj_solve = 3,
	_smj_analyze_factorize = 4,
	_smj_factorize_solve = 5,
	_smj_complete = 6, // analyze, factorize, solve
	_smj_destroy = -2
	};
	};

	} // namespace akantu

	#endif /* AKANTU_SOLVER_MUMPS_HH_ */

sparse_solver_mumps.hh
No OneTemporary
Actions

File Metadata

sparse_solver_mumps.hh
View Options

Event Timeline

sparse_solver_mumps.hhNo OneTemporaryActions

File Metadata

sparse_solver_mumps.hhView Options

Event Timeline

sparse_solver_mumps.hh
No OneTemporary
Actions

sparse_solver_mumps.hh
View Options