Esope source files

   1 : C AJOUN0    SOURCE    PV        10/06/15    21:15:00     6692           
   2 :        SUBROUTINE AJOUN0(ITAB,IEL,ILISSE,NUMLIS)
   3 : C
   4 : C   elimine (remplace par 0)  UN ELEMENT DANS UN SEGMENT EXTENSIBLE
   5 : C
   6 : 
   7 :       IMPLICIT INTEGER(I-N)
   8 : -INC TMCOLAC
   9 :       SEGMENT ITAB(0)
  10 :       IF(NUMLIS.EQ.1) THEN
  11 :         LL = ILISEG(/1)
  12 :         IF((IEL-1)/npgcd.GT.LL)RETURN
  13 :         LL = ILISEG((IEL-1)/npgcd)
  14 :         IF(LL.GT.0.AND.LL.LE.ITAB(/1)) THEN
  15 :           ITAB(LL)=0
  16 :           ILISEG((IEL-1)/npgcd)=0
  17 :         ENDIF
  18 :       ELSE
  19 : *    ancienne programation
  20 :         L=ITAB(/1)
  21 :         DO 1 I=1,L
  22 :            IF(ITAB(I).EQ.IEL) GOTO 2
  23 :  1      CONTINUE
  24 :         RETURN
  25 :  2      CONTINUE
  26 :         ITAB(I)=0
  27 :       ENDIF
  28 :       RETURN
  29 :       END
  30 :  
  31 :  
  32 :  
  33 :  
  34 :