Esope source files

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