int namelen = 128;
int buf0[buf_size];
int buf1[buf_size];
- int i;
MPI_Status status;
MPI_Request req;
{
memset (buf0, 0, buf_size);
- MPI_Irecv (buf1, buf_size, MPI_INT,
+ MPI_Irecv (buf1, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
- printf("Proc 0: Request number - %d\n",req);
-
+ printf("Proc 0: Request number - %p\n",req);
+
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD);
MPI_Recv (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &status);
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD);
MPI_Wait (&req, &status);
- printf("Proc 0: Request number after wait test- %d\n",req);
+ printf("Proc 0: Request number after wait test- %p\n",req);
}
else if (rank == 1)
{
memset (buf1, 1, buf_size);
- MPI_Irecv (buf1, buf_size, MPI_INT,
+ MPI_Irecv (buf1, buf_size, MPI_INT,
MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &req);
- printf("Proc 1: Request number - %d\n",req);
+ printf("Proc 1: Request number - %p\n",req);
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
MPI_Wait (&req, &status);
- printf("Proc 1: Request number after wait test- %d\n",req);
+ printf("Proc 1: Request number after wait test- %p\n",req);
}
MPI_Barrier (MPI_COMM_WORLD);