用Fortran语言 3、 设计一个子例行程序，实现一维数组中所有元素按从大到小排序以及从小到大排序，调用该子程序，将一个二维数组每一行重新排序，要求奇数行从大到小排，偶数行从小到大排序。（tips：可以将奇偶数也定义个虚参，当实参传入奇数时从大到小排，偶数时从小到大排。）

以下是一个简单的实现：

subroutine sort_array(arr, n, order)
!按顺序排序一维数组
!arr: 数组
!n: 数组长度
!order: 排序顺序，1表示从小到大，-1表示从大到小
    integer, intent(inout) :: arr(n)
    integer, intent(in) :: order
    integer :: i, j, temp
    do i = 1, n-1
        do j = i+1, n
            if (arr(i)*order > arr(j)*order) then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            end if
        end do
    end do
end subroutine

subroutine sort_2darray(arr, m, n, order)
!按顺序排序二维数组
!arr: 数组
!m: 行数
!n: 列数
!order: 排序顺序，1表示从小到大，-1表示从大到小
    integer, intent(inout) :: arr(m, n)
    integer, intent(in) :: order
    integer :: i
    do i = 1, m
        if (mod(i, 2) == 1) then
            call sort_array(arr(i, :), n, -1)
        else
            call sort_array(arr(i, :), n, 1)
        end if
    end do
end subroutine

你可以在主程序中定义一个二维数组，然后调用 `sort_2darray` 子程序对其进行排序。例如：

program test_sort
    integer :: arr(3, 5) = reshape([1, 9, 3, 7, 5, &
                                     8, 6, 2, 4, 0, &
                                     11, 13, 15, 12, 10], [3, 5])
    integer :: i, j
    write(*, *) "原始数组:"
    do i = 1, 3
        write(*, *) arr(i, :)
    end do
    call sort_2darray(arr, 3, 5, 1)
    write(*, *) "排序后数组:"
    do i = 1, 3
        write(*, *) arr(i, :)
    end do
end program test_sort

运行结果：

原始数组:
           1           9           3           7           5
           8           6           2           4           0
          11          13          15          12          10
排序后数组:
           9           7           5           3           1
           0           2           4           6           8
          15          13          11          10          12