Warum hängt MPI_Isend hier?

Question

Ich versuche einen Puffer von links nach rechts zu senden (0-> 1, 1-> 2 2-> 3 etc ...). Ich bin ziemlich sicher, dass die Prozesse vom richtigen Partner senden und empfangen, aber der Code hängt oder einen Seg-Fehler ausgibt.

#include "mpi.h" 
#include <iostream> 
int main(int argc, char *argv[]) 
{ 
int comm_rank, num_procs, recieve1, send1; 
int buffer[10]; 
MPI_Request request, request2; 
MPI_Status status; 

MPI_Init(&argc,&argv); 
MPI_Comm_size(MPI_COMM_WORLD, &num_procs); 
MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); 


send1 = (comm_rank + 1) % num_procs; 
recieve1 = comm_rank - 1; 
if (recieve1 < 0) 
    recieve1 = num_procs - 1; 

//std::cout << "Comm Rank = " << comm_rank << "\trecieve1 = " << recieve1 << "\tsend1 = " << send1 << std::endl;  

if (comm_rank == 0) 
    send1 = 1; 
if (comm_rank == num_procs-1) 
    recieve1 = num_procs-2; 

if (comm_rank != 0) 
{ 
    MPI_Irecv(buffer, 10, MPI_INT, recieve1, 123, MPI_COMM_WORLD, &request); 
    std::cout << comm_rank << " <- " << recieve1 << std::endl; 
} 
if (comm_rank != num_procs-1) 
{ 
    MPI_Isend(buffer, 10, MPI_INT, send1, 123, MPI_COMM_WORLD, &request2); 
    std::cout << comm_rank << " -> " << send1 << std::endl; 
} 
MPI_Wait(&request, &status); 
MPI_Wait(&request2, &status); 


MPI_Finalize(); 
return 0; 
} 

Answer 1

Sie tun bedingungslos MPI_Wait sowohl auf request und request2, während Sie bedingt MPI_Isend/MPI_Irecv tun. Sie müssen nur auf Anforderungen warten, die tatsächlich initiiert werden.