all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bubble-sort/Fortran/sorting-algorithms-bubble-sort.f
+++ b/Task/Sorting-algorithms-Bubble-sort/Fortran/sorting-algorithms-bubble-sort.f
@ -0,0 +1,19 @@
+SUBROUTINE Bubble_Sort(a)
+  REAL, INTENT(in out), DIMENSION(:) :: a
+  REAL :: temp
+  INTEGER :: i, j
+  LOGICAL :: swapped = .TRUE.
+
+  DO j = SIZE(a)-1, 1, -1
+    swapped = .FALSE.
+    DO i = 1, j
+      IF (a(i) > a(i+1)) THEN
+        temp = a(i)
+        a(i) = a(i+1)
+        a(i+1) = temp
+        swapped = .TRUE.
+      END IF
+    END DO
+    IF (.NOT. swapped) EXIT
+  END DO
+END SUBROUTINE Bubble_Sort