Esope source files

   1 : C AMUL1K    SOURCE    CHAT      05/01/12    21:21:53     5004           
   2 :       SUBROUTINE AMUL1K(A,LA,X,B)                                               
   3 : C***********************************************************************        
   4 : C     ROUTINE PRISE COMME TELLE DANS INCA (AMULX) LE 10 FEVRIER 86              
   5 : C***********************************************************************        
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   8 : C=======================================================================        
   9 : C         CALCUL DE  B=A*X+B                                                    
  10 : C                                                                               
  11 : C         X SCALAIRE                                                            
  12 : C         A ET B TABLEAUX DE LONGUEUR LA                                        
  13 : C=======================================================================        
  14 :       DIMENSION A(1),B(1)                                                       
  15 :       IF(LA.LE.0) RETURN                                                        
  16 :       DO 1 IA=1,LA                                                              
  17 :       B(IA)=X*A(IA)+B(IA)                                                       
  18 :     1 CONTINUE                                                                  
  19 :       RETURN                                                                    
  20 :       END                                                                       
  21 :