сортировка массивов по строкам в FORTRAN

Question

Мне нужно отсортировать строки матрицы в порядке возрастания/убывания. В MATLAB можно сделать довольно легко следующим образом:

A=[3 1 0;2 1 9;0 4 8] 
sortrows(A,1) 

так будет сортировать строки в колонке «1» и другие столбцы будут следовать соответствующим образом. Но мне нужно сделать это в ФОРТРАНЕ. И я не очень хорошо знаком с FORTRAN. Может кто-нибудь посоветует мне, как это сделать в FORTRAN. Благодарю.

Answer 1

Хотя Fortran не имеет сортировки встроенных функций, код может стать немного проще, если вы используете minloc функцию, чтобы найти наименьший элемент в первом столбце и обменивать соответствующую строку с текущим итерационно, например:

program main 
    implicit none 
    integer :: A(3,3), buf(3) 
    integer :: nsize, irow, krow 

    nsize = 3 
    A(1, :) = [ 3, 1, 0 ] 
    A(2, :) = [ 2, 1, 9 ] 
    A(3, :) = [ 0, 4, 8 ] 

    do irow = 1, nsize 
     krow = minloc(A(irow:nsize, 1), dim=1) + irow - 1 

     buf(:)  = A(irow, :) 
     A(irow, :) = A(krow, :) 
     A(krow, :) = buf(:) 
    enddo 
end 

который дает

A(1, :) = 0 4 8 
A(2, :) = 2 1 9 
A(3, :) = 3 1 0