C ELIMIN2   SOURCE    FANDEUR   13/01/02    21:15:01     7653           

************************************************************************
* NOM         : ELIMIN2
* DESCRIPTION : Supprime les doublons dans un LISTENTI
************************************************************************
* HISTORIQUE : 22/05/2012 : JCARDO : Creation de la subroutine
* HISTORIQUE : 21/12/2012 : OF : adaptation a UNIQue
************************************************************************
* Priere de PRENDRE LE TEMPS DE COMPLETER LES COMMENTAIRES
* en cas de modification de ce sous-programme afin de faciliter
* la maintenance !
************************************************************************
* SYNTAXE (GIBIANE)
*        LENTIS = UNIQ LENTIE ;
************************************************************************

      SUBROUTINE ELIMIN2(IPLENT)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC SMLENTI

      MLENT1 = IPLENT
      SEGINI,MLENTI=MLENT1

      NN = LECT(/1)

c Recherche des doublons
      IF (NN.GT.1) THEN
        JG = 1
        DO 10 I = 2, NN
          I_Z  = LECT(I)
          DO J = 1, JG
            IF (I_Z.EQ.LECT(J)) GOTO 10
          ENDDO
          JG = JG + 1
          LECT(JG) = I_Z
 10     CONTINUE
        IF (JG.NE.NN) SEGADJ,MLENTI
      ENDIF

      SEGDES,MLENTI
      IPLENT = MLENTI

      RETURN
      END