29 lines
606 B
Common Lisp
29 lines
606 B
Common Lisp
__kernel void psorti (__global const int *in, __global int *out)
|
|
{
|
|
int gid = get_global_id(0);
|
|
int n = get_global_size(0);
|
|
|
|
int ref = in[gid];
|
|
|
|
int pos = 0;
|
|
for (int i = 0; i < n; ++i) {
|
|
int cur = in[i];
|
|
pos += (cur < ref) || ((cur == ref) && (i < gid));
|
|
}
|
|
out[pos] = ref;
|
|
}
|
|
|
|
__kernel void psortf (__global const float *in, __global float *out)
|
|
{
|
|
int gid = get_global_id(0);
|
|
int n = get_global_size(0);
|
|
|
|
float ref = in[gid];
|
|
|
|
int pos = 0;
|
|
for (int i = 0; i < n; ++i) {
|
|
float cur = in[i];
|
|
pos += (cur < ref) || ((cur == ref) && (i < gid));
|
|
}
|
|
out[pos] = ref;
|
|
} |