Fortran如何求一组数中的最小几个数（除了排序）

li913

[Fortran] 纯文本查看 复制代码

program test 
implicit none 
real(4) a(7)
logical Lgc(7)
integer ind(1), i
a=(/8,9,1,4,2,3,5/)
Lgc =.true.
do i=1,3
ind = minloc(a,Lgc)
print*,ind  ! 3,5,6
lgc(ind(1)) = .false.
end do 
end program 

   
如果只是在大量数据中找寻几个数据，或者数据总量很少，这个方法可以。否则还是排序的好。