R/ddot.R

#' dot product of two vectors
#' 
#' @export
dot_prod <- function(x, y){
  .Call("ddotR",
        as.integer(length(x)),
        as.numeric(x),
        as.numeric(y),
        PACKAGE = "dpOMP")
}
emittman/dpOMP documentation built on May 16, 2019, 5:09 a.m.