Sources Esope | Cast3M

j3zeri
C J3ZERI    SOURCE    CHAT      05/01/13    00:47:46     5004
      SUBROUTINE J3ZERI(IJ,NI,NJ)
C-----------------------------------------------------
C     ON MET A ZERO LES ELEMENTS DE IJ
C
C     PP 6/97
C     Pierre Pegon/JRC Ispra
C-----------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      DIMENSION IJ(NI,NJ)
C
      DO J=1,NJ
        DO I=1,NI
          IJ(I,J)=0
        ENDDO
      ENDDO
C
      RETURN
      END