Télécharger ordota.eso

Retour à la liste

Numérotation des lignes :

  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
  15. IF(IRMIN.NE.I) CALL ISWAP(IVK,I,IRMIN,N)
  16. 10 CONTINUE
  17. RETURN
  18. END
  19.  
  20.  

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