12 lines
239 B
Common Lisp
12 lines
239 B
Common Lisp
#include <clc/clc.h>
|
|
|
|
#ifdef cl_khr_fp64
|
|
#pragma OPENCL EXTENSION cl_khr_fp64 : enable
|
|
#endif
|
|
|
|
#define FUNCTION __clc_fmax
|
|
#define FUNCTION_IMPL(x, y) ((x) < (y) ? (y) : (x))
|
|
|
|
#define BODY <binary_impl.inc>
|
|
#include <clc/math/gentype.inc>
|