sig
  external opencl_launch_grid :
    Kernel.kernel ->
    Kernel.grid -> Kernel.block -> Spoc.Devices.generalInfo -> int -> unit
    = "spoc_opencl_launch_grid"
  val opencl_load_arg :
    int Pervasives.ref ->
    Spoc.Devices.device ->
    Kernel.kernel -> int -> ('a, 'b) Kernel.kernelArgs -> unit
end