C CUNIQ2 SOURCE GOUNAND 11/10/07 21:15:13 7150 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 SEGDES MLMOT1 SEGDES MLMOT2 RETURN * * End of subroutine CUNIQ2 * END