一个fortran文件排序函数

下面是一个简单的Fortran程序，它使用冒泡排序算法对一个整数数组进行排序：

program sort

    implicit none

    integer :: n, i, j, temp
    integer :: arr(10) = [5, 1, 9, 3, 7, 2, 8, 4, 10, 6]

    n = size(arr)

    do i = 1, n-1
        do j = 1, n-i
            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(*,*) "Sorted array:"
    do i = 1, n
        write(*,*) arr(i)
    end do

end program sort

在这个程序中，我们首先声明了一个整数数组 `arr`，并将其初始化为一个未排序的序列。然后，我们使用两个嵌套的循环来遍历数组，并使用条件语句来比较相邻的元素，并在必要时交换它们的位置。最后，我们输出排序后的数组。

这只是一个简单的例子，如果你需要更高效的排序算法，可以考虑使用快速排序或归并排序等更高级的算法。