37 use,
intrinsic :: iso_c_binding, only: c_ptr
57 type(c_ptr),
intent(inout) :: x
58 real(kind=
rp),
intent(in) :: edge0, edge1
59 integer,
intent(in) :: n
65 #elif HAVE_OPENCL == 1
69 "Smooth step function not implemented for the current device.")
76 type(c_ptr),
intent(inout) :: x
77 real(kind=
rp),
intent(in) :: x_step, value0, value1
78 integer,
intent(in) :: n
84 #elif HAVE_OPENCL == 1
88 "Step function not implemented for the current device.")
95 type(c_ptr),
intent(inout) :: x
96 real(kind=
rp),
intent(in) :: k_0, k_1, q
97 integer,
intent(in) :: n
103 #elif HAVE_OPENCL == 1
107 "Permeability function not implemented for the current device.")
Cuda interface binding for filters.
Device implementations of the filter functions.
subroutine permeability_device(x, k_0, k_1, q, n)
Apply a permeability function to a scalar.
subroutine smooth_step_device(x, edge0, edge1, n)
Apply a smooth step function to a scalar.
subroutine step_function_device(x, x_step, value0, value1, n)
Apply a step function to a scalar.
Hip interface binding for filters.
integer, parameter, public c_rp
integer, parameter, public rp
Global precision used in computations.
OpenCL interface binding for filters.