Main body working

Still tweaking OpenCL code