36 use,
intrinsic :: iso_c_binding
42 bind(c, name=
'hip_symmetry_apply_vector')
43 use,
intrinsic :: iso_c_binding
45 integer(c_int) :: m, n, l
46 type(c_ptr),
value :: xmsk, ymsk, zmsk, x, y, z
52 bind(c, name=
'cuda_symmetry_apply_vector')
53 use,
intrinsic :: iso_c_binding
55 integer(c_int) :: m, n, l
56 type(c_ptr),
value :: xmsk, ymsk, zmsk, x, y, z
62 bind(c, name=
'opencl_symmetry_apply_vector')
63 use,
intrinsic :: iso_c_binding
65 integer(c_int) :: m, n, l
66 type(c_ptr),
value :: xmsk, ymsk, zmsk, x, y, z
74 integer,
intent(in) :: m, n, l
75 type(c_ptr) :: xmsk, ymsk, zmsk, x, y, z
84 call neko_error(
'No device backend configured')
subroutine device_symmetry_apply_vector(xmsk, ymsk, zmsk, x, y, z, m, n, l)
void opencl_symmetry_apply_vector(void *xmsk, void *ymsk, void *zmsk, void *x, void *y, void *z, int *m, int *n, int *l)
void cuda_symmetry_apply_vector(void *xmsk, void *ymsk, void *zmsk, void *x, void *y, void *z, int *m, int *n, int *l)