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/saxpy.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/saxpy.f')
-rw-r--r-- | bench/btl/libs/f77/saxpy.f | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/bench/btl/libs/f77/saxpy.f b/bench/btl/libs/f77/saxpy.f new file mode 100644 index 000000000..5eda4c2d2 --- /dev/null +++ b/bench/btl/libs/f77/saxpy.f @@ -0,0 +1,16 @@ + 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 |