C CUNIQ2    SOURCE    GOUNAND   25/04/30    21:15:04     12258          
      SUBROUTINE CUNIQ2(MLMOT1,MLMOT2)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C***********************************************************************
C NOM         : CUNIQ2
C DESCRIPTION : Un listmots avec des doublons => un listmots
C               mots sans doublons.
C               Algorithme en n^2 => pas de longs tableaux
C
C LANGAGE     : Esope
C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
C               mél : stephane.gounand@cea.fr
C***********************************************************************
C ENTREES            : MLMOT1
C SORTIES            : MLMOT2
C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
C***********************************************************************
C VERSION    : v1, 23/09/11, version initiale
C HISTORIQUE : v1, 23/09/11, création
C HISTORIQUE :
C HISTORIQUE :
C***********************************************************************

-INC PPARAM
-INC CCOPTIO
-INC SMLMOTS
*
* Executable statements
*
      SEGACT MLMOT1
      SEGINI,MLMOT2=MLMOT1
      JGN=MLMOT2.MOTS(/1)
      JGM=MLMOT2.MOTS(/2)
      CALL CUNIQ(MLMOT1.MOTS,JGN,JGM,MLMOT2.MOTS,JGM2,0,IRET)
      JGM=JGM2
      SEGADJ,MLMOT2
      RETURN
*
* End of subroutine CUNIQ2
*
      END