mirror of
https://gitlab.com/libeigen/eigen.git
synced 2024-12-21 07:19:46 +08:00
19 lines
432 B
Fortran
19 lines
432 B
Fortran
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
|
|
|