C MULVE1    SOURCE    CHAT      05/01/13    01:55:38     5004           
      SUBROUTINE MULVE1 (ALPHA,VECTOR,LVECT)                                    
************************************************************************        
*                                                                               
*                             M U L V E 1                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     PRODUIT D'UN VECTEUR PAR UN REEL.                                         
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     ALPHA   (E)  COEFFICIENT MULTIPLICATEUR.                                  
*     VECTOR  (E)  VECTEUR A MULTIPLIER.                                        
*             (S)  = ALPHA * VECTOR.                                            
*     LVECT   (E)  LONGUEUR DE "VECTOR".                                        
*                                                                               
      IMPLICIT INTEGER(I-N)
      INTEGER LVECT                                                             
      REAL*8 ALPHA,VECTOR(*)                                                    
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     PASCAL MANIGOT     28 MARS 1988                                           
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     FORTRAN77                                                                 
*                                                                               
************************************************************************        
*                                                                               
      DO 10 I=1,LVECT                                                           
         VECTOR(I) = ALPHA * VECTOR(I)                                          
   10    CONTINUE                                                               
*     END DO                                                                    
*                                                                               
      END