Sources Esope | Cast3M

ordota
C ORDOTA    SOURCE    CHAT      05/01/13    02:06:14     5004
      SUBROUTINE ORDOTA(IVK,N)
C---  Range par ordre croissant un tableau d'entiers
      IMPLICIT INTEGER(I-N)
      INTEGER IVK(N)
      DO 10 I=1,N
         IVMIN=2000000000
         IRMIN=I
         DO 11 J=I,N
            IF(IVK(J).LT.IVMIN) THEN
               IVMIN=IVK(J)
               IRMIN=J
            END IF
 11      CONTINUE
         IF(IRMIN.NE.I) CALL ISWAP(IVK,I,IRMIN,N)
 10   CONTINUE
      RETURN
      END