Sorting algorithms/Bubble sort: Difference between revisions
Content added Content deleted
Line 1,253: | Line 1,253: | ||
REAL :: temp |
REAL :: temp |
||
INTEGER :: i, j |
INTEGER :: i, j |
||
LOGICAL :: swapped |
LOGICAL :: swapped |
||
DO j = SIZE(a)-1, 1, -1 |
DO j = SIZE(a)-1, 1, -1 |
||
Line 1,268: | Line 1,268: | ||
END DO |
END DO |
||
END SUBROUTINE Bubble_Sort</lang> |
END SUBROUTINE Bubble_Sort</lang> |
||
=={{header|Go}}== |
=={{header|Go}}== |
||
Per task pseudocode: |
Per task pseudocode: |