Esope source files

   1 : C AJOUN2    SOURCE    CHAT      05/01/12    21:20:01     5004           
   2 :                 SUBROUTINE AJOUN2(ITAB,IEL)
   3 : C   AJOUTE UN ELEMENT DANS UN SEGMENT EXTENSIBLE S IL N Y EST DEJA.
   4 : C   RENVOIE DANS IEL LA PLACE DE L OBJET
   5 :       IMPLICIT INTEGER(I-N)
   6 :       SEGMENT ITAB(0)
   7 :       L=ITAB(/1)
   8 :       DO 1 I=1,L
   9 :          IF(ITAB(I).EQ.IEL) GOTO 2
  10 :  1    CONTINUE
  11 :       ITAB(**)=IEL
  12 :       I=L+1
  13 :  2    CONTINUE
  14 :       IEL=I
  15 :       RETURN
  16 :       END
  17 :  
  18 :