ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@5647 f3b2605a-c512-4ea7-a41b-209d697bcdaa

Browse Source
This commit is contained in:
sjplimp
2011-02-15 19:32:16 +00:00
parent 8b7754f68a
commit d40626d7a7
2 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/STUBS/mpi.cpp
View File

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

4
src/STUBS/mpi.h
View File

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