fortran怎么实现冒泡程序

Question

 if(bub(j)<=bub(j+1)) then
    maxrow=bub(j+1)
    bub(j+1)=bub(j)
    bub(j)=maxrow
   end if

bub（i）是一个一维数组，排序说输出有错误

Answer 1

你的代码能更详细点吗？

实现的话 下面的代码就可以：

subroutine BUBBLE_SORT(A,N)

 IMPLICIT NONE

 INTEGER :: N, A(N)

INTEGER I,J,TEMP

DO I = N-1,1,-1

   DO J = 1,I

        IF(A(J) > A(J+1))THEN

           TEMP = A(J)

           A(J) = A(J+1)

           A(J+1) = TEMP

      ENDIF

     ENDDO

   ENDDO

RETURN

END SUBROUTINE