-/* Copyright (c) 2007-2018. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2007-2019. The SimGrid Team. All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
#include "private.hpp"
#include "smpi_comm.hpp"
+#include "smpi_info.hpp"
#include "src/smpi/include/smpi_actor.hpp"
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(smpi_pmpi);
}
}
+int PMPI_Comm_set_name (MPI_Comm comm, const char* name)
+{
+ if (comm == MPI_COMM_NULL) {
+ return MPI_ERR_COMM;
+ } else if (name == nullptr) {
+ return MPI_ERR_ARG;
+ } else {
+ comm->set_name(name);
+ return MPI_SUCCESS;
+ }
+}
+
int PMPI_Comm_group(MPI_Comm comm, MPI_Group * group)
{
if (comm == MPI_COMM_NULL) {
}
}
+int PMPI_Comm_dup_with_info(MPI_Comm comm, MPI_Info info, MPI_Comm * newcomm)
+{
+ if (comm == MPI_COMM_NULL) {
+ return MPI_ERR_COMM;
+ } else if (newcomm == nullptr) {
+ return MPI_ERR_ARG;
+ } else {
+ comm->dup_with_info(info, newcomm);
+ return MPI_SUCCESS;
+ }
+}
+
int PMPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm * newcomm)
{
if (comm == MPI_COMM_NULL) {
return PMPI_Attr_put(comm, comm_keyval, attribute_val);
}
+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;
+ }
+}
+
int PMPI_Comm_delete_attr (MPI_Comm comm, int comm_keyval)
{
return PMPI_Attr_delete(comm, comm_keyval);