MPI_Wait

MPI_Init();
rnk =    MPI_Comm_rank();
sizeNodes =    MPI_Comm_size();
SLV = rnk;
Master = ~ SLV;
assert_checkequal(MPI_Comm_size(), 2);
if Master
   for slaveId = 1:sizeNodes-1
     value = slaveId*2
     MPI_Isend(value, slaveId, 42);
   end
else
    rankSource=0;
    tag=0;
    MPI_Irecv(rankSource, tag, 42); // MPI_Irecv は値を返しません
    value=MPI_Wait(42) // 値はMPI_Waitにより返されます
    assert_checkequal(value,2);
end
MPI_Finalize();
exit()