mirror of
https://gitlab.com/libeigen/eigen.git
synced 2026-04-10 11:34:33 +08:00
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
This commit is contained in:
14
bench/btl/libs/f77/data.f
Normal file
14
bench/btl/libs/f77/data.f
Normal file
@@ -0,0 +1,14 @@
|
||||
SUBROUTINE DATA(A,X,N)
|
||||
**
|
||||
** X = AT * A
|
||||
REAL*8 A(N,N),X(N,N),R
|
||||
DO 20 I=1,N
|
||||
DO 20 J=1,N
|
||||
R=0.
|
||||
DO 10 K=1,N
|
||||
R=R+A(K,I)*A(K,J)
|
||||
10 CONTINUE
|
||||
X(I,J)=R
|
||||
20 CONTINUE
|
||||
RETURN
|
||||
END
|
||||
Reference in New Issue
Block a user