Télécharger muflev.eso

Retour à la liste

Numérotation des lignes :

  1. C MUFLEV SOURCE BP208322 15/05/11 21:15:10 8528
  2. SUBROUTINE MUFLEV(IPO1,XFLOT,IRET,IEPS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. CHARACTER *72 TI
  6. C=====================================================================
  7. C
  8. C MULTIPLIE UN OBJET EVOLUTIO PAR XFLO
  9. C L'OBJET EVOLUTIO RESULTANT VOIT SON POINTEUR STOCKE DANS IRET
  10. C ENTREES
  11. C IPO1=POINTEUR SUR L'OBJET EVOLUTIO
  12. C XFLOT=SCALAIRE
  13. C IEPS = 1 MULTIPLICATION = -1 DIVISION
  14. C SORTIES
  15. C IRET=POINTEUR SUR L'OBJET EVOL*XFLOT
  16. C
  17. C
  18. C CREATION : 10/04/87
  19. C PROGRAMMEUR : BEAUFILS
  20. C=====================================================================
  21. -INC SMEVOLL
  22. -INC SMLREEL
  23. C
  24. IF(IEPS.EQ.-1)THEN
  25. XFLOT = 1.D0/XFLOT
  26. ENDIF
  27. C
  28. MEVOL1=IPO1
  29. SEGACT MEVOL1
  30. TI=MEVOL1.IEVTEX
  31. NCOU=MEVOL1.IEVOLL(/1)
  32. N=NCOU
  33. SEGINI MEVOLL
  34. IRET=MEVOLL
  35. IEVTEX=TI
  36. ITYEVO=MEVOL1.ITYEVO
  37. C
  38. DO 100 NC=1,NCOU
  39. KEVOL1=MEVOL1.IEVOLL(NC)
  40. SEGACT KEVOL1
  41. MLREE1=KEVOL1.IPROGY
  42. C
  43. IF(KEVOL1.TYPY.EQ.'LISTMOTS') THEN
  44. SEGINI,KEVOLL=KEVOL1
  45. IEVOLL(NC)=KEVOLL
  46. SEGDES KEVOLL
  47. ELSE
  48. SEGACT MLREE1
  49. NBPT=MLREE1.PROG(/1)
  50. SEGINI KEVOLL
  51. c KEVTEX=TI
  52. KEVTEX=KEVOL1.KEVTEX
  53. IEVOLL(NC)=KEVOLL
  54. TYPX='LISTREEL'
  55. TYPY='LISTREEL'
  56. JG=NBPT
  57. SEGINI MLREEL
  58. IPROGX=KEVOL1.IPROGX
  59. NOMEVX=KEVOL1.NOMEVX
  60. IPROGY=MLREEL
  61. NOMEVY=KEVOL1.NOMEVY
  62. NUMEVX=KEVOL1.NUMEVX
  63. NUMEVY=KEVOL1.NUMEVY
  64. C
  65. DO 1 II=1,NBPT
  66. PROG(II)=XFLOT*MLREE1.PROG(II)
  67. 1 CONTINUE
  68. C
  69. SEGDES MLREE1
  70. SEGDES KEVOLL,MLREEL
  71. ENDIF
  72. SEGDES KEVOL1
  73. C
  74. 100 CONTINUE
  75. C
  76. SEGDES MEVOL1
  77. SEGDES MEVOLL
  78. C
  79. RETURN
  80. END
  81.  
  82.  
  83.  
  84.  

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