Func clGetPlatformInfo($platform, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetPlatformInfo", "dword", $platform, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetPlatformInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetPlatformInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetPlatformInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetPlatformInfo


Func clGetDeviceIDs($platform, $device_type, $num_entries, ByRef $devices, ByRef $num_devices)
    $aCall = DllCall($OpenCl_dll, "long", "clGetDeviceIDs", "dword", $platform, "int64", $device_type, "dword", $num_entries, "dword*", $devices, "long*", $num_devices)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetDeviceIDs''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetDeviceIDs', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetDeviceIDs  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetDeviceIDs





Func clCreateContext($properties, $num_devices, ByRef $devices, ByRef $pfn_notify, ByRef $user_data, ByRef $errcode_ret)
    $aCall = DllCall($OpenCl_dll, "dword", "clCreateContext", "dword", $properties, "dword", $num_devices, "dword*", $devices, "dword*", $pfn_notify, "dword*", $user_data, "long*", $errcode_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clCreateContext''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clCreateContext', '  Returncode: ' & OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)))
        Else
            ConsoleWrite('clCreateContext  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clCreateContext




Func clRetainContext($context)
    $aCall = DllCall($OpenCl_dll, "long", "clRetainContext", "long", $context)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clRetainContext''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clRetainContext', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clRetainContext  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clRetainContext


Func clReleaseContext($context)
    $aCall = DllCall($OpenCl_dll, "long", "clReleaseContext", "long", $context)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clReleaseContext''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clReleaseContext', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clReleaseContext  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clReleaseContext


Func clGetContextInfo($context, $param_name, $param_value_size, $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetContextInfo", "dword", $context, "dword", $param_name, "dword", $param_value_size, "dword", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetContextInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetContextInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetContextInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetContextInfo





Func clRetainCommandQueue($command_queue)
    $aCall = DllCall($OpenCl_dll, "long", "clRetainCommandQueue", "long", $command_queue)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clRetainCommandQueue''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clRetainCommandQueue', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clRetainCommandQueue  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clRetainCommandQueue


Func clReleaseCommandQueue($command_queue)
    $aCall = DllCall($OpenCl_dll, "long", "clReleaseCommandQueue", "long", $command_queue)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clReleaseCommandQueue''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clReleaseCommandQueue', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clReleaseCommandQueue  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clReleaseCommandQueue


Func clGetCommandQueueInfo($command_queue, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetCommandQueueInfo", "dword", $command_queue, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetCommandQueueInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetCommandQueueInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetCommandQueueInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetCommandQueueInfo


Func clSetCommandQueueProperty($command_queue, $properties, $enable, ByRef $old_properties)
    $aCall = DllCall($OpenCl_dll, "long", "clSetCommandQueueProperty", "dword", $command_queue, "int64", $properties, "dword", $enable, "int64*", $old_properties)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clSetCommandQueueProperty''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clSetCommandQueueProperty', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clSetCommandQueueProperty  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clSetCommandQueueProperty





Func clRetainMemObject($memobj)
    $aCall = DllCall($OpenCl_dll, "long", "clRetainMemObject", "long", $memobj)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clRetainMemObject''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clRetainMemObject', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clRetainMemObject  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clRetainMemObject


Func clReleaseMemObject($memobj)
    $aCall = DllCall($OpenCl_dll, "long", "clReleaseMemObject", "long", $memobj)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clReleaseMemObject''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clReleaseMemObject', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clReleaseMemObject  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clReleaseMemObject


Func clGetMemObjectInfo($memobj, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetMemObjectInfo", "dword", $memobj, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetMemObjectInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetMemObjectInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetMemObjectInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetMemObjectInfo


Func clGetImageInfo($image, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetImageInfo", "dword", $image, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetImageInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetImageInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetImageInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetImageInfo


Func clCreateSampler($context, $normalized_coords, $addressing_mode, $filter_mode, ByRef $errcode_ret)
    $aCall = DllCall($OpenCl_dll, "dword", "clCreateSampler", "dword", $context, "dword", $normalized_coords, "dword", $addressing_mode, "dword", $filter_mode, "long*", $errcode_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clCreateSampler''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clCreateSampler', '  Returncode: ' & OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)))
        Else
            ConsoleWrite('clCreateSampler  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clCreateSampler


Func clRetainSampler($sampler)
    $aCall = DllCall($OpenCl_dll, "long", "clRetainSampler", "long", $sampler)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clRetainSampler''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clRetainSampler', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clRetainSampler  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clRetainSampler


Func clReleaseSampler($sampler)
    $aCall = DllCall($OpenCl_dll, "long", "clReleaseSampler", "long", $sampler)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clReleaseSampler''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clReleaseSampler', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clReleaseSampler  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clReleaseSampler


Func clGetSamplerInfo($sampler, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetSamplerInfo", "dword", $sampler, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetSamplerInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetSamplerInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetSamplerInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetSamplerInfo





Func clCreateProgramWithBinary($context, $num_devices, ByRef $device_list, ByRef $lengths, ByRef $binaries, ByRef $binary_status, ByRef $errcode_ret)
    $aCall = DllCall($OpenCl_dll, "dword", "clCreateProgramWithBinary", "dword", $context, "dword", $num_devices, "dword*", $device_list, "dword*", $lengths, "dword*", $binaries, "long*", $binary_status, "long*", $errcode_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clCreateProgramWithBinary''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clCreateProgramWithBinary', '  Returncode: ' & OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)))
        Else
            ConsoleWrite('clCreateProgramWithBinary  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clCreateProgramWithBinary


Func clRetainProgram($program)
    $aCall = DllCall($OpenCl_dll, "long", "clRetainProgram", "long", $program)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clRetainProgram''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clRetainProgram', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clRetainProgram  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clRetainProgram


Func clReleaseProgram($program)
    $aCall = DllCall($OpenCl_dll, "long", "clReleaseProgram", "long", $program)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clReleaseProgram''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clReleaseProgram', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clReleaseProgram  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clReleaseProgram




Func clGetProgramInfo($program, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetProgramInfo", "dword", $program, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetProgramInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetProgramInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetProgramInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetProgramInfo


Func clGetProgramBuildInfo($program, $device, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetProgramBuildInfo", "dword", $program, "dword", $device, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetProgramBuildInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetProgramBuildInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetProgramBuildInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetProgramBuildInfo





Func clCreateKernelsInProgram($program, $num_kernels, ByRef $kernels, ByRef $num_kernels_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clCreateKernelsInProgram", "dword", $program, "dword", $num_kernels, "dword*", $kernels, "long*", $num_kernels_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clCreateKernelsInProgram''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clCreateKernelsInProgram', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clCreateKernelsInProgram  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clCreateKernelsInProgram


Func clRetainKernel($kernel)
    $aCall = DllCall($OpenCl_dll, "long", "clRetainKernel", "long", $kernel)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clRetainKernel''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clRetainKernel', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clRetainKernel  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clRetainKernel


Func clReleaseKernel($kernel)
    $aCall = DllCall($OpenCl_dll, "long", "clReleaseKernel", "long", $kernel)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clReleaseKernel''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clReleaseKernel', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clReleaseKernel  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clReleaseKernel




Func clGetKernelInfo($kernel, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetKernelInfo", "dword", $kernel, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetKernelInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetKernelInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetKernelInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetKernelInfo


Func clGetKernelWorkGroupInfo($kernel, $device, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetKernelWorkGroupInfo", "dword", $kernel, "dword", $device, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetKernelWorkGroupInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetKernelWorkGroupInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetKernelWorkGroupInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetKernelWorkGroupInfo


Func clWaitForEvents($num_events, ByRef $event_list)
    $aCall = DllCall($OpenCl_dll, "long", "clWaitForEvents", "dword", $num_events, "long*", $event_list)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clWaitForEvents''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clWaitForEvents', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clWaitForEvents  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clWaitForEvents


Func clGetEventInfo($event, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetEventInfo", "dword", $event, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetEventInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetEventInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetEventInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetEventInfo


Func clRetainEvent($event)
    $aCall = DllCall($OpenCl_dll, "long", "clRetainEvent", "long", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clRetainEvent''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clRetainEvent', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clRetainEvent  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clRetainEvent


Func clReleaseEvent($event)
    $aCall = DllCall($OpenCl_dll, "long", "clReleaseEvent", "long", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clReleaseEvent''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clReleaseEvent', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clReleaseEvent  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clReleaseEvent


Func clGetEventProfilingInfo($event, $param_name, $param_value_size, ByRef $param_value, ByRef $param_value_size_ret)
    $aCall = DllCall($OpenCl_dll, "long", "clGetEventProfilingInfo", "dword", $event, "dword", $param_name, "dword", $param_value_size, "dword*", $param_value, "dword*", $param_value_size_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetEventProfilingInfo''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetEventProfilingInfo', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetEventProfilingInfo  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetEventProfilingInfo


Func clFlush($command_queue)
    $aCall = DllCall($OpenCl_dll, "long", "clFlush", "long", $command_queue)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clFlush''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clFlush', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clFlush  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clFlush


Func clFinish($command_queue)
    $aCall = DllCall($OpenCl_dll, "long", "clFinish", "long", $command_queue)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clFinish''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clFinish', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clFinish  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clFinish




Func clEnqueueCopyBuffer($command_queue, $src_buffer, $dst_buffer, $src_offset, $dst_offset, $cb, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueCopyBuffer", "dword", $command_queue, "dword", $src_buffer, "dword", $dst_buffer, "dword", $src_offset, "dword", $dst_offset, "dword", $cb, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueCopyBuffer''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueCopyBuffer', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueCopyBuffer  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueCopyBuffer


Func clEnqueueReadImage($command_queue, $image, $blocking_read, ByRef $origin, ByRef $origin2, $row_pitch, $slice_pitch, ByRef $ptr, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueReadImage", "dword", $command_queue, "dword", $image, "dword", $blocking_read, "dword*", $origin, "dword*", $origin2, "dword", $row_pitch, "dword", $slice_pitch, "dword*", $ptr, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueReadImage''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueReadImage', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueReadImage  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueReadImage


Func clEnqueueWriteImage($command_queue, $image, $blocking_write, ByRef $origin, ByRef $origin2, $input_row_pitch, $input_slice_pitch, ByRef $ptr, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueWriteImage", "dword", $command_queue, "dword", $image, "dword", $blocking_write, "dword*", $origin, "dword*", $origin2, "dword", $input_row_pitch, "dword", $input_slice_pitch, "dword*", $ptr, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueWriteImage''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueWriteImage', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueWriteImage  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueWriteImage


Func clEnqueueCopyImage($command_queue, $src_image, $dst_image, ByRef $src_origin, ByRef $dst_origin, ByRef $origin, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueCopyImage", "dword", $command_queue, "dword", $src_image, "dword", $dst_image, "dword*", $src_origin, "dword*", $dst_origin, "dword*", $origin, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueCopyImage''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueCopyImage', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueCopyImage  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueCopyImage


Func clEnqueueCopyImageToBuffer($command_queue, $src_image, $dst_buffer, ByRef $src_origin, ByRef $origin, $dst_offset, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueCopyImageToBuffer", "dword", $command_queue, "dword", $src_image, "dword", $dst_buffer, "dword*", $src_origin, "dword*", $origin, "dword", $dst_offset, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueCopyImageToBuffer''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueCopyImageToBuffer', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueCopyImageToBuffer  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueCopyImageToBuffer


Func clEnqueueCopyBufferToImage($command_queue, $src_buffer, $dst_image, $src_offset, ByRef $dst_origin, ByRef $origin, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueCopyBufferToImage", "dword", $command_queue, "dword", $src_buffer, "dword", $dst_image, "dword", $src_offset, "dword*", $dst_origin, "dword*", $origin, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueCopyBufferToImage''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueCopyBufferToImage', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueCopyBufferToImage  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueCopyBufferToImage


Func clEnqueueMapBuffer($command_queue, $buffer, $blocking_map, $map_flags, $offset, $cb, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event, ByRef $errcode_ret)
    $aCall = DllCall($OpenCl_dll, "dword", "clEnqueueMapBuffer", "dword", $command_queue, "dword", $buffer, "dword", $blocking_map, "int64", $map_flags, "dword", $offset, "dword", $cb, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "dword*", $event, "dword*", $errcode_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueMapBuffer''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueMapBuffer', '  Returncode: ' & OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)))
        Else
            ConsoleWrite('clEnqueueMapBuffer  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueMapBuffer


Func clEnqueueMapImage($command_queue, $image, $blocking_map, $map_flags, ByRef $origin, ByRef $origin2, ByRef $image_row_pitch, ByRef $image_slice_pitch, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event, ByRef $errcode_ret)
    $aCall = DllCall($OpenCl_dll, "dword", "clEnqueueMapImage", "dword", $command_queue, "dword", $image, "dword", $blocking_map, "int64", $map_flags, "dword*", $origin, "dword*", $origin2, "dword*", $image_row_pitch, "dword*", $image_slice_pitch, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "dword*", $event, "dword*", $errcode_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueMapImage''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueMapImage', '  Returncode: ' & OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)))
        Else
            ConsoleWrite('clEnqueueMapImage  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueMapImage


Func clEnqueueUnmapMemObject($command_queue, $memobj, ByRef $mapped_ptr, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueUnmapMemObject", "dword", $command_queue, "dword", $memobj, "dword*", $mapped_ptr, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueUnmapMemObject''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueUnmapMemObject', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueUnmapMemObject  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueUnmapMemObject





Func clEnqueueTask($command_queue, $kernel, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueTask", "dword", $command_queue, "dword", $kernel, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueTask''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueTask', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueTask  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueTask


Func clEnqueueNativeKernel($command_queue, ByRef $any, ByRef $args, $cb_args, $num_mem_objects, ByRef $mem_list, $args_mem_loc, $num_events_in_wait_list, ByRef $event_wait_list, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueNativeKernel", "dword", $command_queue, "dword*", $any, "dword*", $args, "dword", $cb_args, "dword", $num_mem_objects, "dword*", $mem_list, "dword", $args_mem_loc, "dword", $num_events_in_wait_list, "dword*", $event_wait_list, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueNativeKernel''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueNativeKernel', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueNativeKernel  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueNativeKernel


Func clEnqueueMarker($command_queue, ByRef $event)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueMarker", "dword", $command_queue, "long*", $event)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueMarker''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueMarker', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueMarker  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueMarker


Func clEnqueueWaitForEvents($command_queue, $num_events, ByRef $event_list)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueWaitForEvents", "dword", $command_queue, "dword", $num_events, "long*", $event_list)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueWaitForEvents''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueWaitForEvents', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueWaitForEvents  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueWaitForEvents


Func clEnqueueBarrier($command_queue)
    $aCall = DllCall($OpenCl_dll, "long", "clEnqueueBarrier", "long", $command_queue)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clEnqueueBarrier''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clEnqueueBarrier', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clEnqueueBarrier  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clEnqueueBarrier


Func clGetExtensionFunctionAddress(ByRef $func_name)
    $aCall = DllCall($OpenCl_dll, "dword", "clGetExtensionFunctionAddress", "dword*", $func_name)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetExtensionFunctionAddress''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetExtensionFunctionAddress', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetExtensionFunctionAddress  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetExtensionFunctionAddress


Func clUnloadCompiler($any)
    $aCall = DllCall($OpenCl_dll, "long", "clUnloadCompiler", "long", $any)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clUnloadCompiler''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clUnloadCompiler', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clUnloadCompiler  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clUnloadCompiler


Func clCreateImage3D($context, $flags, ByRef $image_format, $image_width, $image_height, $image_depth, $image_row_pitch, $image_slice_pitch, ByRef $host_ptr, ByRef $errcode_ret)
    $aCall = DllCall($OpenCl_dll, "dword", "clCreateImage3D", "dword", $context, "int64", $flags, "0*", $image_format, "dword", $image_width, "dword", $image_height, "dword", $image_depth, "dword", $image_row_pitch, "dword", $image_slice_pitch, "dword*", $host_ptr, "long*", $errcode_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clCreateImage3D''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clCreateImage3D', '  Returncode: ' & OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)))
        Else
            ConsoleWrite('clCreateImage3D  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clCreateImage3D


Func clGetSupportedImageFormats($context, $flags, $image_type, $num_entries, ByRef $image_formats, ByRef $num_image_formats)
    $aCall = DllCall($OpenCl_dll, "long", "clGetSupportedImageFormats", "dword", $context, "int64", $flags, "dword", $image_type, "dword", $num_entries, "0*", $image_formats, "long*", $num_image_formats)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clGetSupportedImageFormats''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError($aCall[0]) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clGetSupportedImageFormats', '  Returncode: ' & OpenCL_DecodeError($aCall[0]))
        Else
            ConsoleWrite('clGetSupportedImageFormats  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc                                                                                          ;==>clGetSupportedImageFormats

Func clCreateImage2D($context, $flags, ByRef $image_format, $image_width, $image_height, $image_depth, $image_row_pitch, $image_slice_pitch, ByRef $host_ptr, ByRef $errcode_ret)
    $aCall = DllCall($OpenCl_dll, "dword", "clCreateImage2D", "dword", $context, "int64", $flags, "0*", $image_format, "dword", $image_width, "dword", $image_height, "dword", $image_depth, "dword", $image_row_pitch, "dword", $image_slice_pitch, "dword*", $host_ptr, "long*", $errcode_ret)
    If $Cl_DebugFlag Then
        If @error Then
            MsgBox(0, 'Error in Function ''clCreateImage2D''   DllCall() failed', ' Returncode ' & @error)
            Return SetError(1, 0, -1)
        EndIf
        If OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)) <> 'CL_SUCCESS' Then
            MsgBox(0, 'Error in Function clCreateImage3D', '  Returncode: ' & OpenCL_DecodeError(DllStructGetData($errcode_ret, 1)))
        Else
            ConsoleWrite('clCreateImage3D  CL_SUCCESS' & @CRLF)
        EndIf
    EndIf
    Return $aCall[0]
EndFunc