Hi all.
I have some problem with sending messages. I want to send 2 messages to each 
node.
for example, send 2 messages to 2 nodes,
 if (rank == 0) {
 for (dest = 1; dest < numProcs; dest++) {
 MPI_Send(&a, 1, MPI_INT, dest, 1, MPI_COMM_WORLD);
 MPI_Send(&b, 1, MPI_INT, dest, 2, MPI_COMM_WORLD);
 }
 } else {
 MPI_Recv(&a_recv, 1, MPI_INT, 0, 1, MPI_COMM_WORLD, &status);
 MPI_Recv(&b_recv, 1, MPI_INT, 0, 2, MPI_COMM_WORLD, &status);
 }
but it doesn't work well. Only first message(sending data "a" to node1) is sent 
successfully, but the rest 3 transmissions(sending data "b" to node1 and 
sending data "a" and "b" to node2) have no response which seems to be deadlock. 
There are no runtime error.
The version 1.4.1 has been used.
best regards,
hyo

Reply via email to