MpiParallelMng.h

// -*- tab-width: 2; indent-tabs-mode: nil; coding: utf-8-with-signature -*-
//-----------------------------------------------------------------------------
// Copyright 2000-2026 CEA (www.cea.fr) IFPEN (www.ifpenergiesnouvelles.com)
// See the top-level COPYRIGHT file for details.
// SPDX-License-Identifier: Apache-2.0
//-----------------------------------------------------------------------------
/*---------------------------------------------------------------------------*/
/* MpiParallelMng.h                                            (C) 2000-2026 */
/*                                                                           */
/* Implementation of messages using MPI.                                     */
/*---------------------------------------------------------------------------*/
#ifndef ARCANE_PARALLEL_MPI_MPIPARALLELMNG_H
#define ARCANE_PARALLEL_MPI_MPIPARALLELMNG_H
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#include "arcane/utils/Array.h"
#include "arcane/utils/Ref.h"
 
#include "arcane/core/ParallelMngDispatcher.h"
 
#include "arcane/parallel/mpi/ArcaneMpi.h"
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
namespace Arcane
{
using Communicator = MP::Communicator;
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
class MpiDatatypeList;
class SerializeBuffer;
class ArcaneMpiSerializeMessageList;
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
struct ARCANE_MPI_EXPORT MpiParallelMngBuildInfo
{
 public:
 
  MpiParallelMngBuildInfo(MPI_Comm comm, MPI_Comm machine_comm);
 
 public:
 
  Int32 commRank() const { return comm_rank; }
  Int32 commSize() const { return comm_nb_rank; }
  MPI_Comm mpiComm() const { return mpi_comm; }
  MPI_Comm mpiMachineComm() const { return mpi_machine_comm; }
 
 public:
 
  bool is_parallel;
 
 private:
 
  Int32 comm_rank = -1;
  Int32 comm_nb_rank = -1;
 
 public:
 
  Parallel::IStat* stat = nullptr;
  ITraceMng* trace_mng = nullptr;
  ITimerMng* timer_mng = nullptr;
  IThreadMng* thread_mng = nullptr;
  IParallelMng* world_parallel_mng = nullptr;
 
 private:
 
  MPI_Comm mpi_comm = MPI_COMM_NULL;
  MPI_Comm mpi_machine_comm = MPI_COMM_NULL;
 
 public:
 
  bool is_mpi_comm_owned = false;
  MpiLock* mpi_lock = nullptr;
};
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/

class ARCANE_MPI_EXPORT MpiParallelMng
: public ParallelMngDispatcher
{
 public:
 
  friend ArcaneMpiSerializeMessageList;
  class RequestList;
  class Impl;
 
 public:
 
  explicit MpiParallelMng(const MpiParallelMngBuildInfo& bi);
  ~MpiParallelMng() override;
 
  bool isParallel() const override { return m_is_parallel; }
  Int32 commRank() const override { return m_comm_rank; }
  Int32 commSize() const override { return m_comm_size; }
  void* getMPICommunicator() override { return &m_communicator; }
  bool isThreadImplementation() const override { return false; }
  bool isHybridImplementation() const override { return false; }
  ITraceMng* traceMng() const override { return m_trace; }
  IThreadMng* threadMng() const override { return m_thread_mng; }
  IParallelMng* worldParallelMng() const override { return m_world_parallel_mng; }
  IIOMng* ioMng() const override { return m_io_mng; }
 
  void initialize() override;
  bool isMasterIO() const override { return commRank() == 0; }
  Integer masterIORank() const override { return 0; }
 
  ITimerMng* timerMng() const override { return m_timer_mng; }
 
  void sendSerializer(ISerializer* values, Int32 rank) override;
  Request sendSerializer(ISerializer* values, Int32 rank, ByteArray& bytes) override;
  ISerializeMessage* createSendSerializer(Int32 rank) override;
 
  void recvSerializer(ISerializer* values, Int32 rank) override;
  ISerializeMessage* createReceiveSerializer(Int32 rank) override;
 
  void freeRequests(ArrayView<Parallel::Request> requests) override;
 
  void broadcastSerializer(ISerializer* values, Int32 rank) override;
  MessageId probe(const PointToPointMessageInfo& message) override;
  MessageSourceInfo legacyProbe(const PointToPointMessageInfo& message) override;
  Request sendSerializer(const ISerializer* values, const PointToPointMessageInfo& message) override;
  Request receiveSerializer(ISerializer* values, const PointToPointMessageInfo& message) override;
 
  void printStats() override;
  IParallelMng* sequentialParallelMng() override;
  Ref<IParallelMng> sequentialParallelMngRef() override;
  void barrier() override;
  void waitAllRequests(ArrayView<Request> requests) override;
  UniqueArray<Integer> waitSomeRequests(ArrayView<Request> requests) override;
  UniqueArray<Integer> testSomeRequests(ArrayView<Request> requests) override;
  ARCANE_DEPRECATED_260 Real reduceRank(eReduceType rt, Real v, Int32* rank)
  {
    Real rv = reduce(rt, v);
    if (rank)
      *rank = 0;
    return rv;
  }
 
  IParallelNonBlockingCollective* nonBlockingCollective() const override { return m_non_blocking_collective; }
 
  void build() override;
 
 public:
 
  MpiAdapter* adapter() { return m_adapter; }
  Communicator communicator() const override { return Communicator(m_communicator); }
  Communicator machineCommunicator() const override { return Communicator(m_machine_communicator); }
 
  MpiLock* mpiLock() const { return m_mpi_lock; }
 
  MpiDatatypeList* datatypes() { return m_datatype_list; }
 
  MpiSerializeDispatcher* serializeDispatcher() const { return m_mpi_serialize_dispatcher; }
 
 public:
 
  IParallelMngInternal* _internalApi() override { return m_parallel_mng_internal; }
 
 protected:
 
  ISerializeMessageList* _createSerializeMessageList() override;
  IParallelMng* _createSubParallelMng(Int32ConstArrayView kept_ranks) override;
  bool _isAcceleratorAware() const override;
  Ref<IParallelMng> _createSubParallelMngRef(Int32 color, Int32 key) override;
 
 public:
 
  IGetVariablesValuesParallelOperation* createGetVariablesValuesOperation() override;
  ITransferValuesParallelOperation* createTransferValuesOperation() override;
  IParallelExchanger* createExchanger() override;
  IParallelTopology* createTopology() override;
  IVariableSynchronizer* createSynchronizer(IItemFamily* family) override;
  IVariableSynchronizer* createSynchronizer(const ItemGroup& group) override;
  Parallel::IStat* stat() override { return m_stat; }
  IParallelReplication* replication() const override;
  void setReplication(IParallelReplication* v) override;
  Ref<Parallel::IRequestList> createRequestListRef() override;
  Ref<IParallelMngUtilsFactory> _internalUtilsFactory() const override;
 
 private:
 
  ITraceMng* m_trace = nullptr;
  IThreadMng* m_thread_mng = nullptr;
  IParallelMng* m_world_parallel_mng = nullptr;
  IIOMng* m_io_mng = nullptr;
  Ref<IParallelMng> m_sequential_parallel_mng;
  ITimerMng* m_timer_mng = nullptr;
  IParallelReplication* m_replication = nullptr;
  bool m_is_timer_owned = false;
  MpiDatatypeList* m_datatype_list = nullptr;
  MpiAdapter* m_adapter = nullptr;
  bool m_is_parallel = false;
  Int32 m_comm_rank = A_NULL_RANK; 
  Int32 m_comm_size = 0; 
  bool m_is_initialized = false; 
  Parallel::IStat* m_stat = nullptr;
  MPI_Comm m_communicator = MPI_COMM_NULL;
  MPI_Comm m_machine_communicator = MPI_COMM_NULL;
  bool m_is_communicator_owned = false;
  MpiLock* m_mpi_lock = nullptr;
  IParallelNonBlockingCollective* m_non_blocking_collective = nullptr;
  MpiSerializeDispatcher* m_mpi_serialize_dispatcher = nullptr;
  Ref<IParallelMngUtilsFactory> m_utils_factory;
  IParallelMngInternal* m_parallel_mng_internal = nullptr;
 
 private:
 
  void _checkFinishedSubRequests();
  UniqueArray<Integer> _waitSomeRequests(ArrayView<Request> requests, bool is_non_blocking);
  IParallelMng* _createSubParallelMng(MPI_Comm sub_communicator);
};
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
} // End namespace Arcane
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#endif