Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
examples to demonstrate bugs in sendrecv
[simgrid.git] / examples / smpi / compute2.c
1 #include <stdio.h>
2
3 int main(int argc, char *argv[])
4 {
5   int i;
6   double d;
7   MPI_Init(&argc, &argv);
8   d = 2.0;
9   SMPI_DO_ONCE {
10     for (i = 0; i < atoi(argv[1]); i++) {
11       if (d < 10000) {
12         d = d * d;
13       } else {
14         d = 2;
15       }
16     }
17     printf("%d %f\n", i, d);
18   }
19   MPI_Finalize();
20   return 0;
21 }