Télécharger extra9.eso

Retour à la liste

Numérotation des lignes :

  1. C EXTRA9 SOURCE CHAT 05/01/12 23:53:26 5004
  2. SUBROUTINE EXTRA9(ICHP,MPOINT,CMOT,KERRE,XFLOT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * E X T R A 9
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * EXTRAIT LA VALEUR "XFLOT" DU CHPOINT "ICHP" AU POINT "MPOINT"
  14. * DE COMPOSANTE "CMOT".
  15. *
  16. * MODULES UTILISES:
  17. * -----------------
  18. *
  19. -INC SMCHPOI
  20. -INC SMELEME
  21. -INC CCOPTIO
  22. *
  23. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  24. * -----------
  25. *
  26. * ICHP (E) POINTEUR SUR LE CHPOINT
  27. * MPOINT (E) POINT A EXTRAIRE
  28. * CMOT (E) COMPOSANTE DU POINT A EXTRAIRE
  29. * KERRE (S) SIGNALE SI L'EXTRACTION S'EST BIEN PASSEE
  30. * XFLOT (S) VALEUR EXTRAITE
  31. *
  32. CHARACTER*4 CMOT
  33. *
  34. * MODE DE FONCTIONNEMENT:
  35. * -----------------------
  36. *
  37. * ON SUPPOSE QUE LE PROGRAMME APPELANT A VERIFIE QUE LE
  38. * MOT-CLE SOIT CORRECT.
  39. *
  40. * AUTEUR, DATE DE CREATION:
  41. * -------------------------
  42. *
  43. * LIONEL VIVAN 21 SEPTEMBRE 1989
  44. *
  45. * LANGAGE:
  46. * --------
  47. *
  48. * ESOPE + FORTRAN77
  49. *
  50. ************************************************************************
  51. *
  52. MCHPOI = ICHP
  53. SEGACT,MCHPOI
  54. KERRE = 0
  55. XFLOT=0.
  56. NBSOUS = IPCHP(/1)
  57. DO 11 I = 1,NBSOUS
  58. MSOUPO = IPCHP(I)
  59. SEGACT,MSOUPO
  60. DO 12 IC = 1,NOCOMP(/2)
  61. IF (NOCOMP(IC).EQ.CMOT.AND.NOHARM(IC).EQ.NIFOUR) THEN
  62. ICC=IC
  63. GOTO 13
  64. ENDIF
  65. 12 CONTINUE
  66. SEGDES,MSOUPO
  67. GOTO 11
  68. 13 CONTINUE
  69. MELEME = IGEOC
  70. MPOVAL = IPOVAL
  71. SEGACT,MELEME,MPOVAL
  72. DO 14 KJ = 1,NUM(/2)
  73. IF (NUM(1,KJ).EQ.MPOINT) THEN
  74. KERRE=0
  75. XFLOT=VPOCHA(KJ,ICC)
  76. SEGDES,MELEME,MPOVAL,MSOUPO
  77. GOTO 15
  78. ENDIF
  79. 14 CONTINUE
  80. SEGDES,MELEME,MPOVAL
  81. SEGDES,MSOUPO
  82.  
  83. 11 CONTINUE
  84. 15 SEGDES,MCHPOI
  85. *
  86. END
  87.  
  88.  
  89.  

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