44 bind(c, name = "opencl_smooth_step")
45 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
47 type(c_ptr),
value :: x
48 real(c_rp) :: edge0, edge1
53 bind(c, name = "opencl_step_function")
54 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
56 type(c_ptr),
value :: x
57 real(c_rp) :: edge, left, right
62 bind(c, name = "opencl_permeability")
63 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
65 type(c_ptr),
value :: x
66 real(c_rp) :: k_0, k_1, q
integer, parameter, public c_rp
integer, parameter, public rp
Global precision used in computations.
OpenCL interface binding for filters.