选择排序 Fortran代码

选择排序

program main

      implicit none
      integer src(9)

      data src /9,1,8,2,7,3,6,4,5/

      write(*,*) src 

      call select_sort(src, size(src))

      write(*,*) src 


end


subroutine select_sort(src, length)
      integer src(9)
      integer length
      integer min,i,j,tmp


      do i=1,length-1
        min=i
        do j=i+1,length
            if (src(j) < src(min)) then
                min=j

            end if

        end do
        tmp = src(min)
        src(min) = src(i)
        src(i) = tmp 

      end do

end subroutine