47 bind(c, name =
'hip_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 =
'hip_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 =
'hip_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 =
'hip_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 =
'hip_cfill_mask')
76 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
78 type(c_ptr),
value :: a_d
81 type(c_ptr),
value :: mask_d
82 integer(c_int) :: n_mask
83 type(c_ptr),
value :: strm
167 bind(c, name =
'hip_add4')
168 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
170 type(c_ptr),
value :: a_d, b_d, c_d, d_d, strm
202 bind(c, name =
'hip_add3s2')
203 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
205 type(c_ptr),
value :: a_d, b_d, c_d, strm
210 subroutine hip_add4s3(a_d, b_d, c_d, d_d, c1, c2, c3, n, strm) &
211 bind(c, name =
'hip_add4s3')
212 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
214 type(c_ptr),
value :: a_d, b_d, c_d, d_d, strm
215 real(c_rp) :: c1, c2, c3
219 subroutine hip_add5s4(a_d, b_d, c_d, d_d, e_d, c1, c2, c3, c4, n, strm) &
220 bind(c, name =
'hip_add5s4')
221 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
223 type(c_ptr),
value :: a_d, b_d, c_d, d_d, e_d, strm
224 real(c_rp) :: c1, c2, c3, c4
299 bind(c, name =
'hip_addcol4')
300 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
301 type(c_ptr),
value :: a_d, b_d, c_d, d_d, strm
314 subroutine hip_vdot3(dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d, n, strm) &
315 bind(c, name =
'hip_vdot3')
316 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
317 type(c_ptr),
value :: dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d, strm
322 w1_d, w2_d, w3_d, n, strm) &
323 bind(c, name =
'hip_vcross')
324 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
326 type(c_ptr),
value :: u1_d, u2_d, u3_d
327 type(c_ptr),
value :: v1_d, v2_d, v3_d
328 type(c_ptr),
value :: w1_d, w2_d, w3_d
329 type(c_ptr),
value :: strm
358 bind(c, name =
'hip_glsc3_many')
359 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
361 type(c_ptr),
value :: w_d, v_d_d, mult_d, strm
362 integer(c_int) :: j, n