36 use,
intrinsic :: iso_c_binding, only : c_ptr
43 bind(c, name=
'hip_inflow_apply_vector')
44 use,
intrinsic :: iso_c_binding
47 type(c_ptr),
value :: msk, x, y, z, g
55 bind(c, name=
'cuda_inflow_apply_vector')
56 use,
intrinsic :: iso_c_binding
59 type(c_ptr),
value :: msk, x, y, z, g
67 bind(c, name=
'opencl_inflow_apply_vector')
68 use,
intrinsic :: iso_c_binding
71 type(c_ptr),
value :: msk, x, y, z, g
82 integer,
intent(in) :: m
83 type(c_ptr) :: msk, x, y, z, g
92 call neko_error(
'No device backend configured')
void opencl_inflow_apply_vector(void *msk, void *x, void *y, void *z, void *g, int *m)
void cuda_inflow_apply_vector(void *msk, void *x, void *y, void *z, void *g, int *m)
subroutine, public device_inflow_apply_vector(msk, x, y, z, g, m)