180 bind(c, name =
'opencl_add3s2')
181 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
184 type(c_ptr),
value :: a_d, b_d, c_d
269 subroutine opencl_vdot3(dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d, n) &
270 bind(c, name =
'opencl_vdot3')
271 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
273 type(c_ptr),
value :: dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d