module Kernel: sig
.. end
type
kernel
val relax_vcustom : 'a Vector.vcustom -> 'b Vector.vcustom
type ('a, 'b)
kernelArgs =
type
block = {
|
mutable blockX : int ; |
|
mutable blockY : int ; |
|
mutable blockZ : int ; |
}
type
grid = {
|
mutable gridX : int ; |
|
mutable gridY : int ; |
|
mutable gridZ : int ; |
}
val nbCaches : int
module Cuda: sig
.. end
module OpenCL: sig
.. end
exception ERROR_BLOCK_SIZE
exception ERROR_GRID_SIZE
val exec : string ->
string ->
('a, 'b) kernelArgs array ->
block * grid -> bool -> bool -> int -> Devices.device -> unit
val run : Devices.device ->
block * grid ->
?debug:bool ->
?cached:bool ->
?queue_id:int ->
(block * grid -> bool -> bool -> int -> Devices.device -> 'a) ->
'a
val max : 'a -> 'a -> 'a