examples/smpi/split.c

   1 #include <stdio.h>
   2 #include <mpi.h>
   3
   4 int main(int argc, char *argv[])
   5 {
   6   int worldrank, localrank;
   7   MPI_Comm localcomm;
   8   MPI_Init(&argc, &argv);
   9   MPI_Comm_rank(MPI_COMM_WORLD, &worldrank);
  10   printf("MPI_Comm_split is not implemented\n");
  11   //MPI_Comm_split(MPI_COMM_WORLD, worldrank % 2, worldrank, &localcomm);
  12   //MPI_Comm_rank(localcomm, &localrank);
  13   //printf("node with world rank %d has local rank %d\n", worldrank, localrank);
  14   MPI_Finalize();
  15   return 0;
  16 }