Télécharger zdanul.eso

Retour à la liste

Numérotation des lignes :

  1. C ZDANUL SOURCE CHAT 05/01/13 04:22:06 5004
  2. SUBROUTINE ZDANUL(A,LA)
  3. C
  4. C ANNULE UN TABLEAU DE LONGUEUR LA A EN DOUBLE PRECISION
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. REAL*8 A
  8. DIMENSION A(1)
  9. DO 1 IA=1,LA
  10. A(IA)=0.0D0
  11. 1 CONTINUE
  12. RETURN
  13. END
  14.  
  15.  

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