Sources Esope | Cast3M

ajoun0
C AJOUN0    SOURCE    PV        17/12/05    21:15:04     9646           
       SUBROUTINE AJOUN0(ITAB,IEL,ILISSE,NUMLIS)
C
C   elimine (remplace par 0)  UN ELEMENT DANS UN SEGMENT EXTENSIBLE
C
 
      IMPLICIT INTEGER(I-N)
-INC TMCOLAC
      SEGMENT ITAB(0)
      IF(NUMLIS.EQ.1) THEN
        LL = ILISEG(/1)
        IF((IEL-1)/npgcd.GT.LL)RETURN
        LL = ILISEG((IEL-1)/npgcd)
        IF(LL.GT.0.AND.LL.LE.ITAB(/1)) THEN
          ITAB(LL)=0
          ILISEG((IEL-1)/npgcd)=0
        ENDIF
      ELSE
*    ancienne programation
        L=ITAB(/1)
        DO 1 I=1,L
           IF(ITAB(I).EQ.IEL) GOTO 2
 1      CONTINUE
        RETURN
 2      CONTINUE
        ITAB(I)=0
      ENDIF
      RETURN
      END