lhez
7cba58bbea
* opencl: add sqr * opencl: add sqrt * opencl: add mean * opencl: add ssm_conv * opencl: add missing cl_khr_fp16 * opencl: do sqrt in f32 then convert to f16 for better precision
54 lines
1.3 KiB
Common Lisp
54 lines
1.3 KiB
Common Lisp
#pragma OPENCL EXTENSION cl_khr_fp16 : enable
|
|
|
|
kernel void kernel_sqr_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] = src0[gid] * src0[gid];
|
|
}
|
|
|
|
kernel void kernel_sqr_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] = src0[gid] * src0[gid];
|
|
}
|
|
|
|
kernel void kernel_sqr_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] = src0[gid] * src0[gid];
|
|
}
|
|
|
|
kernel void kernel_sqr_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] = src0[gid] * src0[gid];
|
|
}
|