Esope source files

   1 : C ISWAP     SOURCE    CHAT      05/01/13    00:44:10     5004           
   2 :       SUBROUTINE ISWAP(IVK,I1,I2,N)                                             
   3 : C---  Echange deux valeurs d'un tableau d'entiers                               
   4 :       IMPLICIT INTEGER(I-N)
   5 :       INTEGER IVK(N)                                                            
   6 :       IT=IVK(I1)                                                                
   7 :       IVK(I1)=IVK(I2)                                                           
   8 :       IVK(I2)=IT                                                                
   9 :       RETURN                                                                    
  10 :       END                                                                       
  11 :