Esope source files

   1 : C AEQBX     SOURCE    CHAT      05/01/12    21:19:13     5004           
   2 :       SUBROUTINE AEQBX (A,B,X,LA)                                               
   3 : C                                                                               
   4 : C CALCULE A=B*X                                                                 
   5 : C                                                                               
   6 : C A ET B TABLEAUX DE LONGUEUR LA                                                
   7 : C X REEL                                                                        
   8 : C                                                                               
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  11 : C                                                                               
  12 :       DIMENSION A(*),B(*)                                                       
  13 : C                                                                               
  14 :       DO 1 IA=1,LA                                                              
  15 :  1    A(IA)=X*B(IA)                                                             
  16 :       RETURN                                                                    
  17 :       END                                                                       
  18 :