Call back-end finalize function
This commit was SVN r416.
Этот коммит содержится в:
родитель
99a9183a48
Коммит
68c95d8ee9
@ -6,14 +6,16 @@
|
|||||||
|
|
||||||
#include "mpi.h"
|
#include "mpi.h"
|
||||||
#include "mpi/interface/c/bindings.h"
|
#include "mpi/interface/c/bindings.h"
|
||||||
|
#include "mpi/runtime/runtime.h"
|
||||||
|
|
||||||
#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILING_DEFINES
|
#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILING_DEFINES
|
||||||
#pragma weak MPI_Finalize = PMPI_Finalize
|
#pragma weak MPI_Finalize = PMPI_Finalize
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
int
|
int MPI_Finalize(void)
|
||||||
MPI_Finalize(void)
|
|
||||||
{
|
{
|
||||||
return MPI_SUCCESS;
|
/* Pretty simple */
|
||||||
|
|
||||||
|
return lam_mpi_finalize();
|
||||||
}
|
}
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user