Esope source files

   1 : C ISETI     SOURCE    CHAT      05/01/13    00:43:55     5004           
   2 :       SUBROUTINE ISETI(TABLOI,LONG)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C*************************************************************************
   6 : C
   7 : C Initialisation des valeurs d'un tableau d'entiers par leur indice. 
   8 : C     
   9 : C remplit TABLOI(1..i..LONG) avec 1..i..LONG
  10 : C
  11 : C***********************************************************************
  12 :       INTEGER LONG,ILONG
  13 :       INTEGER TABLOI(LONG)
  14 : *
  15 :       DO 1 ILONG=1,LONG
  16 :          TABLOI(ILONG)=ILONG
  17 :  1    CONTINUE
  18 :       RETURN
  19 :       END
  20 : 
  21 :  
  22 :  
  23 :  
  24 :