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

Browse Source
This commit is contained in:
sjplimp
2014-07-30 14:30:42 +00:00
parent c5b40aaa90
commit 24c9982406
2 changed files with 38 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
src/STUBS/mpi.c
View File

@ -37,17 +37,39 @@ MPI_Datatype *ptr_datatype[MAXEXTRA_DATATYPE];
int index_datatype[MAXEXTRA_DATATYPE];
int size_datatype[MAXEXTRA_DATATYPE];
static int _mpi_is_initialized=0;
/* ---------------------------------------------------------------------- */
/* MPI Functions */
/* ---------------------------------------------------------------------- */
int MPI_Init(int *argc, char ***argv) {return 0;}
int MPI_Init(int *argc, char ***argv)
{
if (_mpi_is_initialized > 0) {
printf("MPI Stub WARNING: MPI already initialized\n");
return 1;
}
if (_mpi_is_initialized < 0) {
printf("MPI Stub WARNING: MPI already finalized\n");
return 1;
}
_mpi_is_initialized = 1;
return 0;
}
/* ---------------------------------------------------------------------- */
int MPI_Initialized(int *flag)
{
*flag = 1;
*flag = (_mpi_is_initialized > 0) ? 1 : 0;
return 0;
}
/* ---------------------------------------------------------------------- */
int MPI_Finalized(int *flag)
{
*flag = (_mpi_is_initialized < 0) ? 1 : 0;
return 0;
}
@ -94,7 +116,19 @@ int MPI_Abort(MPI_Comm comm, int errorcode)
/* ---------------------------------------------------------------------- */
int MPI_Finalize() {return 0;}
int MPI_Finalize()
{
if (_mpi_is_initialized == 0) {
printf("MPI Stub WARNING: MPI not yet initialized\n");
return 1;
}
if (_mpi_is_initialized < 0) {
printf("MPI Stub WARNING: MPI already finalized\n");
return 1;
}
_mpi_is_initialized = -1;
return 0;
}
/* ---------------------------------------------------------------------- */