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