Sorting algorithms/Bubble sort: Difference between revisions

Content added Content deleted
m (→‎{{header|Smalltalk}}: Changed to wp link)
m (→‎{{header|Fortran}}: code tweaks)
Line 317:
REAL, INTENT(in out), DIMENSION(:) :: a
REAL :: temp
INTEGER :: i, lastj
LOGICAL :: swapped = .TRUE.
lastDO j = SIZE(a)-1, 1, -1
DO WHILE (swapped = .ORFALSE. last == 1)
DO lasti = last -1, j
swapped =IF .FALSE.(a(i) > a(i+1)) THEN
DO i = 1,temp last= a(i)
IF (a(i) >= a(i+1)) THEN
temp = a(i+1) = temp
a(i)swapped = a(i+1).TRUE.
END a(i+1) = tempIF
END DO▼
swapped = .TRUE.
IF (.NOT. swapped) END IFEXIT
▲ END DO
END DO
END SUBROUTINE Bubble_Sort
Retrieved from "https://rosettacode.org/wiki/Sorting_algorithms/Bubble_sort"