Il Linguaggio Fortran 90/95

282 Unità di Programma
RECURSIVE SUBROUTINE quick_sort(a)
IMPLICIT NONE
INTEGER, DIMENSION(:), INTENT(inout) :: a
INTEGER :: i,n
n = SIZE(a)
IF (n>1) THEN
CALL partition(a,i)
CALL quick_sort(a(:i-1))
CALL quick_sort(a(i+1:))
END IF
CONTAINS
SUBROUTINE partition(a,j)
INTEGER, DIMENSION(:), INTENT(inout) :: a
INTEGER,INTENT(out) :: j
INTEGER :: i,temp
i = 1
j = SIZE(a)
DO
DO
IF (i>j) EXIT
IF (a(i)>a(1)) EXIT
i = i+1
END DO
DO
IF ((j