Sources Esope | Cast3M

ajoun2
C AJOUN2    SOURCE    CHAT      05/01/12    21:20:01     5004
                SUBROUTINE AJOUN2(ITAB,IEL)
C   AJOUTE UN ELEMENT DANS UN SEGMENT EXTENSIBLE S IL N Y EST DEJA.
C   RENVOIE DANS IEL LA PLACE DE L OBJET
      IMPLICIT INTEGER(I-N)
      SEGMENT ITAB(0)
      L=ITAB(/1)
      DO 1 I=1,L
         IF(ITAB(I).EQ.IEL) GOTO 2
 1    CONTINUE
      ITAB(**)=IEL
      I=L+1
 2    CONTINUE
      IEL=I
      RETURN
      END