用fortran写出程序并解释步骤，有 n 个数，要求按照由小到大顺序排列输出

在Fortran中，可以使用内置的排序函数或选择一种简单的交换排序算法如冒泡排序来对n个数进行升序排列。这里我们提供一个基于冒泡排序的例子，并解释其步骤：

program bubble_sort
    implicit none
    integer :: array(n), i, j, temp

    ! 输入n个数
    print *, "请输入n个整数:"
    do i = 1, n
        read *, array(i)
    end do

    ! 冒泡排序算法
    do
        done := .true.  ! 设置标志，表示是否已经完成一轮排序
        ! 从第一个元素开始，比较相邻元素
        for i = 1, n-1 do
            if array(i) > array(i+1) then
                ! 如果当前元素大于下一个，交换它们的位置
                temp = array(i)
                array(i) = array(i+1)
                array(i+1) = temp
                done = .false.  ! 执行下一次迭代
            end if
        end do
        ! 如果这一轮没有任何交换发生，说明已经有序，退出循环
        if done then
            exit
        end if
    end do

    ! 输出排序后的数组
    print *, "按从小到大排序后的数组:"
    do i = 1, n
        write(*,*) array(i)
    end do

end program bubble_sort