MPI 并行奇偶交换排序（Fortran）

奇偶交换排序

假设一组数有n个值，通过以下阶段可以将这组数排序：

• 第1阶段：将第1和第2个数、第3和第4个数、第5和第6个数…两两进行比较，每两个按大小排好；
• 第2阶段：不过是将第2和第3个数、第4和第5个数、第6和第7个数…两两进行比较，同样每两个按大小排好；
• 第3阶段：重复第1阶段；
• 第4阶段：重复第2阶段；
• …

最多需要n个阶段，就能把这组数排好序。

并行化

使用MPI，思路是把这组数分成几组，每个进程一组，内部先排好序，然后让进程和进程之间比较，小的进程取这两个进程最小的几个数，大的进程取最大的几个数，可以保证比较的两个进程的数是排好序的，重复奇偶交换步骤。以下使用fortran代码编写。

module my_module
    use mpi
    implicit none
    contains
        ! 排序
        subroutine sort(k)
            implicit none
            integer :: k(:), n, i, j, temp
            n = size(k)
            ! 冒泡排序
            do i=1, n
                do j=1, n-i
                    if (k(j) > k(j+1)) then
                        temp = k(j)
                        k(j)