36 use device,
only : glb_cmd_queue
37 use,
intrinsic :: iso_c_binding, only : c_ptr, c_int
44 bind(c, name =
'hip_pick_facet_value_hex')
45 use,
intrinsic :: iso_c_binding
48 type(c_ptr),
value :: a_d, b_d
49 integer(c_int) :: nx, nelv
57 bind(c, name =
'hip_gradient_jump_penalty_finalize')
58 use,
intrinsic :: iso_c_binding
61 type(c_ptr),
value :: penalty_d, &
62 penalty_facet_d, dphidxi_d
63 integer(c_int) :: nx, nelv
69 bind(c, name =
'cuda_pick_facet_value_hex')
70 use,
intrinsic :: iso_c_binding
73 type(c_ptr),
value :: a_d, b_d
74 integer(c_int) :: nx, nelv
82 bind(c, name =
'cuda_gradient_jump_penalty_finalize')
83 use,
intrinsic :: iso_c_binding
86 type(c_ptr),
value :: penalty_d, &
87 penalty_facet_d, dphidxi_d
88 integer(c_int) :: nx, nelv
101 integer,
intent(in) :: nx, nelv
102 type(c_ptr) :: a_d, b_d
108 call neko_error(
'OPENCL is not implemented for gradient jump penalty')
110 call neko_error(
'No device backend configured')
119 integer,
intent(in) :: nx, nelv
120 type(c_ptr) :: penalty_d, penalty_facet_d, dphidxi_d
132 call neko_error(
'OPENCL is not implemented for gradient jump penalty')
134 call neko_error(
'No device backend configured')
void cuda_gradient_jump_penalty_finalize(void *penalty_d, void *penalty_facet_d, void *dphidxi_d, int *nx, int *nel)
void cuda_pick_facet_value_hex(void *b, void *a, int *nx, int *nel)
subroutine, public device_gradient_jump_penalty_finalize(penalty_d, penalty_facet_d, dphidxi_d, nx, nelv)
subroutine, public device_pick_facet_value_hex(b_d, a_d, nx, nelv)
Device abstraction, common interface for various accelerators.
integer, parameter, public c_rp
integer, parameter, public rp
Global precision used in computations.