diff --git a/src/STUBS/mpi.cpp b/src/STUBS/mpi.cpp index a0333a9c85..3a949d294d 100644 --- a/src/STUBS/mpi.cpp +++ b/src/STUBS/mpi.cpp @@ -51,6 +51,23 @@ int MPI_Initialized(int *flag) /* ---------------------------------------------------------------------- */ +/* Returns "localhost" as the name of the processor */ + +void MPI_Get_processor_name(char *name, int *resultlen) +{ + const char host[] = "localhost"; + int len; + + if (!name || !resultlen) return; + + len = strlen(host); + memcpy(name,host,len+1); + *resultlen = len; + return; +} + +/* ---------------------------------------------------------------------- */ + int MPI_Comm_rank(MPI_Comm comm, int *me) { *me = 0; diff --git a/src/STUBS/mpi.h b/src/STUBS/mpi.h index 7104993f5a..4a4ce5644e 100644 --- a/src/STUBS/mpi.h +++ b/src/STUBS/mpi.h @@ -42,6 +42,8 @@ #define MPI_Datatype int #define MPI_Op int +#define MPI_MAX_PROCESSOR_NAME 128 + /* MPI data structs */ struct MPI_Status { @@ -52,6 +54,8 @@ struct MPI_Status { int MPI_Init(int *argc, char ***argv); int MPI_Initialized(int *flag); +void MPI_Get_processor_name(char *name, int *resultlen); + int MPI_Comm_rank(MPI_Comm comm, int *me); int MPI_Comm_size(MPI_Comm comm, int *nprocs); int MPI_Abort(MPI_Comm comm, int errorcode);