Télécharger j3zeri.eso

Retour à la liste

Numérotation des lignes :

  1. C J3ZERI SOURCE CHAT 05/01/13 00:47:46 5004
  2. SUBROUTINE J3ZERI(IJ,NI,NJ)
  3. C-----------------------------------------------------
  4. C ON MET A ZERO LES ELEMENTS DE IJ
  5. C
  6. C PP 6/97
  7. C Pierre Pegon/JRC Ispra
  8. C-----------------------------------------------------
  9. C
  10. IMPLICIT INTEGER(I-N)
  11. DIMENSION IJ(NI,NJ)
  12. C
  13. DO J=1,NJ
  14. DO I=1,NI
  15. IJ(I,J)=0
  16. ENDDO
  17. ENDDO
  18. C
  19. RETURN
  20. END
  21.  
  22.  
  23.  

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