From d40626d7a76c20ab69cdc000d9f9cac065f1991f Mon Sep 17 00:00:00 2001
From: sjplimp <sjplimp@f3b2605a-c512-4ea7-a41b-209d697bcdaa>
Date: Tue, 15 Feb 2011 19:32:16 +0000
Subject: [PATCH] git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@5647
 f3b2605a-c512-4ea7-a41b-209d697bcdaa

---
 src/STUBS/mpi.cpp | 17 +++++++++++++++++
 src/STUBS/mpi.h   |  4 ++++
 2 files changed, 21 insertions(+)

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);