Télécharger elimin2.eso

Retour à la liste

Numérotation des lignes :

  1. C ELIMIN2 SOURCE FANDEUR 13/01/02 21:15:01 7653
  2.  
  3. ************************************************************************
  4. * NOM : ELIMIN2
  5. * DESCRIPTION : Supprime les doublons dans un LISTENTI
  6. ************************************************************************
  7. * HISTORIQUE : 22/05/2012 : JCARDO : Creation de la subroutine
  8. * HISTORIQUE : 21/12/2012 : OF : adaptation a UNIQue
  9. ************************************************************************
  10. * Priere de PRENDRE LE TEMPS DE COMPLETER LES COMMENTAIRES
  11. * en cas de modification de ce sous-programme afin de faciliter
  12. * la maintenance !
  13. ************************************************************************
  14. * SYNTAXE (GIBIANE)
  15. * LENTIS = UNIQ LENTIE ;
  16. ************************************************************************
  17.  
  18. SUBROUTINE ELIMIN2(IPLENT)
  19.  
  20. IMPLICIT INTEGER(I-N)
  21. IMPLICIT REAL*8(A-H,O-Z)
  22.  
  23. -INC SMLENTI
  24.  
  25. MLENT1 = IPLENT
  26. SEGINI,MLENTI=MLENT1
  27.  
  28. NN = LECT(/1)
  29.  
  30. c Recherche des doublons
  31. IF (NN.GT.1) THEN
  32. JG = 1
  33. DO 10 I = 2, NN
  34. I_Z = LECT(I)
  35. DO J = 1, JG
  36. IF (I_Z.EQ.LECT(J)) GOTO 10
  37. ENDDO
  38. JG = JG + 1
  39. LECT(JG) = I_Z
  40. 10 CONTINUE
  41. IF (JG.NE.NN) SEGADJ,MLENTI
  42. ENDIF
  43.  
  44. SEGDES,MLENTI
  45. IPLENT = MLENTI
  46.  
  47. RETURN
  48. END
  49.  
  50.  
  51.  

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