Télécharger la plaquette Cast3M


fr en

Télécharger cuniq2.eso

Retour à la liste

Numérotation des lignes : 

cuniq2

  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.  
  25. -INC PPARAM
  26. -INC CCOPTIO
  27. -INC SMLMOTS
  28. *
  29. * Executable statements
  30. *
  31.       SEGACT MLMOT1
  32.       SEGINI,MLMOT2=MLMOT1
  33.       JGN=MLMOT2.MOTS(/1)
  34.       JGM=MLMOT2.MOTS(/2)
  35.       CALL CUNIQ(MLMOT1.MOTS,JGN,JGM,MLMOT2.MOTS,JGM2,0,IRET)
  36.       JGM=JGM2
  37.       SEGADJ,MLMOT2
  38.       SEGDES MLMOT1
  39.       SEGDES MLMOT2
  40.       RETURN
  41. *
  42. * End of subroutine CUNIQ2
  43. *
  44.       END
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  

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