Data commit

Task/Sorting-algorithms-Shell-sort/Fortran/sorting-algorithms-shell-sort.f

@@ -0,0 +1,51 @@
+MODULE sort
+
+CONTAINS
+
+SUBROUTINE Shell_Sort(a)
+
+  IMPLICIT NONE
+  INTEGER :: i, j, increment
+  REAL :: temp
+  REAL, INTENT(in out) :: a(:)
+	
+  increment = SIZE(a) / 2
+  DO WHILE (increment > 0)
+      DO i = increment+1, SIZE(a)
+         j = i
+         temp = a(i)
+         DO WHILE (j >= increment+1 .AND. a(j-increment) > temp)
+            a(j) = a(j-increment)
+            j = j - increment
+         END DO
+         a(j) = temp
+      END DO
+      IF (increment == 2) THEN
+   	  increment = 1
+      ELSE
+         increment = increment * 5 / 11
+      END IF
+  END DO
+
+END SUBROUTINE Shell_Sort
+
+END MODULE sort
+
+PROGRAM Shellsort
+
+USE sort
+
+  IMPLICIT NONE
+  REAL :: array(1000)
+
+  CALL RANDOM_SEED
+  CALL RANDOM_NUMBER(array)
+
+  WRITE (*,*) "Unsorted array"
+  WRITE (*,*) array
+  WRITE (*,*)
+  CALL Shell_Sort(array)
+  WRITE (*,*) "Sorted array"
+  WRITE (*,*) array
+
+END PROGRAM Shellsort