慕运维8079593
只是为了扩大Joel的观点:如果分配数组以使它们连续(这样的话,C的“多维数组”不会自动给您:),则这样做会容易得多。int **alloc_2d_int(int rows, int cols) { int *data = (int *)malloc(rows*cols*sizeof(int)); int **array= (int **)malloc(rows*sizeof(int*)); for (int i=0; i<rows; i++) array[i] = &(data[cols*i]); return array;}/*...*/int **A;/*...*/A = alloc_2d_init(N,M);然后,您可以使用以下命令发送和接收整个NxM阵列MPI_Send(&(A[0][0]), N*M, MPI_INT, destination, tag, MPI_COMM_WORLD);完成后,释放内存free(A[0]);free(A);另外,MPI_Recv是阻止接收,并且MPI_Send可以是阻止发送。根据Joel的观点,一件事意味着您绝对不需要障碍。此外,这意味着,如果您具有上述的发送/接收模式,则可能陷入僵局-每个人都在发送,没有人在接收。更安全的是:if (myrank == 0) { MPI_Send(&(A[0][0]), N*M, MPI_INT, 1, tagA, MPI_COMM_WORLD); MPI_Recv(&(B[0][0]), N*M, MPI_INT, 1, tagB, MPI_COMM_WORLD, &status);} else if (myrank == 1) { MPI_Recv(&(A[0][0]), N*M, MPI_INT, 0, tagA, MPI_COMM_WORLD, &status); MPI_Send(&(B[0][0]), N*M, MPI_INT, 0, tagB, MPI_COMM_WORLD);}另一种更通用的方法是使用MPI_Sendrecv:int *sendptr, *recvptr;int neigh = MPI_PROC_NULL;if (myrank == 0) { sendptr = &(A[0][0]); recvptr = &(B[0][0]); neigh = 1;} else { sendptr = &(B[0][0]); recvptr = &(A[0][0]); neigh = 0;}MPI_Sendrecv(sendptr, N*M, MPI_INT, neigh, tagA, recvptr, N*M, MPI_INT, neigh, tagB, MPI_COMM_WORLD, &status);或非阻塞发送和/或接收。