cory-master/BabelStream
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use floating point abs value

Browse Source
This commit is contained in:
Tom Deakin 2015-07-16 12:26:16 +01:00
parent 0596d01913
commit 9791b7e3d1
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ocl-stream.cpp
View File

@ -5,13 +5,14 @@
#include <chrono> #include <chrono>
#include <cfloat> #include <cfloat>
#include <iomanip> #include <iomanip>
#include <cmath>
#define __CL_ENABLE_EXCEPTIONS #define __CL_ENABLE_EXCEPTIONS
#include "cl.hpp" #include "cl.hpp"
#define DATATYPE double #define DATATYPE double
#define ARRAY_SIZE 50000000 #define ARRAY_SIZE 50000000
#define NTIMES 2 #define NTIMES 10
#define MIN(a,b) ((a) < (b)) ? (a) : (b) #define MIN(a,b) ((a) < (b)) ? (a) : (b)
#define MAX(a,b) ((a) > (b)) ? (a) : (b) #define MAX(a,b) ((a) > (b)) ? (a) : (b)
@ -62,9 +63,9 @@ void check_solution(std::vector<DATATYPE>& a, std::vector<DATATYPE>& b, std::vec
double errc = 0.0; double errc = 0.0;
for (unsigned int i = 0; i < ARRAY_SIZE; i++) for (unsigned int i = 0; i < ARRAY_SIZE; i++)
{ {
erra += abs(a[i] - golda); erra += fabs(a[i] - golda);
errb += abs(b[i] - goldb); errb += fabs(b[i] - goldb);
errc += abs(c[i] - goldc); errc += fabs(c[i] - goldc);
} }
erra /= (double)ARRAY_SIZE; erra /= (double)ARRAY_SIZE;
errb /= (double)ARRAY_SIZE; errb /= (double)ARRAY_SIZE;
@ -100,7 +101,7 @@ int main(void)
std::string kernels(std::istreambuf_iterator<char>(in), (std::istreambuf_iterator<char>())); std::string kernels(std::istreambuf_iterator<char>(in), (std::istreambuf_iterator<char>()));
// Setup OpenCL // Setup OpenCL
cl::Context context(CL_DEVICE_TYPE_CPU); cl::Context context(CL_DEVICE_TYPE_GPU);
cl::CommandQueue queue(context); cl::CommandQueue queue(context);
cl::Program program(context, kernels); cl::Program program(context, kernels);