Esope source files

   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 :