Télécharger la plaquette Cast3M


fr en

Télécharger muflev.eso

Retour à la liste

Numérotation des lignes : 

muflev

  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