Sorting algorithms/Bubble sort: Difference between revisions
Content deleted Content added
m →{{header|Smalltalk}}: Changed to wp link |
m →{{header|Fortran}}: code tweaks |
||
Line 317:
REAL, INTENT(in out), DIMENSION(:) :: a
REAL :: temp
INTEGER :: i,
LOGICAL :: swapped = .TRUE.
DO
END
IF (.NOT. swapped)
▲ END DO
END DO
END SUBROUTINE Bubble_Sort
|