}
}
+int PMPI_Comm_set_name (MPI_Comm comm, 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) {