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@13931 f3b2605a-c512-4ea7-a41b-209d697bcdaa

Browse Source
This commit is contained in:
sjplimp
2015-08-21 22:55:12 +00:00
parent 63534501c2
commit 3841dd58ca
35 changed files with 140 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/STUBS/mpi.c
View File

@ -77,17 +77,30 @@ int MPI_Finalized(int *flag)
/* return "localhost" as name of the processor */
void MPI_Get_processor_name(char *name, int *resultlen)
int MPI_Get_processor_name(char *name, int *resultlen)
{
const char host[] = "localhost";
int len;
if (!name || !resultlen) return;
if (!name || !resultlen) return MPI_ERR_ARG;
len = strlen(host);
memcpy(name,host,len+1);
*resultlen = len;
return;
return MPI_SUCCESS;
}
/* ---------------------------------------------------------------------- */
/* return MPI version level. v1.2 is not 100% correct, but close enough */
int MPI_Get_version(int *major, int *minor)
{
if (!major || !minor) return MPI_ERR_ARG;
*major = 1;
*minor = 2;
return MPI_SUCCESS;
}
/* ---------------------------------------------------------------------- */