Télécharger initi.eso

Retour à la liste

Numérotation des lignes :

  1. C INITI SOURCE CHAT 05/01/13 00:38:14 5004
  2. SUBROUTINE INITI(IA,LONG,IVAL)
  3. C************************************************************************
  4. C
  5. C Remplit le tableau d'entiers IA(LONG) avec IVAL
  6. C
  7. C************************************************************************
  8. IMPLICIT INTEGER(I-N)
  9. INTEGER IA(LONG)
  10.  
  11. DO 1 I=1,LONG
  12. IA(I)=IVAL
  13. 1 CONTINUE
  14. RETURN
  15. END
  16.  
  17.  
  18.  
  19.  

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