用fortran写一个冒泡算法

以下是使用Fortran编写的冒泡排序算法：

program bubble_sort

    implicit none

    integer :: array(10) = [9, 3, 2, 7, 6, 8, 1, 4, 5, 10] ! 待排序数组
    integer :: i, j, temp

    do i = 1, size(array)-1 ! 外层循环控制排序轮数
        do j = 1, size(array)-i ! 内层循环控制比较次数
            if (array(j) > array(j+1)) then ! 如果前一个元素大于后一个元素
                temp = array(j) ! 交换两个元素的位置
                array(j) = array(j+1)
                array(j+1) = temp
            end if
        end do
    end do

    write(*,*) "排序后的数组为："
    do i = 1, size(array) ! 输出排序后的数组
        write(*,*) array(i)
    end do

end program bubble_sort

在上面的代码中，我们使用了一个长度为10的整数数组来测试冒泡排序算法。在外层循环中，我们控制排序轮数，内层循环中，我们控制比较次数。如果前一个元素大于后一个元素，则交换它们的位置。最后，我们输出排序后的数组。