40 строки
1.1 KiB
C
40 строки
1.1 KiB
C
|
/*
|
||
|
|
* Copyright (c) 2004-2010 The Trustees of Indiana University and Indiana
|
||
|
|
* University Research and Technology
|
||
|
|
* Corporation. All rights reserved.
|
||
|
|
* $COPYRIGHT$
|
||
|
|
*
|
||
|
|
* Additional copyrights may follow
|
||
|
|
*
|
||
|
|
* $HEADER$
|
||
|
|
*/
|
||
|
|
#include "ompi_config.h"
|
||
|
|
#include <stdio.h>
|
||
|
|
|
||
|
|
#include "ompi/mpi/c/bindings.h"
|
||
|
|
#include "opal/runtime/opal_cr.h"
|
||
|
|
#include "ompi/mpiext/cr/mpiext_cr_c.h"
|
||
|
|
|
||
|
|
#include "ompi/runtime/params.h"
|
||
|
|
#include "ompi/communicator/communicator.h"
|
||
|
|
#include "ompi/errhandler/errhandler.h"
|
||
|
|
|
||
|
|
static const char FUNC_NAME[] = "OMPI_CR_INC_register_callback";
|
||
|
|
|
||
|
|
int OMPI_CR_INC_register_callback(OMPI_CR_INC_callback_event_t event,
|
||
|
|
OMPI_CR_INC_callback_function function,
|
||
|
|
OMPI_CR_INC_callback_function *prev_function)
|
||
|
|
{
|
||
|
|
int rc;
|
||
|
|
|
||
|
|
if ( MPI_PARAM_CHECK ) {
|
||
|
|
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
|
||
|
|
}
|
||
|
|
|
||
|
|
OPAL_CR_ENTER_LIBRARY();
|
||
|
|
|
||
|
|
rc = opal_cr_user_inc_register_callback(event, function, prev_function);
|
||
|
|
|
||
|
|
OMPI_ERRHANDLER_RETURN(rc, MPI_COMM_WORLD, rc, FUNC_NAME);
|
||
|
|
}
|