X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d9179c8d05a4cda5b653afb5a45f398597919fb7..8ab4885a856f21049d97a746049b71987d1c695e:/src/smpi/sample/split.c

diff --git a/src/smpi/sample/split.c b/src/smpi/sample/split.c
new file mode 100644
index 0000000000..b161190195
--- /dev/null
+++ b/src/smpi/sample/split.c
@@ -0,0 +1,14 @@
+#include <stdio.h>
+#include <mpi.h>
+
+int main(int argc, char *argv[]) {
+	int worldrank, localrank;
+	MPI_Comm localcomm;
+	MPI_Init(&argc, &argv);
+	MPI_Comm_rank(MPI_COMM_WORLD, &worldrank);
+	MPI_Comm_split(MPI_COMM_WORLD, worldrank % 2, worldrank, &localcomm);
+	MPI_Comm_rank(localcomm, &localrank);
+	printf("node with world rank %d has local rank %d\n", worldrank, localrank);
+	MPI_Finalize();
+	return 0;
+}