Télécharger zeror.eso

Retour à la liste

Numérotation des lignes :

zeror
  1. C ZEROR SOURCE CB215821 17/07/21 21:15:37 9513
  2. c---------------------------------------------------------------------
  3. c
  4. SUBROUTINE ZEROR (ARRAY, N)
  5. c
  6. c=====================================================================
  7. c =
  8. c Sets to zero real arrays. =
  9. c =
  10. c Author: Rui Faria Version: 93.04.20 =
  11. c -------- =
  12. c=====================================================================
  13. IMPLICIT INTEGER(I-N)
  14. integer n,i
  15. real*8 array (n)
  16. c
  17. do i = 1, n
  18. array (i) = 0.d0
  19. enddo
  20. c
  21. return
  22. end
  23.  
  24.  
  25.  

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