混合开放MP/MPI代码中的多线程发送/接收时出错

我在下面的代码中使用了OpenMP和MPI。我正在一台多核Windows机器上进行测试。

我得到了这两个错误：

[0] 致命错误 MPI_Send中的致命错误：其他 MPI 错误，错误堆栈： MPI_Send(buf=0x00007FF67497F33C， 计数=1， MPI_INT， dest=2， tag=1， MPI_COMM_WORLD( 失败 名片中缺少主机名或主机/端口描述无效

[1] 致命错误 MPI_Recv中的致命错误：其他 MPI 错误，错误堆栈： MPI_Recv(buf=0x00007FF67497F33C， 计数=1， MPI_INT， src=0， tag=1， MPI_COMM_WORLD， status=0x00007FF67497F348( 失败 共享内存队列名称没有空间

然后在另一次运行中，我收到此错误：

[0] 致命错误 MPI_Send中的致命错误：其他 MPI 错误，错误堆栈： MPI_Send(buf=0x000000172E31FCC4， 计数=1， MPI_INT， 目标=2， 标记=1， MPI_COMM_WORLD( 失败 在之前的尝试中无法与 2 通信

#include<iostream>
#include "mpi.h"
#include <omp.h>
using namespace std;
int numOfProc, id, array_size, portion;
int *arr = NULL;
MPI_Status status;
const static int tag = 1;

int main(int argc, char *argv[])
{
MPI_Init(&argc, &argv);
MPI_Comm_size(MPI_COMM_WORLD, &numOfProc);
MPI_Comm_rank(MPI_COMM_WORLD, &id);
cout << "Hello from Process # " << id << 'n';
int data; 
omp_set_num_threads(2);
#pragma omp parallel for
for (int i = 1; i < 20; i++)
{
if (id == 0)//master
{
for (int p = 1; p < numOfProc; p++)
{
data = i*p;
MPI_Send(&data, 1, MPI_INT, p, tag, MPI_COMM_WORLD);
}
}
else // slaves 
{
MPI_Recv(&data, 1, MPI_INT, 0, tag, MPI_COMM_WORLD, &status);
cout << "Process " << id << " recieved " << data << " by thread " << omp_get_thread_num() << endl; 
}
}
MPI_Finalize();
}