Report maximum work group size and if it has been exceeded

1 files changed, 5 insertions, 0 deletions

diff --git a/src/diffraction-gpu.c b/src/diffraction-gpu.c
index b1f0860a..33410701 100644
--- a/src/diffraction-gpu.c
+++ b/src/diffraction-gpu.c
@@ -266,6 +266,7 @@ struct gpu_context *setup_gpu(int no_sfac, struct image *image,
 	cl_device_id dev;
 	size_t sfac_size;
 	float *sfac_ptr;
+	size_t maxwgsize;
 
 	if ( molecule == NULL ) return NULL;
 
@@ -371,6 +372,10 @@ struct gpu_context *setup_gpu(int no_sfac, struct image *image,
 
 	STATUS("done\n");
 
+	clGetDeviceInfo(dev, CL_DEVICE_MAX_WORK_GROUP_SIZE,
+	                sizeof(size_t), &maxwgsize, NULL);
+	STATUS("Maximum work group size = %lli\n", (long long int)maxwgsize);
+
 	return gctx;
 }