Esope source files

   1 : C PIMDV     SOURCE    CHAT      05/01/13    02:13:55     5004           
   2 :       SUBROUTINE PIMDV (A,B,C,NL)                                               
   3 : C                                                                               
   4 : C----------------------------------------------------------                     
   5 : C PRODUIT DE LA MATRICE DIAGONALE A ET DU VECTEUR B ---> C                      
   6 : C----------------------------------------------------------                     
   7 : C                                                                               
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  10 : C                                                                               
  11 :       DIMENSION A(1),B(1),C(1)                                                  
  12 : C                                                                               
  13 :       DO 10 I=1,NL                                                              
  14 :       C(I)=A(I)*B(I)                                                            
  15 :   10  CONTINUE                                                                  
  16 : C                                                                               
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :