Bubble sort: differenze tra le versioni

Versione delle 12:32, 29 nov 2004

Versione delle 10:02, 10 dic 2004

Riga 114:

===[[FORTRAN]]===

SUBROUTINE SSORTBubble (X, IY, N)

IMPLICIT NONE

INTEGER :: N, J, I, JMAX, TEMP

JMAX= INTEGER :: X(N-1)

DO 200 IJMAX=1,N-1

ciclo1: DO TEMPI=1.E38,N-1

DO 100ciclo2: DO J=1,JMAX

IF(X(J).GT.X(J+1)) GO TO 100

TEMP=X(J)

X(J)=X(J+1)

X(J+1)=TEMP

100 END DO ITEMP=IY(J)ciclo2

IY(J)=IY(J+1)

IY(J+1)=ITEMP

100 CONTINUE

IF(TEMP.EQ.1.E38) GO TO 300

JMAX=JMAX-1

END DO ciclo1

200 CONTINUE

300 RETURN

END