! 選擇排序法范例
! By Perng 1997/8/29
program SELECTION_SORT_DEMO
  implicit none
  integer, parameter :: N=10
  integer :: A(N)=(/6,2,8,4,0,9,3,5,1,7/) ! 排序的數(shù)據(jù)

  write(*,"('Source=>',10I3)") A
  call SELECTION_SORT(A,N)      ! 調(diào)用排序的子程序
  write(*,"('Sort=>',10I3)") A
  
  stop
end program
!
! 選擇排序法的子程序
!
subroutine SELECTION_SORT(A,N)
  implicit none
  integer :: N,A(N)
  integer I,J  ! 循環(huán)計(jì)數(shù)器
  integer MIN  ! 找出每一輪中的最小值
  integer TEMP ! 交換數(shù)據(jù)時(shí)使用

  do I=1,N
    MIN=A(I)     ! 暫時(shí)令A(yù)(I)是最小值
    do J=I+1,N
      if ( MIN > A(J) ) then   ! 發(fā)現(xiàn)A(I)不是最小
        TEMP=A(J)        ! 把A(I)、A(J)交換
        A(J)=A(I)
        A(I)=TEMP
        MIN=A(I)
      end if
	end do
  end do
                              
  return
end subroutine