Отправка и прием сообщений в MS MPI

#include "mpi.h"
#include "omp.h"
#include "iostream"
 
using namespace std;
 
double VectorNorm(double* a, int n)
{
   double x = 0;
#pragma omp parallel for reduction(+ : x)
   for (int i = 0; i < n; i++)
      x += a[i] * a[i];
   x = sqrt(x);
   return x;
}
 
 
int main(int argc, char **argv)
{
   int rank, size;
   int n = 100000;
   double norm_s, norm_r;
   int flag;
   MPI_Request rq;
   MPI_Status st;
 
 
   MPI_Init(&argc, &argv);
   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
   MPI_Comm_size(MPI_COMM_WORLD, &size);
 
   if (rank != 0)
   {
      double* v = new double[n];
      for (int i = 0; i < n; i++)
         v[i] = rand();
      norm_s = VectorNorm(v, n);
      MPI_Send(&norm_s, 1, MPI_DOUBLE, 0, 0, MPI_COMM_WORLD);
   }
   else 
   {
      for (int i = 0; i < size; i++)
      {
         MPI_Irecv(&norm_r, 1, MPI_DOUBLE, i, 0, MPI_COMM_WORLD, &rq);
         MPI_Test(&rq, &flag, &st);
         cout << "Process # " << i << " sent norm of vector " << norm_r;
      }
   }
 
   MPI_Finalize();
   return 0;
}