假设您的代码如下所示:
int rank, size; // rank of the process and size of the communicator
int root = 0; // root process of our scatter
int recvCount = 4; // or whatever
double *sendBuf = rank == root ? new double[recvCount * size] : NULL;
double *recvBuf = new double[recvCount];
MPI_Scatter( sendBuf, recvCount, MPI_DOUBLE,
recvBuf, recvCount, MPI_DOUBLE,
root, MPI_COMM_WORLD );
所以在这里,root 进程确实会向自己发送数据,尽管这可以避免。
以下是实现这一目标的两种显而易见的方法。
使用MPI_IN_PLACE
对MPI_Scatter() 的调用不必更改。代码中唯一的变化是接收缓冲区的定义,它会变成这样:
double *recvBuf = rank == root ?
static_cast<double*>( MPI_IN_PLACE ) :
new double[recvCount];
使用MPI_Scatterv()
这样,您必须定义一个描述各个接收大小的整数数组,一个描述起始索引的位移数组,并在对MPI_Scatterv() 的调用中使用它们,这将取代您对MPI_Scatter() 的调用,如下所示:
int sendCounts[size] = {recvCount}; // everybody receives recvCount data
sendCounts[root] = 0; // but the root process
int displs[size];
for ( int i = 0; i < size; i++ ) {
displs[i] = i * recvCount;
}
MPI_Scatterv( sendBuf, sendCounts, displs, MPI_DOUBLE,
recvBuf, recvCount, MPI_DOUBLE,
root, MPI_COMM_WORLD );
当然,在这两种情况下,进程root 的接收缓冲区中都没有数据,这必须在您的代码中加以说明。
我个人更喜欢第一个选项,但两者都有效。