一个fortran文件排序函数

以下是一个简单的Fortran程序，可以对一个整数数组进行排序：

program sort
    implicit none
    integer, parameter :: n = 10 ! 数组大小
    integer :: arr(n) = [5, 3, 9, 1, 7, 4, 6, 8, 2, 0] ! 待排序的数组
    integer :: i, j, temp

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

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

end program sort

在这个程序中，我们使用了冒泡排序算法对一个大小为10的整数数组进行排序。首先定义了一个包含10个元素的整数数组arr，并初始化它的值。然后使用双重循环来实现冒泡排序算法，最后输出排序后的数组。

请注意，这只是一个简单的示例程序，如果需要对更大或更复杂的数组进行排序，可能需要使用更高效的排序算法。