175 bind(c, name =
'cuda_add3s2')
176 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
178 type(c_ptr),
value :: a_d, b_d, c_d
253 subroutine cuda_vdot3(dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d, n) &
254 bind(c, name =
'cuda_vdot3')
255 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
256 type(c_ptr),
value :: dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d
261 w1_d, w2_d, w3_d, n) &
262 bind(c, name =
'cuda_vcross')
263 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
264 type(c_ptr),
value :: u1_d, u2_d, u3_d
265 type(c_ptr),
value :: v1_d, v2_d, v3_d
266 type(c_ptr),
value :: w1_d, w2_d, w3_d
295 bind(c, name =
'cuda_glsc3_many')
296 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
298 type(c_ptr),
value :: w_d, v_d_d, mult_d
299 integer(c_int) :: j, n