Esope source files

   1 : C ORDOTA    SOURCE    CHAT      05/01/13    02:06:14     5004           
   2 :       SUBROUTINE ORDOTA(IVK,N)
   3 : C---  Range par ordre croissant un tableau d'entiers                            
   4 :       IMPLICIT INTEGER(I-N)
   5 :       INTEGER IVK(N)                                                            
   6 :       DO 10 I=1,N                                                               
   7 :          IVMIN=2000000000                                                       
   8 :          IRMIN=I                                                                
   9 :          DO 11 J=I,N                                                            
  10 :             IF(IVK(J).LT.IVMIN) THEN                                            
  11 :                IVMIN=IVK(J)                                                     
  12 :                IRMIN=J                                                          
  13 :             END IF                                                              
  14 :  11      CONTINUE                                                               
  14 :          IF(IRMIN.NE.I) CALL ISWAP(IVK,I,IRMIN,N)                               
  15 :  10   CONTINUE                                                                  
  16 :       RETURN                                                                    
  17 :       END                                                                       
  18 :