Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
examples to demonstrate bugs in sendrecv
[simgrid.git] / examples / smpi / first.c
1 #include <stdio.h>
2 #include <mpi.h>
3
4 int main(int argc, char *argv[])
5 {
6   int rank, size, err;
7
8   err = MPI_Init(&argc, &argv); /* Initialize MPI */
9   if (err != MPI_SUCCESS) {
10     printf("MPI initialization failed!\n");
11     exit(1);
12   }
13
14   err = MPI_Comm_size(MPI_COMM_WORLD, &size);
15   if (err != MPI_SUCCESS) {
16     printf("MPI Get Communicator Size Failed!\n");
17   }
18
19   err = MPI_Comm_rank(MPI_COMM_WORLD, &rank);
20   if (err != MPI_SUCCESS) {
21     printf("MPI Get Communicator Rank Failed!\n");
22   }
23
24   if (0 == rank) {
25     printf("root node believes there are %d nodes in world.\n", size);
26   }
27
28   sleep(20);
29
30   err = MPI_Finalize();         /* Terminate MPI */
31   return 0;
32 }