      SUBROUTINE DAXPYF(N,A,X,Y)
**  ***************************************
**    CALCULE  Y = Y + A*X
**  ***************************************
*>N     NOMBRE D'OPERATIONS A FAIRE
*>A     CONSTANTE MULTIPLICATIVE
*>X     TABLEAU
*=Y     TABLEAU DES RESULTATS
*A R. SANCHEZ ( EARLY WINTER 1987 )
*V M.F. ROBEAU
      REAL*8 X(1),Y(1)
      REAL*8 A
      DO 10 I=1,N
      Y(I)=Y(I)+A*X(I)
   10 CONTINUE
      RETURN
      END
