From: Augustin Degomme <augustin.degomme@imag.fr>
Date: Mon, 29 Sep 2014 15:34:52 +0000 (+0200)
Subject: Add forgotten MPI_Comm_f2c and MPI_Comm_c2f calls
X-Git-Tag: v3_12~785
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/8bf0017d9fcae55ad9fd1ca987d036c2cfbc9c29?ds=sidebyside

Add forgotten MPI_Comm_f2c and MPI_Comm_c2f calls
---

diff --git a/include/smpi/smpi.h b/include/smpi/smpi.h
index a2db68b8d3..379a42aa58 100644
--- a/include/smpi/smpi.h
+++ b/include/smpi/smpi.h
@@ -588,7 +588,8 @@ MPI_CALL(XBT_PUBLIC(MPI_Win), MPI_Win_f2c,(MPI_Fint win));
 MPI_CALL(XBT_PUBLIC(MPI_Fint), MPI_Win_c2f,(MPI_Win win));
 MPI_CALL(XBT_PUBLIC(MPI_Op), MPI_Op_f2c,(MPI_Fint op));
 MPI_CALL(XBT_PUBLIC(MPI_Fint), MPI_Op_c2f,(MPI_Op op));
-
+MPI_CALL(XBT_PUBLIC(MPI_Comm), MPI_Comm_f2c,(MPI_Fint comm));
+MPI_CALL(XBT_PUBLIC(MPI_Fint), MPI_Comm_c2f,(MPI_Comm comm));
 
 //FIXME: these are not yet implemented
 
diff --git a/src/smpi/smpi_mpi.c b/src/smpi/smpi_mpi.c
index c9042a45c4..71d88ade3f 100644
--- a/src/smpi/smpi_mpi.c
+++ b/src/smpi/smpi_mpi.c
@@ -1101,6 +1101,14 @@ MPI_Fint MPI_Op_c2f(MPI_Op op){
   return PMPI_Op_c2f(op);
 }
 
+MPI_Comm MPI_Comm_f2c(MPI_Fint comm){
+  return PMPI_Comm_f2c(comm);
+}
+
+MPI_Fint MPI_Comm_c2f(MPI_Comm comm){
+  return PMPI_Comm_c2f(comm);
+}
+
 MPI_Info MPI_Info_f2c(MPI_Fint info){
   return PMPI_Info_f2c(info);
 }
diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c
index 4d20502f2e..8fc593c7f2 100644
--- a/src/smpi/smpi_pmpi.c
+++ b/src/smpi/smpi_pmpi.c
@@ -2938,6 +2938,13 @@ MPI_Fint PMPI_Op_c2f(MPI_Op op){
   return smpi_op_c2f(op);
 }
 
+MPI_Comm PMPI_Comm_f2c(MPI_Fint comm){
+  return smpi_comm_f2c(comm);
+}
+
+MPI_Fint PMPI_Comm_c2f(MPI_Comm comm){
+  return smpi_comm_c2f(comm);
+}
 
 
 /* The following calls are not yet implemented and will fail at runtime. */