35 use,
intrinsic :: iso_c_binding, only : c_ptr, c_int
41 bind(c, name=
'hip_no_slip_wall_apply_scalar')
42 use,
intrinsic :: iso_c_binding
45 type(c_ptr),
value :: msk, x
51 bind(c, name=
'hip_no_slip_wall_apply_vector')
52 use,
intrinsic :: iso_c_binding
55 type(c_ptr),
value :: msk, x, y, z
61 bind(c, name=
'cuda_no_slip_wall_apply_scalar')
62 use,
intrinsic :: iso_c_binding
65 type(c_ptr),
value :: msk, x
71 bind(c, name=
'cuda_no_slip_wall_apply_vector')
72 use,
intrinsic :: iso_c_binding
75 type(c_ptr),
value :: msk, x, y, z
81 bind(c, name=
'opencl_no_slip_wall_apply_scalar')
82 use,
intrinsic :: iso_c_binding
85 type(c_ptr),
value :: msk, x
91 bind(c, name=
'opencl_no_slip_wall_apply_vector')
92 use,
intrinsic :: iso_c_binding
95 type(c_ptr),
value :: msk, x, y, z
105 integer,
intent(in) :: m
106 type(c_ptr) :: msk, x
115 call neko_error(
'No device backend configured')
121 integer,
intent(in) :: m
122 type(c_ptr) :: msk, x, y, z
131 call neko_error(
'No device backend configured')
subroutine, public device_no_slip_wall_apply_vector(msk, x, y, z, m)
subroutine, public device_no_slip_wall_apply_scalar(msk, x, m)
void opencl_no_slip_wall_apply_vector(void *msk, void *x, void *y, void *z, int *m)
void opencl_no_slip_wall_apply_scalar(void *msk, void *x, int *m)
void cuda_no_slip_wall_apply_scalar(void *msk, void *x, int *m)
void cuda_no_slip_wall_apply_vector(void *msk, void *x, void *y, void *z, int *m)