Sources Esope | Cast3M

ajou
C AJOU      SOURCE    CHAT      05/01/12    21:19:52     5004
C   AJOUTE UN ELEMENT DANS UN SEGMENT EXTENSIBLE S'IL N'Y EST DEJA
C
      SUBROUTINE AJOU(ITAB,IEL)
      IMPLICIT INTEGER(I-N)
      SEGMENT ITAB(0)
      IF (ITAB(/1).EQ.0) GOTO 1
      DO 2 I=1,ITAB(/1)
      IF (ITAB(I).EQ.IEL) RETURN
   2  CONTINUE
   1  ITAB(**)=IEL
      RETURN
      END