C AMULX     SOURCE    CHAT      05/01/12    21:22:00     5004           
      SUBROUTINE AMULX(A,LA,X,B)                                                
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C                                                                               
C         CALCUL DE  B=A*X+B                                                    
C                                                                               
C         X SCALAIRE                                                            
C         A ET B TABLEAUX DE LONGUEUR LA                                        
C                                                                               
      DIMENSION A(1),B(1)                                                       
C                                                                               
      IF(LA.LE.0) RETURN                                                        
C                                                                               
      DO 1 IA=1,LA                                                              
C                                                                               
      B(IA)=X*A(IA)+B(IA)                                                       
C                                                                               
    1 CONTINUE                                                                  
      RETURN                                                                    
      END