// OpenCL kód - példa a szálak futatására
__kernel void helloWorld(__global char* output)
{
	int p= get_global_id(0);
	switch (p)
	{
		case 0:
			output[p] = 'H';
			break;
		case 1:
			output[p] = 'e';
			break;
		case 2:
		case 3:
		case 9:
			output[p] = 'l';
			break;
		case 4:
		case 7:
			output[p] = 'o';
			break;
		case 5:
			output[p] = ' ';
			break;
		case 6:
			output[p] = 'w';
			break;
		case 8:
			output[p] = 'r';
			break;
		case 10:
			output[p] = 'd';
			break;
		case 11:
			output[p] = '!';
			break;
		default:
			output[p] = '\0';
			break;
	}	   
}

Forrás letöltése itt.

Mivel a feladat bemenete és kimenete eltérő ezért meg kell változtatnunk a memória foglalásokat, az argumentum beállításokat és a kernel futtatásának a paramétereit is a gazdagép programjában. Mivel a program nagy része megegyezik az előző programmal ezért itt csak a különbségeket mutatjuk be.

Memória objektumok létrehozása az erédmeny argumentum számára

bool CreateMemObjects(cl_context context, cl_mem memObjects[1])
{
	memObjects[0] = clCreateBuffer(context, CL_MEM_READ_WRITE,
		sizeof(float) * ARRAY_SIZE, NULL, NULL);

	if (memObjects[0] == NULL || memObjects[1] == NULL || memObjects[2] == NULL)
	{
		std::cerr << "Error creating memory objects." << std::endl;
		return false;
	}

	return true;
}

OpenCL erőforrások felszabadítása

void Cleanup(cl_context context, cl_command_queue commandQueue,
	cl_program program, cl_kernel kernel, cl_mem memObjects[1])
{
	for (int i = 0; i < 1; i++)
	{
		if (memObjects[i] != 0)
			clReleaseMemObject(memObjects[i]);
	}
	if (commandQueue != 0)
		clReleaseCommandQueue(commandQueue);

	if (kernel != 0)
		clReleaseKernel(kernel);

	if (program != 0)
		clReleaseProgram(program);

	if (context != 0)
		clReleaseContext(context);

}

Kernel argumentum beállítása

errNum = clSetKernelArg(kernel, 0, sizeof(cl_mem), &memObjects[0]);
	if (errNum != CL_SUCCESS)
	{
		std::cerr << "Error setting kernel arguments." << std::endl;
		Cleanup(context, commandQueue, program, kernel, memObjects);
		return 1;
	}

	size_t globalWorkSize[1] = { ARRAY_SIZE };
	size_t localWorkSize[1] = { 1 };

A kerenel elhelyezése a parancssorban

errNum = clEnqueueNDRangeKernel(commandQueue, kernel, 1, NULL,
	globalWorkSize, localWorkSize,
	0, NULL, NULL);

A kimeneti adatok betöltése a host memóriába

char result[ARRAY_SIZE];
	errNum = clEnqueueReadBuffer(commandQueue, memObjects[0], CL_TRUE,
		0, ARRAY_SIZE * sizeof(char), result,
		0, NULL, NULL);
	if (errNum != CL_SUCCESS)
	{
		std::cerr << "Error reading result buffer." << std::endl;
		Cleanup(context, commandQueue, program, kernel, memObjects);
		return 1;
	}

Teljes forrás letöltése itt.