Esope source files

   1 : C CUNIQ2    SOURCE    GOUNAND   11/10/07    21:15:13     7150           
   2 :       SUBROUTINE CUNIQ2(MLMOT1,MLMOT2)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C***********************************************************************
   6 : C NOM         : CUNIQ2
   7 : C DESCRIPTION : Un listmots avec des doublons => un listmots
   8 : C               mots sans doublons.  
   9 : C               Algorithme en n^2 => pas de longs tableaux
  10 : C
  11 : C LANGAGE     : Esope
  12 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  13 : C               mél : stephane.gounand@cea.fr
  14 : C***********************************************************************
  15 : C ENTREES            : MLMOT1
  16 : C SORTIES            : MLMOT2
  17 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  18 : C***********************************************************************
  19 : C VERSION    : v1, 23/09/11, version initiale
  20 : C HISTORIQUE : v1, 23/09/11, création
  21 : C HISTORIQUE :
  22 : C HISTORIQUE :
  23 : C***********************************************************************
  24 : -INC CCOPTIO
  25 : -INC SMLMOTS
  26 : *     
  27 : * Executable statements
  28 : *
  29 :       SEGACT MLMOT1
  30 :       SEGINI,MLMOT2=MLMOT1
  31 :       JGN=MLMOT2.MOTS(/1)
  32 :       JGM=MLMOT2.MOTS(/2)
  32 :       CALL CUNIQ(MLMOT1.MOTS,JGN,JGM,MLMOT2.MOTS,JGM2,0,IRET)
  33 :       JGM=JGM2
  34 :       SEGADJ,MLMOT2
  35 :       SEGDES MLMOT1
  36 :       SEGDES MLMOT2
  37 :       RETURN
  38 : *
  39 : * End of subroutine CUNIQ2
  40 : *
  41 :       END
  42 : 
  43 :  
  44 :  
  45 :  
  46 :