47 bind(c, name =
'opencl_masked_copy')
48 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
49 type(c_ptr),
value :: a_d, b_d, mask_d, strm
50 integer(c_int) :: n, n_mask
54 bind(c, name =
'opencl_masked_gather_copy')
55 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
56 type(c_ptr),
value :: a_d, b_d, mask_d, strm
57 integer(c_int) :: n, n_mask
61 bind(c, name =
'opencl_masked_scatter_copy')
62 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
63 type(c_ptr),
value :: a_d, b_d, mask_d, strm
64 integer(c_int) :: n, n_mask
68 bind(c, name =
'opencl_cfill_mask')
69 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
71 type(c_ptr),
value :: a_d
74 type(c_ptr),
value :: mask_d
75 integer(c_int) :: n_mask
76 type(c_ptr),
value :: strm
177 bind(c, name =
'opencl_add4')
178 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
180 type(c_ptr),
value :: a_d, b_d, c_d, d_d, strm
224 bind(c, name =
'opencl_add3s2')
225 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
228 type(c_ptr),
value :: a_d, b_d, c_d, strm
234 bind(c, name =
'opencl_add4s3')
235 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
238 type(c_ptr),
value :: a_d, b_d, c_d, d_d, strm
239 real(c_rp) :: c1, c2, c3
244 c1, c2, c3, c4, n, strm) &
245 bind(c, name =
'opencl_add5s4')
246 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
249 type(c_ptr),
value :: a_d, b_d, c_d, d_d, e_d, strm
250 real(c_rp) :: c1, c2, c3, c4
327 bind(c, name =
'opencl_addcol4')
328 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
330 type(c_ptr),
value :: a_d, b_d, c_d, d_d, strm
345 bind(c, name =
'opencl_vdot3')
346 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
348 type(c_ptr),
value :: dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d
349 type(c_ptr),
value :: strm
354 w1_d, w2_d, w3_d, n, strm) &
355 bind(c, name =
'opencl_vcross')
356 use,
intrinsic :: iso_c_binding, only: c_int, c_ptr
357 type(c_ptr),
value :: u1_d, u2_d, u3_d
358 type(c_ptr),
value :: v1_d, v2_d, v3_d
359 type(c_ptr),
value :: w1_d, w2_d, w3_d
360 type(c_ptr),
value :: strm
374 bind(c, name =
'opencl_glsc3_many')
375 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
378 integer(c_int) :: j, n
379 type(c_ptr),
value :: w_d, v_d_d, mult_d, strm