bench/btl/libs/f77/daxpy.f

      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
BTL: - added tridiagonalization and hessenberg decomposition bench - added GOTO library 2008-07-28 20:48:21 +00:00			`SUBROUTINE DAXPYF(N,A,X,Y)`
imported a reworked version of BTL (Benchmark for Templated Libraries). 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 2008-07-09 14:04:48 +00:00			` *************************************`
			`** 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`