1
1
- op init and finalize
- ddt finalize
- comm finalize

This commit was SVN r1062.
Этот коммит содержится в:
Jeff Squyres 2004-04-20 22:38:22 +00:00
родитель 585aab46b7
Коммит 8991c661c0
2 изменённых файлов: 24 добавлений и 0 удалений

Просмотреть файл

@ -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 */