MPIリングリーダーの選挙はセグメンテーションエラーを返します

Question

これは私が達成しようとしているものです。

Blue is the message. 
Yellow is when the specific node changes the leader known to it. 
Green is the final election of each node. 

コードは、私には正しいようだが、それは必ずしも関係なく、私が試したものをwhileループ内で立ち往生していないです。実行中の少数のノードではしばらくしてからセグメンテーション・フォールトを返します。すべてのランクについてランクの数の中でいくつかの最小数を決定するために

election_status=0; 
firstmsg[0]=world_rank;  // self rank 
firstmsg[1]=0;    // counter for hops 
chief=world_rank;   // each node declares himself as leader 
counter=0;     // message counter for each node 

// each node sends the first message to the next one 
MPI_Send(&firstmsg, 2, MPI_INT, (world_rank+1)%world_size, 1, MPI_COMM_WORLD); 
printf("Sent ID with counter to the right node [%d -> %d]\n",world_rank, (world_rank+1)%world_size); 

while (election_status==0){ 
    // EDIT: Split MPI_Recv for rank 0 and rest 
    if (world_rank==0){ 
     MPI_Recv(&incoming, 2, MPI_INT, world_size-1, 1, MPI_COMM_WORLD, &status); 
    } 
    else { 
     MPI_Recv(&incoming, 2, MPI_INT, (world_rank-1)%world_size, 1, MPI_COMM_WORLD, &status); 
    } 
    counter=counter+1; 
    if (incoming[0]<chief){ 
     chief=incoming[0]; 
    } 
    incoming[1]=incoming[1]+1; 

    // if message is my own and hopped same times as counter 
    if (incoming[0]==world_rank && incoming[1]==counter) { 
     printf("Node %d declares node %d a leader.\n", world_rank, chief); 
     election_status=1; 
    } 
    //sends the incremented message to the next node 
    MPI_Send(&incoming, 2, MPI_INT, (world_rank+1)%world_size, 1, MPI_COMM_WORLD); 
} 

MPI_Finalize(); 

Answer 1

、MPI_Allreduceを使用！

• MPI_Sendがブロックしています。それは、一致する受信が送信されるまで永遠にブロックすることができます。あなたのプログラムは、MPI_Sendへの最初の呼び出しでデッドロックします。これを避けるには、特にMPI_Sendrecvを使用してください。
• (world_rank-1)%world_sizeはworld_rank == 0に対して-1を生成します。ランク番号として-1を使用することは無効です。それは同時にMPI_ANY_SOURCEであるかもしれません。