Esope source files

   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 :