diff options
| author |  Gael Guennebaud <g.gael@free.fr> | 2008-07-09 14:04:48 +0000 |
|---|---|---|
| committer | Gael Guennebaud <g.gael@free.fr> | 2008-07-09 14:04:48 +0000 |
| commit | 28539e7597c643dbc2b8d4f49dd16bd86fb7251f (patch) | |
| tree | 3bfb96ae898f0afc943a388edcc83c27d28d5b3a /bench/btl/libs/f77/daxpy.f | |
| parent | 5f55ab524cf0aad34dd6884bcae09eaa6c43c247 (diff) | |
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
Diffstat (limited to 'bench/btl/libs/f77/daxpy.f')
| -rw-r--r-- | bench/btl/libs/f77/daxpy.f | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/bench/btl/libs/f77/daxpy.f b/bench/btl/libs/f77/daxpy.f new file mode 100644 index 000000000..94bb846de --- /dev/null +++ b/bench/btl/libs/f77/daxpy.f @@ -0,0 +1,18 @@ + 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 + |