1 /* Copyright (c) 2010-2015. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
7 #ifndef SMPI_COMM_HPP_INCLUDED
8 #define SMPI_COMM_HPP_INCLUDED
13 typedef struct s_smpi_mpi_comm_key_elem {
14 MPI_Comm_copy_attr_function* copy_fn;
15 MPI_Comm_delete_attr_function* delete_fn;
16 } s_smpi_mpi_comm_key_elem_t;
17 typedef struct s_smpi_mpi_comm_key_elem *smpi_comm_key_elem;
22 class Comm : public F2C, public Keyval{
26 MPIR_Topo_type topoType_;
27 MPI_Topology topo_; // to be replaced by an union
29 MPI_Comm leaders_comm_;//inter-node communicator
30 MPI_Comm intra_comm_;//intra-node communicator . For MPI_COMM_WORLD this can't be used, as var is global.
31 //use an intracomm stored in the process data instead
32 int* leaders_map_; //who is the leader of each process
34 int* non_uniform_map_; //set if smp nodes have a different number of processes allocated
35 int is_blocked_;// are ranks allocated on the same smp node contiguous ?
38 static std::unordered_map<int, smpi_key_elem> keyvals_;
39 static int keyval_id_;
42 Comm(MPI_Group group, MPI_Topology topo);
44 int dup(MPI_Comm* newcomm);
49 void get_name (char* name, int* len);
50 void set_leaders_comm(MPI_Comm leaders);
51 void set_intra_comm(MPI_Comm leaders);
52 int* get_non_uniform_map();
53 int* get_leaders_map();
54 MPI_Comm get_leaders_comm();
55 MPI_Comm get_intra_comm();
58 MPI_Comm split(int color, int key);
61 static void unref(MPI_Comm comm);
62 static void destroy(MPI_Comm comm);
66 static void free_f(int id);
67 static Comm* f2c(int);
69 static int keyval_create(MPI_Comm_copy_attr_function* copy_fn, MPI_Comm_delete_attr_function* delete_fn, int* keyval, void* extra_state);
70 static int keyval_free(int* keyval);
71 static void keyval_cleanup();