R/pkg_tools.r

In pbdMPI: R Interface to MPI for HPC Clusters (Programming with Big Data Project)

### This contains some tools in "src/pkg_tools.c"

get.mpi.comm.ptr <- function(comm = .pbd_env$SPMD.CT$comm, show.msg = FALSE){
  ret <- .Call("get_MPI_COMM_PTR", as.integer(comm), as.integer(show.msg),
               PACKAGE = "pbdMPI")
  return(invisible(ret))
} # get.mpi.comm.ptr().

addr.mpi.comm.ptr <- function(comm.ptr){
  if(inherits(comm.ptr, "externalptr")){
    ret <- .Call("addr_MPI_COMM_PTR", comm.ptr,
                 PACKAGE = "pbdMPI")
    return(invisible(ret))
  } else{
    stop("comm.ptr needs to be an external point from get.mpi.comm.ptr().") 
  }
} # addr.mpi.comm.ptr().