adding new functions
This commit was SVN r533.
Этот коммит содержится в:
родитель
ea173de017
Коммит
f6c301f165
16
src/mpi/interface/c/type_c2f.c
Обычный файл
16
src/mpi/interface/c/type_c2f.c
Обычный файл
@ -0,0 +1,16 @@
|
|||||||
|
/*
|
||||||
|
* $HEADERS$
|
||||||
|
*/
|
||||||
|
#include "lam_config.h"
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
#include "mpi.h"
|
||||||
|
#include "mpi/interface/c/bindings.h"
|
||||||
|
|
||||||
|
#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILING_DEFINES
|
||||||
|
#pragma weak MPI_Type_c2f = PMPI_Type_c2f
|
||||||
|
#endif
|
||||||
|
|
||||||
|
MPI_Fint MPI_Type_c2f(MPI_Datatype datatype) {
|
||||||
|
return (MPI_Fint)0;
|
||||||
|
}
|
16
src/mpi/interface/c/type_f2c.c
Обычный файл
16
src/mpi/interface/c/type_f2c.c
Обычный файл
@ -0,0 +1,16 @@
|
|||||||
|
/*
|
||||||
|
* $HEADERS$
|
||||||
|
*/
|
||||||
|
#include "lam_config.h"
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
#include "mpi.h"
|
||||||
|
#include "mpi/interface/c/bindings.h"
|
||||||
|
|
||||||
|
#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILING_DEFINES
|
||||||
|
#pragma weak MPI_Type_f2c.c = PMPI_Type_f2c.c
|
||||||
|
#endif
|
||||||
|
|
||||||
|
MPI_Datatype MPI_Type_f2c(MPI_Fint datatype) {
|
||||||
|
return (MPI_Datatype)0;
|
||||||
|
}
|
Загрузка…
x
Ссылка в новой задаче
Block a user