一个fortran文件排序函数

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

program sort

  implicit none

  integer :: i, j, n
  integer :: a(100)

  ! 获取数组大小
  print *, "请输入数组大小（不超过100）："
  read *, n

  ! 获取数组元素
  print *, "请输入数组元素："
  do i = 1, n
     read *, a(i)
  end do

  ! 冒泡排序
  do i = 1, n-1
     do j = 1, n-i
        if (a(j) > a(j+1)) then
           ! 交换两个元素
           a(j) = a(j) + a(j+1)
           a(j+1) = a(j) - a(j+1)
           a(j) = a(j) - a(j+1)
        end if
     end do
  end do

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

end program sort

你可以将上述代码保存为一个名为`sort.f90`的文件，然后使用Fortran编译器进行编译和执行。例如，使用`gfortran`编译器，可以使用以下命令编译并执行程序：

gfortran -o sort sort.f90
./sort