c_dot_product Interface

interface
public subroutine c_dot_product(x, y, n, ret) bind(C, Name='c_dot_product')

Arguments

Type IntentOptional Attributes Name
real(kind=c_double), intent(in) :: x(1:n)
real(kind=c_double), intent(in) :: y(1:n)
integer(kind=c_size_t), Value :: n
real(kind=c_double) :: ret(1)