Télécharger cuniq2.eso

Retour à la liste

Numérotation des lignes :

  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)
  33. CALL CUNIQ(MLMOT1.MOTS,JGN,JGM,MLMOT2.MOTS,JGM2,0,IRET)
  34. JGM=JGM2
  35. SEGADJ,MLMOT2
  36. SEGDES MLMOT1
  37. SEGDES MLMOT2
  38. RETURN
  39. *
  40. * End of subroutine CUNIQ2
  41. *
  42. END
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales