168 bind(c, name =
'cuda_add3s2')
169 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
171 type(c_ptr),
value :: a_d, b_d, c_d
246 subroutine cuda_vdot3(dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d, n) &
247 bind(c, name =
'cuda_vdot3')
248 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
249 type(c_ptr),
value :: dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d
254 w1_d, w2_d, w3_d, n) &
255 bind(c, name =
'cuda_vcross')
256 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
257 type(c_ptr),
value :: u1_d, u2_d, u3_d
258 type(c_ptr),
value :: v1_d, v2_d, v3_d
259 type(c_ptr),
value :: w1_d, w2_d, w3_d
288 bind(c, name =
'cuda_glsc3_many')
289 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
291 type(c_ptr),
value :: w_d, v_d_d, mult_d
292 integer(c_int) :: j, n