Télécharger iswap.eso

Retour à la liste

Numérotation des lignes :

  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.  
  12.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales