1 /* $Header: /usr/gapps/asde/cvs-vault/umpire/tests/deadlock-config.c,v 1.2 2001/09/20 22:27:28 bronis Exp $ */
8 main (int argc, char **argv)
14 char processor_name[128];
15 int namelen = buf_size;
18 MPI_Init (&argc, &argv);
19 MPI_Comm_size (MPI_COMM_WORLD, &nprocs);
20 MPI_Comm_rank (MPI_COMM_WORLD, &rank);
23 printf ("WARNING: This test depends on the MPI's eager limit. "
24 "Set it appropriately.\n");
26 printf ("Initializing (%d of %d)\n", rank, nprocs);
27 MPI_Get_processor_name (processor_name, &namelen);
28 printf ("(%d) is alive on %s\n", rank, processor_name);
31 int dest = (rank == nprocs - 1) ? (0) : (rank + 1);
33 MPI_Send (data, buf_size, MPI_FLOAT, dest, tag, MPI_COMM_WORLD);
34 printf ("(%d) sent data %f\n", rank, data[0]);
38 int src = (rank == 0) ? (nprocs - 1) : (rank - 1);
40 MPI_Recv (data, buf_size, MPI_FLOAT, src, tag, MPI_COMM_WORLD, &status);
41 printf ("(%d) got data %f\n", rank, data[0]);
45 printf ("(%d) Finished normally\n", rank);