日志
fortran比较数组大小
https://zhidao.baidu.com/question/439102896.html
real*8 :: a(n)
real*8 :: temp
integer :: i,j
do i=1,n-1
do j=i+1,n
if (a(i) .lt. a(j)) then
temp = a(i)
a(i) = a(j)
a(j) = temp
endif
enddo
enddo
real*8 :: temp
integer :: i,j
do i=1,n-1
do j=i+1,n
if (a(i) .lt. a(j)) then
temp = a(i)
a(i) = a(j)
a(j) = temp
endif
enddo
enddo