mirror of
https://gitlab.com/libeigen/eigen.git
synced 2025-05-21 12:07:36 +08:00
28539e7597
the modifications to initial code follow: * changed build system from plain makefiles to cmake * added eigen2 (4 versions: vec/novec and fixed/dynamic), GMM++, MTL4 interfaces * added "transposed matrix * vector" product action * updated blitz interface to use condensed products instead of hand coded loops * removed some deprecated interfaces * changed default storage order to column major for all libraries * new generic bench timer strategy which is supposed to be more accurate * various code clean-up
19 lines
431 B
Fortran
19 lines
431 B
Fortran
SUBROUTINE DAXPY(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
|
|
|