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
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);
}
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. */