R/device_query.R

In yuanli22/RCUDA: GPU Enabled BLAS, LAPACK, Statistical Functions and Random Number Generators

#' gpuquery
#'  
#' This function returns the information of available GPU device in system
#' @seealso \code{\link{creategpu}} 
#' @export
#' @examples
#' gpuquery()

gpuquery <- function()
{
    ext <- .Call(
                "devicequery",
		  PACKAGE = "supplement"
              )
}