xmp_world.c File Reference

#include "mpi.h"
#include "xmp_internal.h"

Include dependency graph for xmp_world.c:

Macros
#define	MPI_PORTABLE_PLATFORM_H

Functions
void	_XMP_init_world (int *argc, char ***argv)
void	_XMP_finalize_world (bool isFinalize)
int	_XMP_split_world_by_color (int color)

Variables
int	_XMP_world_size
int	_XMP_world_rank
void *	_XMP_world_nodes

Macro Definition Documentation

MPI_PORTABLE_PLATFORM_H

#define MPI_PORTABLE_PLATFORM_H

Function Documentation

_XMP_finalize_world()

void _XMP_finalize_world

(

bool

isFinalize

)

                                          {
  MPI_Barrier(MPI_COMM_WORLD);
 
  int flag = 0;
  MPI_Finalized(&flag);
  if (!flag) {
    _XMP_nodes_t *n =  _XMP_get_execution_nodes();
    _XMP_finalize_nodes(n);
    if(isFinalize)
      MPI_Finalize();
  }
}

Here is the call graph for this function:

_XMP_init_world()

void _XMP_init_world	(	int *	argc,
		char ***	argv
	)

                                              {
  int flag = 0;
  MPI_Initialized(&flag);
  if (!flag) MPI_Init(argc, argv);
  
  MPI_Comm *comm = _XMP_alloc(sizeof(MPI_Comm));
  MPI_Comm_dup(MPI_COMM_WORLD, comm);
  _XMP_nodes_t *n = _XMP_create_nodes_by_comm(_XMP_N_INT_TRUE, comm);
  n->attr = _XMP_ENTIRE_NODES;
  _XMP_world_size = n->comm_size;
  _XMP_world_rank = n->comm_rank;
  _XMP_world_nodes = n;
  _XMP_push_nodes(n);
 
  MPI_Barrier(MPI_COMM_WORLD);
}

_XMP_split_world_by_color()

int _XMP_split_world_by_color

(

int

color

)

                                         {
  int new_comm_rank;
  MPI_Comm new_comm;
  MPI_Comm_split(MPI_COMM_WORLD, color, _XMP_world_rank, &new_comm);
  MPI_Comm_rank(new_comm, &new_comm_rank);
  MPI_Comm_free(&new_comm);
 
  return new_comm_rank;
}

Variable Documentation

_XMP_world_nodes

void* _XMP_world_nodes

_XMP_world_rank

int _XMP_world_rank

_XMP_world_size

int _XMP_world_size