#define buf_size 128
-mydelay () /* about 6 seconds */
+static int mydelay(void) /* about 6 seconds */
{
int i;
int val;
int rank = -1;
int tag1 = 31;
int tag2 = 32;
- int comm = MPI_COMM_WORLD;
+ MPI_Comm comm = MPI_COMM_WORLD;
char processor_name[128];
int namelen = 128;
int buf0[buf_size];
int buf1[buf_size];
- MPI_Request req, req0, req1;
- MPI_Status status, status0, status1;
+ MPI_Request req;
+ MPI_Status status;
MPI_Request areq[10];
MPI_Status astatus[10];
printf ("(%d) is alive on %s\n", rank, processor_name);
fflush (stdout);
- memset (buf0, 0, buf_size);
- memset (buf1, 1, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
+ memset (buf1, 1, buf_size*sizeof(int));
/* 0 sends 1 two messages, but the request gets overwritten */
switch (rank)