47 bind(c, name =
'cuda_masked_copy')
48 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
49 type(c_ptr),
value :: a_d, b_d, mask_d, strm
50 integer(c_int) :: n, n_mask
54 bind(c, name =
'cuda_masked_gather_copy')
55 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
56 type(c_ptr),
value :: a_d, b_d, mask_d, strm
57 integer(c_int) :: n, n_mask
61 bind(c, name =
'cuda_masked_scatter_copy')
62 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
63 type(c_ptr),
value :: a_d, b_d, mask_d, strm
64 integer(c_int) :: n, n_mask
68 bind(c, name =
'cuda_masked_atomic_reduction')
69 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
70 type(c_ptr),
value :: a_d, b_d, mask_d, strm
71 integer(c_int) :: n, m
75 bind(c, name =
'cuda_cfill_mask')
76 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
78 type(c_ptr),
value :: a_d, strm
81 type(c_ptr),
value :: mask_d
82 integer(c_int) :: n_mask
166 bind(c, name =
'cuda_add4')
167 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
169 type(c_ptr),
value :: a_d, b_d, c_d, d_d, strm
201 bind(c, name =
'cuda_add3s2')
202 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
204 type(c_ptr),
value :: a_d, b_d, c_d, strm
280 bind(c, name =
'cuda_addcol4')
281 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
282 type(c_ptr),
value :: a_d, b_d, c_d, d_d, strm
286 subroutine cuda_vdot3(dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d, n, strm) &
287 bind(c, name =
'cuda_vdot3')
288 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
289 type(c_ptr),
value :: dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d, strm
294 w1_d, w2_d, w3_d, n, strm) &
295 bind(c, name =
'cuda_vcross')
296 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
297 type(c_ptr),
value :: u1_d, u2_d, u3_d
298 type(c_ptr),
value :: v1_d, v2_d, v3_d
299 type(c_ptr),
value :: w1_d, w2_d, w3_d
300 type(c_ptr),
value :: strm
329 bind(c, name =
'cuda_glsc3_many')
330 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
332 type(c_ptr),
value :: w_d, v_d_d, mult_d, strm
333 integer(c_int) :: j, n