Télécharger la plaquette Cast3M


fr en

Télécharger muflir.eso

Retour à la liste

Numérotation des lignes : 

muflir

  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.  
  23. -INC PPARAM
  24. -INC CCOPTIO
  25. -INC SMLREEL
  26. C
  27.       IF(IEPS.EQ.-1)THEN
  28.         XTRAV = 1.D0/XFLOT
  29.       ELSE
  30.         XTRAV=XFLOT
  31.       ENDIF
  32. C
  33. C
  34.       MLREE1=IPO1
  35.       SEGACT MLREE1
  36.       NBPT=MLREE1.PROG(/1)
  37.       JG=NBPT
  38.       SEGINI MLREEL
  39.       IRET=MLREEL
  40. C
  41.         DO 1 II=1,NBPT
  42.         PROG(II)=XTRAV*MLREE1.PROG(II)
  43.    1    CONTINUE
  44. C
  45.       SEGDES MLREE1
  46.       SEGDES MLREEL
  47. C
  48.       RETURN
  49.       END
  50.  
  51.  
  52.  

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