Télécharger extr26.eso

Retour à la liste

Numérotation des lignes :

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

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