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