Télécharger ianul.eso

Retour à la liste

Numérotation des lignes :

  1. C IANUL SOURCE CHAT 05/01/13 00:27:50 5004
  2. SUBROUTINE IANUL(ITAB,L)
  3. C
  4. C FORTRAN : MET ITAB(L) A ZERO
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. DIMENSION ITAB(L)
  8. DO 1 I=1,L
  9. ITAB(I)=0
  10. 1 CONTINUE
  11. RETURN
  12. END
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  

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