Open/close the RTE framework
cmr=v1.7.4:reviewer=hjelmn This commit was SVN r30270.
Этот коммит содержится в:
родитель
4481eb2a17
Коммит
e7710873a1
@ -16,6 +16,7 @@
|
||||
* Copyright (c) 2006 University of Houston. All rights reserved.
|
||||
* Copyright (c) 2009 Sun Microsystems, Inc. All rights reserved.
|
||||
* Copyright (c) 2011 Sandia National Laboratories. All rights reserved.
|
||||
* Copyright (c) 2014 Intel, Inc. All rights reserved.
|
||||
*
|
||||
* $COPYRIGHT$
|
||||
*
|
||||
@ -63,6 +64,7 @@
|
||||
#include "ompi/mca/osc/base/base.h"
|
||||
#include "ompi/mca/coll/base/base.h"
|
||||
#include "ompi/mca/rte/rte.h"
|
||||
#include "ompi/mca/rte/base/base.h"
|
||||
#include "ompi/mca/topo/base/base.h"
|
||||
#include "ompi/mca/io/io.h"
|
||||
#include "ompi/mca/io/base/base.h"
|
||||
@ -409,6 +411,12 @@ int ompi_mpi_finalize(void)
|
||||
return ret;
|
||||
}
|
||||
|
||||
/* now close the rte framework */
|
||||
if (OMPI_SUCCESS != (ret = mca_base_framework_close(&ompi_rte_base_framework) ) ) {
|
||||
OMPI_ERROR_LOG(ret);
|
||||
return ret;
|
||||
}
|
||||
|
||||
if (OPAL_SUCCESS != (ret = opal_finalize_util())) {
|
||||
return ret;
|
||||
}
|
||||
|
@ -15,6 +15,7 @@
|
||||
* Copyright (c) 2006-2009 University of Houston. All rights reserved.
|
||||
* Copyright (c) 2008-2009 Sun Microsystems, Inc. All rights reserved.
|
||||
* Copyright (c) 2011 Sandia National Laboratories. All rights reserved.
|
||||
* Copyright (c) 2014 Intel, Inc. All rights reserved.
|
||||
*
|
||||
* $COPYRIGHT$
|
||||
*
|
||||
@ -77,6 +78,7 @@
|
||||
#include "ompi/mca/io/io.h"
|
||||
#include "ompi/mca/io/base/base.h"
|
||||
#include "ompi/mca/rte/rte.h"
|
||||
#include "ompi/mca/rte/base/base.h"
|
||||
#include "ompi/debuggers/debuggers.h"
|
||||
#include "ompi/proc/proc.h"
|
||||
#include "ompi/mca/pml/base/pml_base_bsend.h"
|
||||
@ -452,6 +454,13 @@ int ompi_mpi_init(int argc, char **argv, int requested, int *provided)
|
||||
putenv(av);
|
||||
}
|
||||
|
||||
/* open the rte framework */
|
||||
if (OMPI_SUCCESS != (ret = mca_base_framework_open(&ompi_rte_base_framework, 0))) {
|
||||
error = "ompi_rte_base_open() failed";
|
||||
goto error;
|
||||
}
|
||||
/* no select is required as this is a static framework */
|
||||
|
||||
/* Setup RTE - note that we are an MPI process */
|
||||
if (OMPI_SUCCESS != (ret = ompi_rte_init(NULL, NULL))) {
|
||||
error = "ompi_mpi_init: ompi_rte_init failed";
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user