Fortran 冒泡排序算法示例代码

下面是一个简单的 Fortran 冒泡排序算法的源代码示例：

program bubble_sort
    implicit none
    integer, parameter :: n = 8
    real :: a(n), temp
    integer :: i, j

    ! 初始化数组 a
    a = [4.5, 6.7, 5.7, 1.9, 9.4, 5.4, 8.2, 6.7]

    ! 冒泡排序算法
    do i = 1, n-1
        do j = 1, n-i
            if (a(j) > a(j+1)) then
                temp = a(j)
                a(j) = a(j+1)
                a(j+1) = temp
            end if
        end do
    end do

    ! 输出排序结果
    print *, '排序后的数组：'
    do i = 1, n
        print *, a(i)
    end do

end program bubble_sort

这个程序使用冒泡排序算法对一个包含 8 个实数的数组进行排序。你可以根据自己的需要修改数组的大小和元素的值。程序会打印出排序后的数组。