int rank = -1;
int tag1 = 0;
int tag2 = 0;
- int comm = MPI_COMM_WORLD;
+ MPI_Comm comm = MPI_COMM_WORLD;
char processor_name[128];
int namelen = 128;
int buf0[128];
MPI_Get_processor_name (processor_name, &namelen);
printf ("(%d) is alive on %s\n", rank, processor_name);
fflush (stdout);
-int j, k;
for (i = 0; i < 128; i++)
{
buf0[i] = i;