From 7e9432ec2c941bbad50f3e8d829b9793fc411452 Mon Sep 17 00:00:00 2001 From: degomme Date: Wed, 29 Oct 2014 11:17:08 +0100 Subject: [PATCH] somehow we forgot MPI_REAL datatype C-fortran compatibility --- include/smpi/smpi.h | 1 + src/smpi/smpi_mpi_dt.c | 1 + 2 files changed, 2 insertions(+) diff --git a/include/smpi/smpi.h b/include/smpi/smpi.h index 4b96b5279f..0787fadd3c 100644 --- a/include/smpi/smpi.h +++ b/include/smpi/smpi.h @@ -221,6 +221,7 @@ XBT_PUBLIC_DATA(MPI_Datatype) MPI_2FLOAT; XBT_PUBLIC_DATA(MPI_Datatype) MPI_2DOUBLE; XBT_PUBLIC_DATA(MPI_Datatype) MPI_2LONG;//only for compatibility with Fortran +XBT_PUBLIC_DATA(MPI_Datatype) MPI_REAL; XBT_PUBLIC_DATA(MPI_Datatype) MPI_REAL4; XBT_PUBLIC_DATA(MPI_Datatype) MPI_REAL8; XBT_PUBLIC_DATA(MPI_Datatype) MPI_REAL16; diff --git a/src/smpi/smpi_mpi_dt.c b/src/smpi/smpi_mpi_dt.c index 047cf91d8d..350ee0f194 100644 --- a/src/smpi/smpi_mpi_dt.c +++ b/src/smpi/smpi_mpi_dt.c @@ -132,6 +132,7 @@ CREATE_MPI_DATATYPE(MPI_2FLOAT, float_float); CREATE_MPI_DATATYPE(MPI_2DOUBLE, double_double); CREATE_MPI_DATATYPE(MPI_2LONG, long_long); +CREATE_MPI_DATATYPE(MPI_REAL, float); CREATE_MPI_DATATYPE(MPI_REAL4, float); CREATE_MPI_DATATYPE(MPI_REAL8, float); CREATE_MPI_DATATYPE(MPI_REAL16, double); -- 2.20.1