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