182 bind(c, name =
'hip_add3s2')
183 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
186 type(c_ptr),
value :: a_d, b_d, c_d
271 subroutine hip_vdot3(dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d, n) &
272 bind(c, name =
'hip_vdot3')
273 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
275 type(c_ptr),
value :: dot_d, u1_d, u2_d, u3_d, v1_d, v2_d, v3_d
280 w1_d, w2_d, w3_d, n) &
281 bind(c, name =
'hip_vcross')
282 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
284 type(c_ptr),
value :: u1_d, u2_d, u3_d
285 type(c_ptr),
value :: v1_d, v2_d, v3_d
286 type(c_ptr),
value :: w1_d, w2_d, w3_d
309 bind(c, name =
'hip_glsc3_many')
310 use,
intrinsic :: iso_c_binding, only: c_ptr, c_int
313 type(c_ptr),
value :: w_d, v_d_d, mult_d
314 integer(c_int) :: j, n