Esope source files

   1 : C ELIMIN2   SOURCE    FANDEUR   13/01/02    21:15:01     7653           
   2 : 
   3 : ************************************************************************
   4 : * NOM         : ELIMIN2
   5 : * DESCRIPTION : Supprime les doublons dans un LISTENTI
   6 : ************************************************************************
   7 : * HISTORIQUE : 22/05/2012 : JCARDO : Creation de la subroutine
   8 : * HISTORIQUE : 21/12/2012 : OF : adaptation a UNIQue
   9 : ************************************************************************
  10 : * Priere de PRENDRE LE TEMPS DE COMPLETER LES COMMENTAIRES
  11 : * en cas de modification de ce sous-programme afin de faciliter
  12 : * la maintenance !
  13 : ************************************************************************
  14 : * SYNTAXE (GIBIANE)
  15 : *        LENTIS = UNIQ LENTIE ;
  16 : ************************************************************************
  17 : 
  18 :       SUBROUTINE ELIMIN2(IPLENT)
  19 : 
  20 :       IMPLICIT INTEGER(I-N)
  21 :       IMPLICIT REAL*8(A-H,O-Z)
  22 : 
  23 : -INC SMLENTI
  24 : 
  25 :       MLENT1 = IPLENT
  26 :       SEGINI,MLENTI=MLENT1
  27 : 
  28 :       NN = LECT(/1)
  29 : 
  30 : c Recherche des doublons
  31 :       IF (NN.GT.1) THEN
  32 :         JG = 1
  33 :         DO 10 I = 2, NN
  34 :           I_Z  = LECT(I)
  35 :           DO J = 1, JG
  36 :             IF (I_Z.EQ.LECT(J)) GOTO 10
  37 :           ENDDO
  38 :           JG = JG + 1
  39 :           LECT(JG) = I_Z
  40 :  10     CONTINUE
  41 :         IF (JG.NE.NN) SEGADJ,MLENTI
  42 :       ENDIF
  43 : 
  44 :       SEGDES,MLENTI
  45 :       IPLENT = MLENTI
  46 : 
  47 :       RETURN
  48 :       END
  49 : 
  50 :