Tree Structured Communication

int I_send(

int stage /* in */,

int my_rank /* in */,

int p /* in */,

int* dest_ptr /* out */) {

int power_2_stage;

/* 2^stage = 1 << stage */

power_2_stage = 1 << stage;

if (my_rank < power_2_stage){

*dest_ptr = my_rank + power_2_stage;

if (*dest_ptr >= p) return 0;

else return 1;

} else return 0;

} /* I_send */

void Send(

float a /* in */,

float b /* in */,

int n /* in */,

int dest /* in */) {

MPI_Send(&a, 1, MPI_FLOAT, dest, 0,

MPI_COMM_WORLD);

MPI_Send(&b, 1, MPI_FLOAT, dest, 1,

MPI_COMM_WORLD);

MPI_Send(&n, 1, MPI_INT, dest, 2,

MPI_COMM_WORLD);

} /* Send */

Previous slide

Next slide

Back to first slide

View graphic version