Esope source files

   1 : C MULVEC    SOURCE    CHAT      05/01/13    01:55:41     5004           
   2 :       SUBROUTINE MULVEC(Y,X,FT,L)                                               
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : C                                                                               
   6 : C  =====================================================================        
   7 : C    SOUS-PROGRAMME FORTRAN APPELE PAR ELFRES                                   
   8 : C    MULTIPLICATION DU VECTEUR X PAR LE COEF FT RESULTAT Y                      
   9 : C    CREATION    :  4/11/86                                                     
  10 : C    PROGRAMMEUR : GUILBAUD                                                     
  11 : C  =====================================================================        
  12 : C                                                                               
  13 :       DIMENSION Y(1),X(1)                                                       
  14 :       DO 10 I=1,L                                                               
  15 :       Y(I)=FT*X(I)                                                              
  16 :    10 CONTINUE                                                                  
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :