mirror of
https://gitlab.com/libeigen/eigen.git
synced 2025-01-12 14:25:16 +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
17 lines
423 B
Fortran
17 lines
423 B
Fortran
SUBROUTINE SAXPY(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
|
|
DIMENSION X(1),Y(1)
|
|
DO 10 I=1,N
|
|
Y(I)=Y(I)+A*X(I)
|
|
10 CONTINUE
|
|
RETURN
|
|
END
|