Коллективные взаимодействия процессов

/*
 * Рассылка строк массива с использованием функции MPI_Scatter
 */
 
#include <mpi.h>
#include <stdio.h>
#define N 4
 
int main(int argc, char **argv)
{
    int i,size, rank, sendcount, recvcount, source;
    float sendbuf[N][N] = {
      {1.0, 2.0, 3.0, 4.0},
      {5.0, 6.0, 7.0, 8.0},
      {9.0, 10.0, 11.0, 12.0},
      {13.0, 14.0, 15.0, 16.0}  };
    float recvbuf[N];
 
    MPI_Init(&argc,&argv);
    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
    MPI_Comm_size(MPI_COMM_WORLD, &size);
    
    if (size == N) {
      source = 1;
      sendcount = N;
      recvcount = N;
    MPI_Scatter(sendbuf,sendcount,MPI_FLOAT,recvbuf,recvcount, MPI_FLOAT,source,MPI_COMM_WORLD);
      printf("rank= %d  Results: %f %f %f %f\n",rank,recvbuf[0],
             recvbuf[1],recvbuf[2],recvbuf[3]);
    }
    else
      printf("Must specify %d processors. Terminating.\n",N);
 
 
    MPI_Finalize();
}