44 bind(c, name = "cuda_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 = "cuda_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 = "cuda_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
Cuda interface binding for filters.
integer, parameter, public c_rp