36 use,
intrinsic :: iso_c_binding
43 normal_z, u, v, w, uinf, delta, m, strm) &
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, strm
56 normal_z, u, v, w, uinf, delta, m, strm) &
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, strm
69 normal_z, u, v, w, uinf, delta, m, strm) &
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, strm
86 normal_z, u, v, w, uinf, delta, m, strm)
88 real(kind=
c_rp) :: uinf, delta
89 type(c_ptr) :: msk, x, u, v, w, normal_x, normal_y, normal_z, strm
93 normal_z, u, v, w, uinf, delta, m, strm)
96 normal_z, u, v, w, uinf, delta, m, strm)
99 normal_z, u, v, w, uinf, delta, m, strm)
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, cudaStream_t strm)
subroutine, public device_dong_outflow_apply_scalar(msk, x, normal_x, normal_y, normal_z, u, v, w, uinf, delta, m, strm)
integer, parameter, public c_rp