Commit 61137f68 authored by THIBAULT Samuel's avatar THIBAULT Samuel
Browse files

Cleanup opencl example

parent 45772e4c
Pipeline #217379 passed with stages
in 1 minute and 34 seconds
......@@ -34,7 +34,6 @@ void vector_scal_opencl(void *buffers[], void *_args)
int id, devid, err;
cl_kernel kernel;
cl_command_queue queue;
cl_event event;
id = starpu_worker_get_id();
devid = starpu_worker_get_devid(id);
......@@ -51,13 +50,11 @@ void vector_scal_opencl(void *buffers[], void *_args)
{
size_t local=64;
size_t global=n;
err = clEnqueueNDRangeKernel(queue, kernel, 1, NULL, &global, &local, 0, NULL, &event);
err = clEnqueueNDRangeKernel(queue, kernel, 1, NULL, &global, &local, 0, NULL, NULL);
if (err != CL_SUCCESS) STARPU_OPENCL_REPORT_ERROR(err);
}
clFinish(queue);
starpu_opencl_collect_stats(event);
clReleaseEvent(event);
starpu_opencl_release_kernel(kernel);
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment