File: prod_test.hpp

package info (click to toggle)
boost1.88 1.88.0-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 576,932 kB
  • sloc: cpp: 4,149,234; xml: 136,789; ansic: 35,092; python: 33,910; asm: 5,698; sh: 4,604; ada: 1,681; makefile: 1,633; pascal: 1,139; perl: 1,124; sql: 640; yacc: 478; ruby: 271; java: 77; lisp: 24; csh: 6
file content (88 lines) | stat: -rw-r--r-- 2,039 bytes parent folder | download | duplicates (10)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
#ifndef TEST_PROD_OPENCL_HH
#define TEST_PROD_OPENCL_HH
#include "test_opencl.hpp"


template <class T, class F, int number_of_tests, int max_dimension>
class bench_prod
{
public:

  typedef test_opencl<T, F> test;

  void run()
  {
	opencl::library lib;
	int passedOperations = 0;
	// get default device and setup context
	compute::device device = compute::system::default_device();
	compute::context context(device);
	compute::command_queue queue(context, device);

	std::srand(time(0));

	ublas::matrix<T, F> a;
	ublas::matrix<T, F> b;
	ublas::matrix<T, F> resultUBLAS;
	ublas::matrix<T, F> resultOPENCL;
	ublas::vector<T> va;
	ublas::vector<T> vb;
	ublas::vector<T> result_vector_ublas_mv;
	ublas::vector<T> result_vector_ublas_vm;
	ublas::vector<T> result_vector_opencl_mv;
	ublas::vector<T> result_vector_opencl_vm;



	for (int i = 0; i<number_of_tests; i++)
	{
	  int rowsA = std::rand() % max_dimension + 1;
	  int colsA = std::rand() % max_dimension + 1;
	  int colsB = std::rand() % max_dimension + 1;

	  a.resize(rowsA, colsA);
	  b.resize(colsA, colsB);
	  va.resize(colsA);
	  vb.resize(rowsA);


	  test::init_matrix(a, 200);
	  test::init_matrix(b, 200);
	  test::init_vector(va, 200);
	  test::init_vector(vb, 200);

	  //matrix_matrix
	  resultUBLAS = prod(a, b);
	  resultOPENCL = opencl::prod(a, b, queue);


	  //matrix_vector
	  result_vector_ublas_mv = ublas::prod(a, va);
	  result_vector_opencl_mv = opencl::prod(a, va, queue);


	  //vector-matrix
	  result_vector_ublas_vm = ublas::prod(vb, a);
	  result_vector_opencl_vm = opencl::prod(vb, a, queue);


	  if ((!test::compare(resultUBLAS, resultOPENCL)) || (!test::compare(result_vector_opencl_mv, result_vector_ublas_mv)) || (!test::compare(result_vector_opencl_vm, result_vector_ublas_vm)))
	  {
		std::cout << "Error in calculations" << std::endl;

		std::cout << "passed: " << passedOperations << std::endl;
		return;
	  }

	  passedOperations++;

	}
	std::cout << "All is well (matrix opencl prod) of " << typeid(T).name() << std::endl;



  }

};

#endif