Esope source files

   1 : C IANUL     SOURCE    CHAT      05/01/13    00:27:50     5004           
   2 :       SUBROUTINE IANUL(ITAB,L)                                                  
   3 : C                                                                               
   4 : C  FORTRAN : MET ITAB(L) A ZERO                                                 
   5 : C                                                                               
   6 :       IMPLICIT INTEGER(I-N)
   7 :       DIMENSION ITAB(L)                                                         
   8 :       DO 1 I=1,L                                                                
   9 :       ITAB(I)=0                                                                 
  10 :    1  CONTINUE                                                                  
  11 :       RETURN                                                                    
  12 :       END                                                                       
  13 :                                                                                 
  14 :                                                                                 
  15 :                                                                                 
  16 :                                                                                 
  17 :                                                                                 
  18 :                                                                                 
  19 :                                                                                 
  20 :                                                                                 
  21 :                                                                                 
  22 :                                                                                 
  23 :