MPI:为什么在下一个示例中使用MPI_Barrier时出现错误

我是MPI的新手，我想做一个问题，我有两个数组a和B，有15个元素，我有16个进程，每个进程代表数组中的一个元素(我不使用进程零)。数组A存储了位置8…15的输入数据，其中这些位置代表树的叶子，在第一步中，我在数组中进行压缩，其中叶子将数字发送给父母，父母从所有子中接收，并将数字相加并发送给父亲。数组A在过程1中完成，其中是数组中所有元素的总和。在第二步中，我进行前缀计算，从过程0开始，到叶子结束。为了计算数组B，所有其他进程都需要等待进程1完成工作，为此，我使用MPI_Barrier，但在执行代码时出错。

int m = 3;
int n = (int)pow(2, m);
int *A = (int*)malloc(2 * n * sizeof(int));
int *B = (int*)malloc(2 * n * sizeof(int));
int id;
MPI_Status status;
A[8] = 4; A[9] = 8; A[10] = 5; A[11] = 2;
A[12] = 10; A[13] = 6; A[14] = 9; A[15] = 11;
MPI_Init(&argc, &argv);   
MPI_Comm_rank(MPI_COMM_WORLD, &id);
if (id == 1)
{
int nr;
int suma = 0;
MPI_Recv(&nr, 1, MPI_INT, 2 * id, 99, MPI_COMM_WORLD, &status);
suma += nr;
MPI_Recv(&nr, 1, MPI_INT, 2 * id + 1, 99, MPI_COMM_WORLD, &status);
suma += nr;
A[id] = suma;
printf("A[%d]=%dn", id, A[id]);
B[id] = A[id];
printf("B[%d]=%dn", id, B[id]);
MPI_Barrier(MPI_COMM_WORLD);
}
else
{
if (id != 0)
{
if(id >= 8)
{
MPI_Send(&A[id], 1, MPI_INT, id / 2, 99, MPI_COMM_WORLD);
printf("%d a trimis %d catre %dn", id, A[id], id / 2);
MPI_Barrier(MPI_COMM_WORLD);
}
else
{
int nr;
int suma = 0;
MPI_Recv(&nr, 1, MPI_INT, 2 * id, 99, MPI_COMM_WORLD, &status);
suma += nr;
MPI_Recv(&nr, 1, MPI_INT, 2 * id + 1, 99, MPI_COMM_WORLD, &status);
suma += nr;
A[id] = suma;
MPI_Send(&A[id], 1, MPI_INT, id / 2, 99, MPI_COMM_WORLD);
printf("%d a trimis %d catre %dn", id, A[id], id / 2);
MPI_Barrier(MPI_COMM_WORLD);
}
if (id % 2 == 1)
{
B[id] = B[(id - 1) / 2];
printf("B[%d]=%dn", id, B[id]);
}
else
{
B[id] = B[id / 2] - A[id + 1];
printf("B[%d]=%dn", id, B[id]);
}
}
MPI_Finalize();
free(A);
return 0;

我收到下一个错误：

[15]致命错误
MPI_Barrier中的致命错误：其他MPI错误，错误堆栈：
MPI_Barrier(MPI_COMM_WORLD)失败
未能连接到引导队列-5064:344

如何使程序正常工作？