+void smpi_comm_get_name (MPI_Comm comm, char* name, int* len)
+{
+ if (comm == MPI_COMM_UNINITIALIZED)
+ comm = smpi_process_comm_world();
+ if(comm == MPI_COMM_WORLD) {
+ strcpy(name, "WORLD");
+ *len = 5;
+ } else {
+ *len = snprintf(name, MPI_MAX_NAME_STRING, "%p", comm);
+ }
+}
+