Télécharger iseti.eso

Retour à la liste

Numérotation des lignes :

  1. C ISETI SOURCE CHAT 05/01/13 00:43:55 5004
  2. SUBROUTINE ISETI(TABLOI,LONG)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C*************************************************************************
  6. C
  7. C Initialisation des valeurs d'un tableau d'entiers par leur indice.
  8. C
  9. C remplit TABLOI(1..i..LONG) avec 1..i..LONG
  10. C
  11. C***********************************************************************
  12. INTEGER LONG,ILONG
  13. INTEGER TABLOI(LONG)
  14. *
  15. DO 1 ILONG=1,LONG
  16. TABLOI(ILONG)=ILONG
  17. 1 CONTINUE
  18. RETURN
  19. END
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  

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