3
0
mirror of https://github.com/triqs/dft_tools synced 2024-12-25 13:53:40 +01:00
dft_tools/test/speed/matmul_s.cpp
Olivier Parcollet f2c7d449cc First commit : triqs libs version 1.0 alpha1
for earlier commits, see TRIQS0.x repository.
2013-07-17 19:24:07 +02:00

80 lines
1.4 KiB
C++

//#define TRIQS_ARRAYS_ENFORCE_BOUNDCHECK
#include <triqs/arrays.hpp>
using namespace triqs::arrays;
#define TEST(X) std::cout << BOOST_PP_STRINGIZE((X)) << " ---> "<< (X) <<std::endl<<std::endl;
const int L = 20;
const int nl_interne = 2000;
const int N = 1000;
struct matmul1 {
void operator()() {
matrix<double> A(L,L), B(L,L),C(L,L);
A() = 0.01; B() = 1.2; C() = 0;
for (int u =0; u<nl_interne; ++u){
C = A*B;
}
}
};
struct matmul2 {
void operator()() {
matrix<double> A(L,L), B(L,L),C(L,L);
A() = 0.01; B() = 1.2; C() = 0;
for (int u =0; u<nl_interne; ++u){
A = make_clone(A)*B;
}
}
};
struct gemm_direct {
void operator()() {
matrix<double> A(L,L), B(L,L),C(L,L);
A() = 0.01; B() = 1.2; C() = 0;
for (int u =0; u<nl_interne; ++u){
blas::gemm(1.0, A, B, 0.0, C);
}
}
};
struct matmul_2AB {
void operator()() {
matrix<double> A(L,L), B(L,L),C(L,L);
A() = 0.01; B() = 1.2; C() = 0;
for (int u =0; u<nl_interne; ++u){
C = 2*A*B;
}
}
};
struct gemm_direct_2AB {
void operator()() {
matrix<double> A(L,L), B(L,L),C(L,L);
A() = 0.01; B() = 1.2; C() = 0;
for (int u =0; u<nl_interne; ++u){
blas::gemm(2.0, A, B, 0.0, C);
}
}
};
#include "./speed_tester.hpp"
int main() {
speed_tester<matmul1> (5000);
speed_tester<matmul2> (5000);
speed_tester<gemm_direct> (5000);
speed_tester<matmul_2AB> (5000);
speed_tester<gemm_direct_2AB> (5000);
return 0;
}