Télécharger extr17.eso

Retour à la liste

Numérotation des lignes :

  1. C EXTR17 SOURCE PV 09/03/12 21:22:08 6325
  2. SUBROUTINE EXTR17(MCHELM,MLMOTS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *-----------------------------------------------------------------------
  6. *
  7. * E X T R 1 7
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * EXTRAIT LES NOMS DES COMPOSANTES D'UN MCHAML
  14. * ET LES RANGE DANS UN LISTMOTS MLMOTS
  15. *
  16. * MODULES UTILISES:
  17. * -----------------
  18. *
  19. -INC SMCHAML
  20. -INC SMLMOTS
  21. *
  22. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  23. * -----------
  24. *
  25. * MCHELM (E) POINTEUR SUR LE MCHAML
  26. * MLMOTS (S) POINTEUR SUR LE LISTMOTS
  27. *
  28. *-----------------------------------------------------------------------
  29. *
  30. *
  31. SEGACT MCHELM
  32. JGN=4
  33. JGM=0
  34. SEGINI MLMOTS
  35. IF (IMACHE(/1).EQ.0) GO TO 90
  36. DO 10 I=1,IMACHE(/1)
  37. MCHAML=ICHAML(I)
  38. SEGACT MCHAML
  39. 10 CONTINUE
  40. *
  41. MCHAML=ICHAML(1)
  42. JGM=NOMCHE(/2)
  43. SEGADJ MLMOTS
  44. DO 20 I=1,JGM
  45. MOTS(I)=NOMCHE(I)(1:4)
  46. 20 CONTINUE
  47. SEGDES MCHAML
  48. *
  49. IF (IMACHE(/1).NE.1) THEN
  50. DO 30 I=2,IMACHE(/1)
  51. MCHAML=ICHAML(I)
  52. DO 40 K=1,NOMCHE(/2)
  53. DO 50 J=1,JGM
  54. IF (MOTS(J).EQ.NOMCHE(K)(1:4)) GOTO 40
  55. 50 CONTINUE
  56. JGM=JGM+1
  57. SEGADJ MLMOTS
  58. MOTS(JGM)=NOMCHE(K)(1:4)
  59. 40 CONTINUE
  60. SEGDES MCHAML
  61. 30 CONTINUE
  62. ENDIF
  63. *
  64. 90 SEGDES MLMOTS,MCHELM
  65. RETURN
  66. END
  67.  
  68.  
  69.  
  70.  

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