+int PMPI_Comm_get_info(MPI_Comm comm, MPI_Info* info)
+{
+ if (comm == MPI_COMM_NULL) {
+ return MPI_ERR_WIN;
+ } else {
+ *info = comm->info();
+ return MPI_SUCCESS;
+ }
+}
+
+int PMPI_Comm_set_info(MPI_Comm comm, MPI_Info info)
+{
+ if (comm == MPI_COMM_NULL) {
+ return MPI_ERR_TYPE;
+ } else {
+ comm->set_info(info);
+ return MPI_SUCCESS;
+ }
+}
+