Télécharger muflir.eso

Retour à la liste

Numérotation des lignes :

  1. C MUFLIR SOURCE PASCAL 09/02/16 21:15:14 6282
  2. SUBROUTINE MUFLIR(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 LISTREEL PAR XFLO
  9. C L'OBJET LISTREEL RESULTANT VOIT SON POINTEUR STOCKE DANS IRET
  10. C ENTREES
  11. C IPO1=POINTEUR SUR L'OBJET LISTREEL
  12. C XFLOT=SCALAIRE
  13. C IEPS = 1 MULTIPLICATION
  14. C -1 DIVISION
  15. C SORTIES
  16. C IRET=POINTEUR SUR L'OBJET LISTREEL*XFLOT
  17. C
  18. C
  19. C CREATION : 20/05/87
  20. C PROGRAMMEUR : BEAUFILS
  21. C=====================================================================
  22. -INC CCOPTIO
  23. -INC SMLREEL
  24. C
  25. IF(IEPS.EQ.-1)THEN
  26. XTRAV = 1.D0/XFLOT
  27. ELSE
  28. XTRAV=XFLOT
  29. ENDIF
  30. C
  31. C
  32. MLREE1=IPO1
  33. SEGACT MLREE1
  34. NBPT=MLREE1.PROG(/1)
  35. JG=NBPT
  36. SEGINI MLREEL
  37. IRET=MLREEL
  38. C
  39. DO 1 II=1,NBPT
  40. PROG(II)=XTRAV*MLREE1.PROG(II)
  41. 1 CONTINUE
  42. C
  43. SEGDES MLREE1
  44. SEGDES MLREEL
  45. C
  46. RETURN
  47. END
  48.  
  49.  
  50.  

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