54 lines
1.4 KiB
Common Lisp
54 lines
1.4 KiB
Common Lisp
#pragma OPENCL EXTENSION cl_khr_fp16 : enable
|
|
|
|
kernel void kernel_sqrt_cont_f32(
|
|
global float * src0,
|
|
ulong offset0,
|
|
global float * dst,
|
|
ulong offsetd
|
|
) {
|
|
src0 = (global float*)((global char*)src0 + offset0);
|
|
dst = (global float*)((global char*)dst + offsetd);
|
|
|
|
uint gid = get_global_id(0);
|
|
dst[gid] = sqrt(src0[gid]);
|
|
}
|
|
|
|
kernel void kernel_sqrt_cont_f32_4(
|
|
global float4 * src0,
|
|
ulong offset0,
|
|
global float4 * dst,
|
|
ulong offsetd
|
|
) {
|
|
src0 = (global float4*)((global char*)src0 + offset0);
|
|
dst = (global float4*)((global char*)dst + offsetd);
|
|
|
|
uint gid = get_global_id(0);
|
|
dst[gid] = sqrt(src0[gid]);
|
|
}
|
|
|
|
kernel void kernel_sqrt_cont_f16(
|
|
global half * src0,
|
|
ulong offset0,
|
|
global half * dst,
|
|
ulong offsetd
|
|
) {
|
|
src0 = (global half*)((global char*)src0 + offset0);
|
|
dst = (global half*)((global char*)dst + offsetd);
|
|
|
|
uint gid = get_global_id(0);
|
|
dst[gid] = convert_half(sqrt(convert_float(src0[gid])));
|
|
}
|
|
|
|
kernel void kernel_sqrt_cont_f16_4(
|
|
global half4 * src0,
|
|
ulong offset0,
|
|
global half4 * dst,
|
|
ulong offsetd
|
|
) {
|
|
src0 = (global half4*)((global char*)src0 + offset0);
|
|
dst = (global half4*)((global char*)dst + offsetd);
|
|
|
|
uint gid = get_global_id(0);
|
|
dst[gid] = convert_half4(sqrt(convert_float4(src0[gid])));
|
|
}
|