Esope source files

   1 : C INITI     SOURCE    CHAT      05/01/13    00:38:14     5004           
   2 :       SUBROUTINE INITI(IA,LONG,IVAL)
   3 : C************************************************************************
   4 : C     
   5 : C     Remplit le tableau d'entiers IA(LONG) avec IVAL
   6 : C     
   7 : C************************************************************************
   8 :       IMPLICIT INTEGER(I-N)
   9 :       INTEGER IA(LONG)
  10 : 
  11 :       DO 1 I=1,LONG
  12 :          IA(I)=IVAL
  13 :  1    CONTINUE
  14 :       RETURN
  15 :       END
  16 : 
  17 :  
  18 :