X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/50130868c2f0c10d86bf368ede7154f6845b0d51..90f50bba185f1c86225aa498dcc3a01c9080b52b:/teshsuite/smpi/mpich3-test/coll/coll2.c

diff --git a/teshsuite/smpi/mpich3-test/coll/coll2.c b/teshsuite/smpi/mpich3-test/coll/coll2.c
index 008aa712b1..1cd4ba18d3 100644
--- a/teshsuite/smpi/mpich3-test/coll/coll2.c
+++ b/teshsuite/smpi/mpich3-test/coll/coll2.c
@@ -6,63 +6,63 @@
 #include "mpi.h"
 #include <stdio.h>
 #include "mpitest.h"
+#include "mpicolltest.h"
 
 #define MAX_PROCESSES 10
 
-int main( int argc, char **argv )
+int main(int argc, char **argv)
 {
-    int              rank, size, i,j;
-    int              table[MAX_PROCESSES][MAX_PROCESSES];
-    int              errors=0;
-    int              participants;
+    int rank, size, i, j;
+    int table[MAX_PROCESSES][MAX_PROCESSES];
+    int errors = 0;
+    int participants;
 
-    MTest_Init( &argc, &argv );
-    MPI_Comm_rank( MPI_COMM_WORLD, &rank );
-    MPI_Comm_size( MPI_COMM_WORLD, &size );
+    MTest_Init(&argc, &argv);
+    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+    MPI_Comm_size(MPI_COMM_WORLD, &size);
 
     /* A maximum of MAX_PROCESSES processes can participate */
-    if ( size > MAX_PROCESSES ) participants = MAX_PROCESSES;
-    else              participants = size;
+    if (size > MAX_PROCESSES)
+        participants = MAX_PROCESSES;
+    else
+        participants = size;
 
     if (MAX_PROCESSES % participants) {
-	fprintf( stderr, "Number of processors must divide %d\n",
-		MAX_PROCESSES );
-	MPI_Abort( MPI_COMM_WORLD, 1 );
-        exit(1);
-	}
-    if ( (rank < participants) ) {
+        fprintf(stderr, "Number of processors must divide %d\n", MAX_PROCESSES);
+        MPI_Abort(MPI_COMM_WORLD, 1);
+    }
+    if ((rank < participants)) {
 
-      /* Determine what rows are my responsibility */
-      int block_size = MAX_PROCESSES / participants;
-      int begin_row  = rank * block_size;
-      int end_row    = (rank+1) * block_size;
-      int send_count = block_size * MAX_PROCESSES;
-      int recv_count = send_count;
+        /* Determine what rows are my responsibility */
+        int block_size = MAX_PROCESSES / participants;
+        int begin_row = rank * block_size;
+        int end_row = (rank + 1) * block_size;
+        int send_count = block_size * MAX_PROCESSES;
+        int recv_count = send_count;
 
-      /* Paint my rows my color */
-      for (i=begin_row; i<end_row ;i++)
-	for (j=0; j<MAX_PROCESSES; j++)
-	  table[i][j] = rank + 10;
+        /* Paint my rows my color */
+        for (i = begin_row; i < end_row; i++)
+            for (j = 0; j < MAX_PROCESSES; j++)
+                table[i][j] = rank + 10;
 
-      /* Gather everybody's result together - sort of like an */
-      /* inefficient allgather */
-      for (i=0; i<participants; i++) {
-        void *sendbuf = (i == rank ? MPI_IN_PLACE : &table[begin_row][0]);
-	MPI_Gather(sendbuf,              send_count, MPI_INT,
-		   &table[0][0],         recv_count, MPI_INT, i, 
-		   MPI_COMM_WORLD );
-      }
+        /* Gather everybody's result together - sort of like an */
+        /* inefficient allgather */
+        for (i = 0; i < participants; i++) {
+            void *sendbuf = (i == rank ? MPI_IN_PLACE : &table[begin_row][0]);
+            MTest_Gather(sendbuf, send_count, MPI_INT,
+                         &table[0][0], recv_count, MPI_INT, i, MPI_COMM_WORLD);
+        }
 
-      /* Everybody should have the same table now,  */
-      /* This test does not in any way guarantee there are no errors */
-      /* Print out a table or devise a smart test to make sure it's correct */
-      for (i=0; i<MAX_PROCESSES;i++) {
-	if ( (table[i][0] - table[i][MAX_PROCESSES-1] !=0) ) 
-	  errors++;
-      }
-    } 
+        /* Everybody should have the same table now,  */
+        /* This test does not in any way guarantee there are no errors */
+        /* Print out a table or devise a smart test to make sure it's correct */
+        for (i = 0; i < MAX_PROCESSES; i++) {
+            if ((table[i][0] - table[i][MAX_PROCESSES - 1] != 0))
+                errors++;
+        }
+    }
 
-    MTest_Finalize( errors );
+    MTest_Finalize(errors);
     MPI_Finalize();
-    return MTestReturnValue( errors );
+    return MTestReturnValue(errors);
 }