35 use,
intrinsic :: iso_c_binding, only : c_int, c_ptr
42 nx, ny, nz, area, lx, m) &
43 bind(c, name=
'hip_facet_normal_apply_surfvec')
44 use,
intrinsic :: iso_c_binding
46 integer(c_int) :: m, lx
47 type(c_ptr),
value :: msk, facet, x, y, z, u, v, w, nx, ny, nz, area
53 nx, ny, nz, area, lx, m) &
54 bind(c, name=
'cuda_facet_normal_apply_surfvec')
55 use,
intrinsic :: iso_c_binding
57 integer(c_int) :: m, lx
58 type(c_ptr),
value :: msk, facet, x, y, z, u, v, w, nx, ny, nz, area
64 nx, ny, nz, area, lx, m) &
65 bind(c, name=
'opencl_facet_normal_apply_surfvec')
66 use,
intrinsic :: iso_c_binding
68 integer(c_int) :: m, lx
69 type(c_ptr),
value :: msk, facet, x, y, z, u, v, w, nx, ny, nz, area
79 nx, ny, nz, area, lx, m)
80 integer,
intent(in) :: m, lx
81 type(c_ptr) :: msk, facet, x, y, z, u, v, w, nx, ny, nz, area
85 nx, ny, nz, area, lx, m)
88 nx, ny, nz, area, lx, m)
91 nx, ny, nz, area, lx, m)
93 call neko_error(
'No device backend configured')
void opencl_facet_normal_apply_surfvec(void *msk, void *facet, void *x, void *y, void *z, void *u, void *v, void *w, void *nx, void *ny, void *nz, void *area, int *lx, int *m)
void cuda_facet_normal_apply_surfvec(void *msk, void *facet, void *x, void *y, void *z, void *u, void *v, void *w, void *nx, void *ny, void *nz, void *area, int *lx, int *m)
subroutine, public device_facet_normal_apply_surfvec(msk, facet, x, y, z, u, v, w, nx, ny, nz, area, lx, m)