Shut down properly; ensure to call mca_base_close() to close out MCA
This commit was SVN r607.
Этот коммит содержится в:
родитель
38cc1daf72
Коммит
9958416dda
@ -8,8 +8,11 @@
|
|||||||
#include "lam/runtime/runtime.h"
|
#include "lam/runtime/runtime.h"
|
||||||
#include "mpi.h"
|
#include "mpi.h"
|
||||||
#include "mpi/runtime/runtime.h"
|
#include "mpi/runtime/runtime.h"
|
||||||
|
#include "mca/lam/base/base.h"
|
||||||
#include "mca/mpi/ptl/ptl.h"
|
#include "mca/mpi/ptl/ptl.h"
|
||||||
|
#include "mca/mpi/ptl/base/base.h"
|
||||||
#include "mca/mpi/pml/pml.h"
|
#include "mca/mpi/pml/pml.h"
|
||||||
|
#include "mca/mpi/pml/base/base.h"
|
||||||
|
|
||||||
|
|
||||||
int lam_mpi_finalize(void)
|
int lam_mpi_finalize(void)
|
||||||
@ -34,6 +37,12 @@ int lam_mpi_finalize(void)
|
|||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Close down the MCA */
|
||||||
|
|
||||||
|
if (LAM_SUCCESS != (ret = mca_base_close())) {
|
||||||
|
return ret;
|
||||||
|
}
|
||||||
|
|
||||||
/* Leave LAM */
|
/* Leave LAM */
|
||||||
|
|
||||||
if (LAM_SUCCESS != (ret = lam_finalize())) {
|
if (LAM_SUCCESS != (ret = lam_finalize())) {
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user