Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Compile about every existing SMPI examples (reduce don't compile)
[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 }