Sources Esope | Cast3M

adivec
C ADIVEC    SOURCE    CHAT      05/01/12    21:18:19     5004
      SUBROUTINE ADIVEC (A,B,C,ALPHA,NL)
C
C----------------------------------------------------------
C PRODUIT DE LA MATRICE DIAGONALE A ET DU VECTEUR B ---> C
C----------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
      DIMENSION A(1),B(1),C(1)
C
      DO 10 I=1,NL
       C(I)=A(I)+ALPHA*B(I)
  10  CONTINUE
C
      RETURN
      END