消息传递并行编程环境.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 归约 归约 归约 Sample - C #include mpi.h /* Run with 16 processes */ int main (int argc, char *argv[]) { int rank, root=7; struct { double value; int rank; } in, out; MPI_Init(argc, argv); MPI_Comm_rank(MPI_COMM_WORLD,rank); in.value=rank+1; in.rank=rank; MPI_Reduce(in,out,1,MPI_DOUBLE_INT,MPI_MAXLOC,root,MPI_COMM_WORLD); if(rank==root) printf(P :%d max=%lf at rank %d\n,rank,out.value,out.rank); MPI_Reduce(in,out,1,MPI_DOUBLE_INT,MPI_MINLOC,root,MPI_COMM_WORLD); if(rank==r