Add forgotten MPI_Comm_f2c and MPI_Comm_c2f calls

diff --git a/include/smpi/smpi.h b/include/smpi/smpi.h
index a2db68b..379a42a 100644 (file)
--- 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_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
 
 
 //FIXME: these are not yet implemented
 

diff --git a/src/smpi/smpi_mpi.c b/src/smpi/smpi_mpi.c
index c9042a4..71d88ad 100644 (file)
--- 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);
 }
 
   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);
 }
 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 4d20502..8fc593c 100644 (file)
--- 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);
 }
 
   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. */
 
 
 /* The following calls are not yet implemented and will fail at runtime. */