MPI рассылка сообщения случайному процессу

#include "mpi.h"
#include <stdio.h>
#include <iostream>
#include <stdlib.h>
using namespace std;
 
int main(int argc, char **argv)
{
   int rank,numprocs;
   int module = 0, fMasmSize = 0;
   int max = 0;
   int *masm;
   double startwtime = 0.0;
   double endwtime;
   int masmSize = 0;
   MPI_Status status;
   if (int rc= MPI_Init(&argc, &argv))
   {
     cout << "Ошибка запуска, выполнение остановлено " << endl;
     MPI_Abort(MPI_COMM_WORLD, rc);
   }
   MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
   if(numprocs<2)
   {
    cout<<"Подключите больше одного процессора"<<endl;
        MPI_Finalize();
    return -1;
   }
   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
   int mes = 0;
   int rand_value;
   int size_mess = 0;   
   if(rank == 0)
   {
    rand_value = rand()%(numprocs-1) + 1;
    mes++;
    cout<<"Процесс № "<<rank<<" отправляет сообщение "<<mes<<" процессу № "<<rand_value<<"\n";
    MPI_Send(&mes, 1, MPI_INT, rand_value, 1, MPI_COMM_WORLD);
    
    
    
   }
   while(true)
{
   if(rank!=0)
   {
    MPI_Probe( MPI_ANY_SOURCE, 1, MPI_COMM_WORLD, &status );
    MPI_Get_count( &status, MPI_INT, &size_mess );
    
    MPI_Recv(&mes, size_mess, MPI_INT,MPI_ANY_SOURCE, 1, MPI_COMM_WORLD, &status);
    cout<<"Процесс № "<<rank<<" принял сообщение "<<mes<<"\n"<<"\n";
    
    rand_value = rand()%(numprocs-1) + 1;
    mes++;
    if(mes == 5)
    {
           MPI_Finalize();
           return 0;
    }
    cout<<rand_value<<"рандомное значение\n";
    cout<<"Процесс № "<<rank<<" отправляет сообщение "<<mes<<" процессу № "<<rand_value<<"\n";
    MPI_Send(&mes, 1, MPI_INT, rand_value, 1, MPI_COMM_WORLD);
    
        
   }
}
      MPI_Finalize();   
}