root/ompi/mpiext/cr/c/inc_register_callback.c

DEFINITIONS

1. OMPI_CR_INC_register_callback

   1 /*
   2  * Copyright (c) 2004-2010 The Trustees of Indiana University and Indiana
   3  *                         University Research and Technology
   4  *                         Corporation.  All rights reserved.
   5  * Copyright (c) 2012 Cisco Systems, Inc.  All rights reserved.
   6  * $COPYRIGHT$
   7  *
   8  * Additional copyrights may follow
   9  *
  10  * $HEADER$
  11  */
  12 #include "ompi_config.h"
  13 #include <stdio.h>
  14 
  15 #include "ompi/mpi/c/bindings.h"
  16 #include "opal/runtime/opal_cr.h"
  17 #include "ompi/mpiext/cr/c/mpiext_cr_c.h"
  18 
  19 #include "ompi/runtime/params.h"
  20 #include "ompi/communicator/communicator.h"
  21 #include "ompi/errhandler/errhandler.h"
  22 
  23 static const char FUNC_NAME[] = "OMPI_CR_INC_register_callback";
  24 
  25 int OMPI_CR_INC_register_callback(OMPI_CR_INC_callback_event_t event,
  26                                   OMPI_CR_INC_callback_function function,
  27                                   OMPI_CR_INC_callback_function *prev_function)
  28 {
  29     int rc;
  30 
  31     if ( MPI_PARAM_CHECK ) {
  32         OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
  33     }
  34 
  35     OPAL_CR_ENTER_LIBRARY();
  36 
  37     rc = opal_cr_user_inc_register_callback(event, function, prev_function);
  38 
  39     OMPI_ERRHANDLER_RETURN(rc, MPI_COMM_WORLD, rc, FUNC_NAME);
  40 }