* implementation to handle a flood of one-way messages.
*/
-int main( int argc, char **argv )
+int main(int argc, char **argv)
{
- double wscale = 10.0, scale;
- int numprocs, myid,i;
+ double wscale = 10.0, scale;
+ int numprocs, myid, i;
- MPI_Init(&argc,&argv);
- MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
- MPI_Comm_rank(MPI_COMM_WORLD,&myid);
+ MPI_Init(&argc, &argv);
+ MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
+ MPI_Comm_rank(MPI_COMM_WORLD, &myid);
- for ( i=0; i<10000; i++) {
- MPI_Allreduce(&wscale,&scale,1,MPI_DOUBLE,MPI_SUM,MPI_COMM_WORLD);
- }
+ for (i = 0; i < 1000; i++) {
+ MPI_Allreduce(&wscale, &scale, 1, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
+ }
- if (myid == 0) {
- /* If we get here at all, we're ok */
- printf( " No Errors\n" );
- }
- MPI_Finalize();
-
- return 0;
+ if (myid == 0) {
+ /* If we get here at all, we're ok */
+ printf(" No Errors\n");
+ }
+ MPI_Finalize();
+
+ return 0;
}