Diffusion akantu (features/72-czm-stability-improvements-in-explicit-dynamics) Browse

72-czm…

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_ */

rAKA/src/solver/sparse_solver_mumps.hha67b29746942features/72-czm…

sparse_solver_mumps.hhView Options

rAKA/src/solver/sparse_solver_mumps.hh
a67b29746942features/72-czm…

sparse_solver_mumps.hh
View Options