36 use,
intrinsic :: iso_c_binding
42 bind(c, name=
'hip_inhom_dirichlet_apply_vector')
43 use,
intrinsic :: iso_c_binding
47 type(c_ptr),
value :: msk, x, y, z, bla_x, bla_y, bla_z
53 bind(c, name=
'cuda_inhom_dirichlet_apply_vector')
54 use,
intrinsic :: iso_c_binding
58 type(c_ptr),
value :: msk, x, y, z, bla_x, bla_y, bla_z
64 bind(c, name=
'opencl_inhom_dirichlet_apply_vector')
65 use,
intrinsic :: iso_c_binding
69 type(c_ptr),
value :: msk, x, y, z, bla_x, bla_y, bla_z
78 bind(c, name=
'hip_inhom_dirichlet_apply_scalar')
79 use,
intrinsic :: iso_c_binding
83 type(c_ptr),
value :: msk, x, bla_x
89 bind(c, name=
'cuda_inhom_dirichlet_apply_scalar')
90 use,
intrinsic :: iso_c_binding
94 type(c_ptr),
value :: msk, x, bla_x
100 bind(c, name=
'opencl_inhom_dirichlet_apply_scalar')
101 use,
intrinsic :: iso_c_binding
105 type(c_ptr),
value :: msk, x, bla_x
113 integer,
intent(in) :: m
114 type(c_ptr) :: msk, x, y, z, bla_x, bla_y, bla_z
123 call neko_error(
'No device backend configured')
129 integer,
intent(in) :: m
130 type(c_ptr) :: msk, x, bla_x
139 call neko_error(
'No device backend configured')
void opencl_inhom_dirichlet_apply_scalar(void *msk, void *x, void *bla_x, int *m)
void opencl_inhom_dirichlet_apply_vector(void *msk, void *x, void *y, void *z, void *bla_x, void *bla_y, void *bla_z, int *m)
void cuda_inhom_dirichlet_apply_vector(void *msk, void *x, void *y, void *z, void *bla_x, void *bla_y, void *bla_z, int *m)
void cuda_inhom_dirichlet_apply_scalar(void *msk, void *x, void *bla_x, int *m)
subroutine device_inhom_dirichlet_apply_vector(msk, x, y, z, bla_x, bla_y, bla_z, m)
subroutine device_inhom_dirichlet_apply_scalar(msk, x, bla_x, m)
integer, parameter, public c_rp
integer, parameter, public rp
Global precision used in computations.