Add calls to
- op init and finalize - ddt finalize - comm finalize This commit was SVN r1062.
Этот коммит содержится в:
родитель
585aab46b7
Коммит
8991c661c0
@ -9,6 +9,9 @@
|
||||
#include "mpi.h"
|
||||
#include "group/group.h"
|
||||
#include "errhandler/errhandler.h"
|
||||
#include "communicator/communicator.h"
|
||||
#include "datatype/datatype.h"
|
||||
#include "op/op.h"
|
||||
#include "runtime/runtime.h"
|
||||
#include "mca/base/base.h"
|
||||
#include "mca/ptl/ptl.h"
|
||||
@ -51,6 +54,21 @@ int lam_mpi_finalize(void)
|
||||
|
||||
/* Leave LAM */
|
||||
|
||||
/* free op resources */
|
||||
if (LAM_SUCCESS != (ret = lam_op_finalize())) {
|
||||
return ret;
|
||||
}
|
||||
|
||||
/* free ddt resources */
|
||||
if (LAM_SUCCESS != (ret = lam_ddt_finalize())) {
|
||||
return ret;
|
||||
}
|
||||
|
||||
/* free communicator resources */
|
||||
if (LAM_SUCCESS != (ret = lam_comm_finalize())) {
|
||||
return ret;
|
||||
}
|
||||
|
||||
/* free group resources */
|
||||
if (LAM_SUCCESS != (ret = lam_group_finalize())) {
|
||||
return ret;
|
||||
|
@ -11,6 +11,7 @@
|
||||
#include "communicator/communicator.h"
|
||||
#include "group/group.h"
|
||||
#include "errhandler/errhandler.h"
|
||||
#include "op/op.h"
|
||||
#include "mca/base/base.h"
|
||||
#include "mca/base/base.h"
|
||||
#include "mca/ptl/ptl.h"
|
||||
@ -117,6 +118,11 @@ int lam_mpi_init(int argc, char **argv, int requested, int *provided)
|
||||
return ret;
|
||||
}
|
||||
|
||||
/* initialize ops */
|
||||
if (LAM_SUCCESS != (ret = lam_op_init())) {
|
||||
return ret;
|
||||
}
|
||||
|
||||
/* If we have run-time MPI parameter checking possible, register
|
||||
an MCA paramter to find out if the user wants it on or off by
|
||||
default */
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user