Sources Esope | Cast3M

ianul
C IANUL     SOURCE    CHAT      05/01/13    00:27:50     5004
      SUBROUTINE IANUL(ITAB,L)
C
C  FORTRAN : MET ITAB(L) A ZERO
C
      IMPLICIT INTEGER(I-N)
      DIMENSION ITAB(L)
      DO 1 I=1,L
      ITAB(I)=0
   1  CONTINUE
      RETURN
      END