一台机器上MPI如何发送接收信息?特别是rank》=2时?

if(my_rank==1)
{
_grain.Cal_W2();
message[0]=_grain.W2();
MPI_Send(message, 1, MPI_DOUBLE, 0,99,MPI_COMM_WORLD);
}
_grain.Cal_W1();
_grain.Cal_W71C();
_grain.Cal_W8C();
_grain.Cal_W72C();
_maxcs3xt=-log(_grain.W8C())/L;
double tmp=BALLCORE_R4*_maxcs3xt;
_w3=_grain.W72C()/(1.e0-_grain.W8C())*(1.e0-3.e0*exp(_maxcs3xt*L/2.e0)/(4.e0*tmp)*(1.e0-1.e0/2.e0/pow(tmp,2) *(1.e0-(1.e0+2.e0*tmp)*exp(-2.e0*tmp))));
if(my_rank==2)
{
this->Cal_W5();
message[1]=_w5;
MPI_Send(message, 1, MPI_DOUBLE, 0,99,MPI_COMM_WORLD);
}
if(my_rank==3)
{
this->Cal_W6A();
message[2]=_w6a;
MPI_Send(message, 1, MPI_DOUBLE, 0,99,MPI_COMM_WORLD);
}
if(my_rank==4)
{
this->Cal_W8A();
message[3]=_w8a;
MPI_Send(message, 1, MPI_DOUBLE, 0,99,MPI_COMM_WORLD);
}
if(my_rank==0)
{
MPI_Recv(message, 1, MPI_DOUBLE, 1, 99, MPI_COMM_WORLD, &status);
MPI_Recv(message, 1, MPI_DOUBLE, 2, 99, MPI_COMM_WORLD, &status);
MPI_Recv(message, 1, MPI_DOUBLE, 3, 99, MPI_COMM_WORLD, &status);
MPI_Recv(message, 1, MPI_DOUBLE, 4, 99, MPI_COMM_WORLD, &status);
}
但是我调试的时候出现这个问题

请问问题出在哪里呢？