MPI_gather/MPI_gatherv测试

最新推荐文章于 2025-06-25 09:06:24 发布

zhuliting

最新推荐文章于 2025-06-25 09:06:24 发布

阅读量7.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： FORTRAN MPI 文章标签： integer 测试 c

本文链接：https://blog.youkuaiyun.com/zhuliting/article/details/6429209

MPI 同时被 2 个专栏收录

29 篇文章

订阅专栏

FORTRAN

21 篇文章

订阅专栏

本文介绍了一个使用MPI进行数据收集的程序实例，展示了如何通过MPI_GATHER和MPI_GATHERV将不同进程上的数据按指定方式收集到根进程。通过具体代码和运行结果分析，解释了两种数据收集方式的区别。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

每个进程上都有一组数据，将它们收集到进程编号为root的进程中，并按进程编号的顺序存放

program gather include 'mpif.h' integer,parameter::maxbuf = 200, len = 10, mp = 5 integer myid, p, mycomm, ierr, root, ia(len), iga(maxbuf), & i, displs(mp), counts(mp) call MPI_Init(ierr) call MPI_Comm_dup(MPI_COMM_WORLD, mycomm, ierr) call MPI_Comm_rank(mycomm, myid, ierr) call MPI_Comm_size(mycomm, p, ierr) print *, 'Process ', myid, ' of', p, 'is running' do i = 1, len ia(i) = i + myid*len enddo do i = 1, p displs(i) = 20*i - 20 counts(i) = len enddo root = 0 call MPI_gather(ia, len, MPI_INTEGER, iga, len, & MPI_INTEGER, root, mycomm, ierr) if(myid.eq.root) then print *, 'The gather values are:', & iga(1), iga(len+1), iga(2*len + 1) endif call MPI_gatherv(ia, len, MPI_INTEGER, iga, counts, & displs,MPI_INTEGER, root, mycomm, ierr) if(myid.eq.root) then print *, 'The gatherv values are:', & iga(2), iga(2*len+2), iga(4*len + 2) endif call MPI_Comm_free(mycomm, ierr) call MPI_Finalize(ierr) stop end

result:

[root@c0108 ~]# mpiexec -n 4 ./gather Process 0 of 4 is running The gather values are: 1 11 21 The gatherv values are: 2 12 22 Process 1 of 4 is running Process 3 of 4 is running Process 2 of 4 is running

这个程序的输出值分别为: 1, 11, 21 和2, 12, 22.

MPI_GATHER 接收到的数据在接收缓冲区中是连续存放的, 而MPI_GATHERV 接收到的数据在接收缓冲区中是不连续存放的, 在我们这里给出的例子中, 由于COUNTS 的所有分量是相同的, 可以看成是每隔步长为20 的位置存放一个新接收的数据.