C ADIVEC    SOURCE    CHAT      05/01/12    21:18:19     5004           
      SUBROUTINE ADIVEC (A,B,C,ALPHA,NL)                                        
C                                                                               
C----------------------------------------------------------                     
C PRODUIT DE LA MATRICE DIAGONALE A ET DU VECTEUR B ---> C                      
C----------------------------------------------------------                     
C                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
C                                                                               
      DIMENSION A(1),B(1),C(1)                                                  
C                                                                               
      DO 10 I=1,NL                                                              
       C(I)=A(I)+ALPHA*B(I)                                                     
  10  CONTINUE                                                                  
C                                                                               
      RETURN                                                                    
      END