OpenCL stuff

clGetPlatformIDs(1, &platformID, &numPlatforms);
    clGetDeviceIDs(platformID, CL_DEVICE_TYPE_DEFAULT, 1, &deviceID, &numDevices);
    context = clCreateContext(NULL, 1, &deviceID, NULL, NULL, NULL);
    commandQueue = clCreateCommandQueue(context, deviceID, 0, NULL);

    memOP = clCreateBuffer(context, CL_MEM_READ_ONLY, MAX_OP * sizeof(Coord), NULL, NULL);
    memSegment = clCreateBuffer(context, CL_MEM_READ_ONLY, MAX_SEGMENTEN * sizeof(Coord), NULL, NULL);
    memAfstanden = clCreateBuffer(context, CL_MEM_WRITE_ONLY, MAX_AFSTANDEN * sizeof(double), NULL, NULL);

    clEnqueueWriteBuffer(commandQueue, memOP, CL_TRUE, 0, MAX_OP * sizeof(Coord), OP, 0, NULL, NULL);
    clEnqueueWriteBuffer(commandQueue, memSegment, CL_TRUE, 0, MAX_SEGMENTEN * sizeof(Coord), segmentArray, 0, NULL, NULL);

    clCreateProgramWithSource(context, 1, (const char **)&kernelSource, (const size_t *)&kernelLength, NULL);

    clBuildProgram(program, 1, &deviceID, NULL, NULL, NULL);

    kernel = clCreateKernel(program, "afstand", NULL);

    clSetKernelArg(kernel, 0, sizeof(cl_mem), (void *)&memOP);
    clSetKernelArg(kernel, 1, sizeof(cl_mem), (void *)&memSegment);
    clSetKernelArg(kernel, 2, sizeof(cl_mem), (void *)&memAfstanden);
    clSetKernelArg(kernel, 3, sizeof(int), FLIGHTALTITUDE);

    clEnqueueNDRangeKernel(commandQueue, kernel, 1, NULL, MAX_AFSTANDEN, 1, 0, NULL, NULL);

    clEnqueueReadBuffer(commandQueue, memAfstanden, CL_TRUE, 0, MAX_AFSTANDEN * sizeof(double), afstanden, 0, NULL, NULL);

    fopen_s(&optr, "C:\\Cio\\IO.txt", "wt");
    for(i = 0; i < MAX_OP; i++)
    {
        for(z = 0; z < MAX_SEGMENTEN; z++)
        {
            fprintf(optr, "OP %d ligt %3.2lfkm van segment %d af\n", i, afstanden[MAX_SEGMENTEN*i + z], z);
        }
    }
    fclose(optr);

    clFlush(commandQueue);
    clFinish(commandQueue);
    clReleaseKernel(kernel);
    clReleaseProgram(program);
    clReleaseMemObject(memOP);
    clReleaseMemObject(memSegment);
    clReleaseMemObject(memAfstanden);
    clReleaseCommandQueue(commandQueue);
    clReleaseContext(context);