Télécharger cmpint.eso

Retour à la liste

Numérotation des lignes :

  1. C CMPINT SOURCE CHAT 05/01/12 22:11:08 5004
  2. LOGICAL FUNCTION CMPINT(ITAB1,ITAB2,N)
  3. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  4. C
  5. C But : comparer deux tableaux d'entiers
  6. C
  7. C Arguments : ITAB1 - premier tableau (entrée)
  8. C
  9. C ITAB2 - deuxième tableau (entrée)
  10. C
  11. C N - la taille des tableaux (entrée)
  12. C
  13. C Auteur : Michel Bulik
  14. C
  15. C Date : Décembre 1994
  16. C
  17. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  18. IMPLICIT INTEGER(I-N)
  19. DIMENSION ITAB1(N), ITAB2(N)
  20. C
  21. DO 1000 I=1,N
  22. IF(ITAB1(I).NE.ITAB2(I)) THEN
  23. CMPINT=.FALSE.
  24. RETURN
  25. ENDIF
  26. 1000 CONTINUE
  27. CMPINT=.TRUE.
  28. RETURN
  29. END
  30.  
  31.  

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