Insertion Sort. Metodo di ordinamento di un array.
		Stampa	Torna Indietro
Linguaggio: Fortran	Autore: Admin		Data Archiviazione: 08/06/2006

SUBROUTINE SSORT (X, IY, N, KFLAG)
IMPLICIT NONE

DO 100 I=2,N
IF ( X(I).GT.X(I-1) ) THEN
DO 50 J=I-2,1,-1
IF(X(I).LT.X(J)) go to 70
50 CONTINUE
J=0
70 TEMP=X(I)
ITEMP=IY(I)
DO 90 K=I,J+2,-1
IY(K)=IY(K-1)
90 X(K)=X(K-1)
X(J+1)=TEMP
IY(J+1)=ITEMP
ENDIF
100 CONTINUE
RETURN
END