C ISWAP     SOURCE    CHAT      05/01/13    00:44:10     5004
      SUBROUTINE ISWAP(IVK,I1,I2,N)
C---  Echange deux valeurs d'un tableau d'entiers
      IMPLICIT INTEGER(I-N)
      INTEGER IVK(N)
      IT=IVK(I1)
      IVK(I1)=IVK(I2)
      IVK(I2)=IT
      RETURN
      END