ОпенМП расспаралелить скалярное произведение двух n-мерных векторов (массивов)

int main()
{
    setlocale(LC_ALL, "Russian");
    size_t n;
    cout << "Введите размерность пространства" << endl;
    cin >> n;
    vector<vector<int> > matrix(2, vector<int>(n));
    for (vector<vector<int> >::iterator i = matrix.begin(); i != matrix.end(); ++i)
    {
        cout << "Введите вектор" << endl;
        for (vector<int>::iterator j = i->begin(); j != i->end(); ++j)
            cin >> *j;
    }
    vector<int> vec;
    for (size_t i = 0; i < n; ++i)
        vec.push_back(matrix[0][i] * matrix[1][i]);
    cout << "Скалярное произведение " << accumulate(vec.begin(), vec.end(), 0) << endl;
 
    _getch();

int main(int argc, char *argv[])
{
    int myid, numprocs;
    int tag,source,destination,count;
    int buffer;
    MPI_Status status;
    MPI_Request request;
 
    MPI_Init(&argc,&argv);
    MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
    MPI_Comm_rank(MPI_COMM_WORLD,&myid);
    tag=1234;
    source=0;
    destination=1;
    count=1;
    request=MPI_REQUEST_NULL;
    if(myid == source){
      buffer=5678;
      MPI_Isend(&buffer,count,MPI_INT,destination,tag,MPI_COMM_WORLD,&request);
    }
    if(myid == destination){
        MPI_Irecv(&buffer,count,MPI_INT,source,tag,MPI_COMM_WORLD,&request);
    }
    MPI_Wait(&request,&status);
    if(myid == source){
      printf("processor %d  sent %d\n",myid,buffer);
    }
    if(myid == destination){
      printf("processor %d  got %d\n",myid,buffer);
    }
    MPI_Finalize();
 
 
}