Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Action replayer: don't hardcode the usage of raw contextes
[simgrid.git] / examples / smpi / allreduce.c
index f8ecf7b..72f5b61 100644 (file)
  * ENHANCEMENTS, OR MODIFICATIONS.
  * ***************************************************************************
  **/
-int ibm_test(int rank, int size)
+static int ibm_test(int rank, int size)
 {
-         int success = 1;
+  int success = 1;
 #define MAXLEN  10000
 
-         int root, i, j, k;
-         int out[MAXLEN];
-         int in[MAXLEN];
-
-         for (j = 1; j <= MAXLEN; j *= 10) {
-                   for (i = 0; i < j; i++)
-                               out[i] = i;
-
-                   MPI_Allreduce(out, in, j, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
-                   MPI_Barrier(MPI_COMM_WORLD);
-
-                   if (rank == root) {
-                               for (k = 0; k < j; k++) {
-                                         if (in[k] != k * size) {
-                                                   printf("bad answer (%d) at index %d of %d (should be %d)", in[k], k,
-                                                                         j, k * size);
-                                                   success = 0;
-                                                   break;
-                                         }
-                               }
-                   }
-         }
-         return (success);
+  int root = 0, i, j, k;
+  int out[MAXLEN];
+  int in[MAXLEN];
+
+  for (j = 1; j <= MAXLEN; j *= 10) {
+    for (i = 0; i < j; i++)
+      out[i] = i;
+
+    MPI_Allreduce(out, in, j, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
+    MPI_Barrier(MPI_COMM_WORLD);
+
+    if (rank == root) {
+      for (k = 0; k < j; k++) {
+        if (in[k] != k * size) {
+          printf("bad answer (%d) at index %d of %d (should be %d)", in[k],
+                 k, j, k * size);
+          success = 0;
+          break;
+        }
+      }
+    }
+  }
+  return (success);
 }