选择排序
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