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);
}
On a slightly different note, a MPI_Broadcast seems to be the right function to use here.
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
_______________________________________________
users mailing list
users@open-mpi.org
http://www.open-mpi.org/mailman/listinfo.cgi/users