36 use,
intrinsic :: iso_c_binding
43 normal_z, u, v, w, uinf, delta, m) &
44 bind(c, name=
'hip_dong_outflow_apply_scalar')
45 use,
intrinsic :: iso_c_binding
49 real(kind=
c_rp) :: uinf, delta
50 type(c_ptr),
value :: msk, x, u, v, w, normal_x, normal_y, normal_z
56 normal_z, u, v, w, uinf, delta, m) &
57 bind(c, name=
'cuda_dong_outflow_apply_scalar')
58 use,
intrinsic :: iso_c_binding
62 real(kind=
c_rp) :: uinf, delta
63 type(c_ptr),
value :: msk, x, u, v, w, normal_x, normal_y, normal_z
69 normal_z, u, v, w, uinf, delta, m) &
70 bind(c, name=
'opencl_dong_outflow_apply_scalar')
71 use,
intrinsic :: iso_c_binding
75 real(kind=
c_rp) :: uinf, delta
76 type(c_ptr),
value :: msk, x, u, v, w, normal_x, normal_y, normal_z
86 normal_z, u, v, w, uinf, delta, m)
88 real(kind=
c_rp) :: uinf, delta
89 type(c_ptr) :: msk, x, u, v, w, normal_x, normal_y, normal_z
93 normal_z, u, v, w, uinf, delta, m)
96 normal_z, u, v, w, uinf, delta, m)
99 normal_z, u, v, w, uinf, delta, m)
102 call neko_error(
'No device backend configured')
void opencl_dong_outflow_apply_scalar(void *msk, void *x, void *normal_x, void *normal_y, void *normal_z, void *u, void *v, void *w, real *uinf, real *delta, int *m)
void cuda_dong_outflow_apply_scalar(void *msk, void *x, void *normal_x, void *normal_y, void *normal_z, void *u, void *v, void *w, real *uinf, real *delta, int *m)
subroutine, public device_dong_outflow_apply_scalar(msk, x, normal_x, normal_y, normal_z, u, v, w, uinf, delta, m)
integer, parameter, public c_rp