You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
92 lines
2.2 KiB
92 lines
2.2 KiB
// Primitives.cpp : Defines the entry point for the console application.
|
|
|
|
#include <string>
|
|
#include <vector>
|
|
#include "Common.h"
|
|
|
|
// OpenCL C API
|
|
#include <CL/opencl.h>
|
|
|
|
// OpenCL C++ API
|
|
#include "cl.hpp"
|
|
#include <iostream>
|
|
#include <OpenCLHandler.h>
|
|
#include "LinearTests.h"
|
|
|
|
|
|
|
|
|
|
|
|
void capi()
|
|
{
|
|
// Get a platform ID
|
|
cl_platform_id platformID;
|
|
clGetPlatformIDs(1, &platformID, NULL);
|
|
|
|
// Get a device ID
|
|
cl_device_id deviceID;
|
|
clGetDeviceIDs(platformID, CL_DEVICE_TYPE_GPU, 1, &deviceID, NULL);
|
|
|
|
// Create a context
|
|
cl_context context;
|
|
cl_context_properties contextProperties[] =
|
|
{ CL_CONTEXT_PLATFORM, (cl_context_properties)platformID, 0 };
|
|
context = clCreateContext(contextProperties, 1, &deviceID, NULL, NULL, NULL);
|
|
|
|
// Create a command queue
|
|
cl_command_queue queue;
|
|
queue = clCreateCommandQueue(context, deviceID, CL_QUEUE_PROFILING_ENABLE, NULL);
|
|
|
|
// Create an OpenCL program
|
|
std::string source = FileToString("../kernels/linear.cl");
|
|
const char* csource = source.c_str();
|
|
cl_program program = clCreateProgramWithSource(context, 1, &csource, NULL, NULL);
|
|
cl_int err = clBuildProgram(program, 1, &deviceID, NULL, NULL, NULL);
|
|
if (err != CL_SUCCESS)
|
|
{
|
|
cl_uint logLength;
|
|
clGetProgramBuildInfo(program, deviceID, CL_PROGRAM_BUILD_LOG, 0, NULL, &logLength);
|
|
char* log = new char[logLength];
|
|
clGetProgramBuildInfo(program, deviceID, CL_PROGRAM_BUILD_LOG, logLength, log, 0);
|
|
std::cout << log << std::endl;
|
|
delete[] log;
|
|
exit(-1);
|
|
}
|
|
}
|
|
|
|
|
|
int main()
|
|
{
|
|
capi();
|
|
//cppapi();
|
|
OpenCLHandler handler("../kernels/linear.cl");
|
|
|
|
handler.run_test(new Jacobi(64, MVType::SimpleMV));
|
|
//handler.run_test(new Jacobi(64, MVType::ReduceMV));
|
|
//handler.run_test(new Jacobi(64, MVType::LargeMV));
|
|
|
|
//for (int n = 256; n <= 1024; n = n * 2) {
|
|
// handler.run_test(new Jacobi(n, MVType::SimpleMV));
|
|
// handler.run_test(new Jacobi(n, MVType::LargeMV));
|
|
//}
|
|
|
|
int GAn = 4;
|
|
int GAm = 3;
|
|
|
|
float GA[] = { 2, 1, -1, 8,
|
|
-3, -1, 2, -11,
|
|
-2, 1, 2, -3 };
|
|
|
|
int GBn = 6;
|
|
int GBm = 3;
|
|
float GB[] = { 2, -1, 0, 1, 0, 0,
|
|
-1, 2, -1, 0, 1, 0,
|
|
0, -1, 2, 0, 0, 1 };
|
|
Gauss g1(GAn, GAm, GA);
|
|
Gauss g2(GBn, GBm, GB);
|
|
|
|
//handler.run_test(&g1);
|
|
//handler.run_test(&g2);
|
|
return 0;
|
|
}
|
|
|
|
|