--- branches/development/src/utils/simError.c 2011/11/22 20:38:56 1665 +++ trunk/src/utils/simError.cpp 2013/06/16 15:15:42 1879 @@ -35,7 +35,7 @@ * * [1] Meineke, et al., J. Comp. Chem. 26, 252-271 (2005). * [2] Fennell & Gezelter, J. Chem. Phys. 124, 234104 (2006). - * [3] Sun, Lin & Gezelter, J. Chem. Phys. 128, 24107 (2008). + * [3] Sun, Lin & Gezelter, J. Chem. Phys. 128, 234107 (2008). * [4] Kuang & Gezelter, J. Chem. Phys. 133, 164101 (2010). * [5] Vardeman, Stocker & Gezelter, J. Chem. Theory Comput. 7, 834 (2011). */ @@ -64,7 +64,7 @@ void initSimError( void ){ painCave.isEventLoop = 0; nChecks = 0; #ifdef IS_MPI - MPI_Comm_rank( MPI_COMM_WORLD, &worldRank ); + worldRank = MPI::COMM_WORLD.Get_rank(); #else worldRank = 0; #endif @@ -72,10 +72,13 @@ int simError( void ) { int simError( void ) { + char errorMsg[MAX_SIM_ERROR_MSG_LENGTH]; + +#ifdef IS_MPI int myError = 1; int isError; - char errorMsg[MAX_SIM_ERROR_MSG_LENGTH]; char nodeMsg[MAX_SIM_ERROR_MSG_LENGTH]; +#endif strcpy(errorMsg, "OpenMD "); switch( painCave.severity ) { @@ -115,36 +118,33 @@ int simError( void ) { if (painCave.isFatal) { #ifdef IS_MPI - MPI_Allreduce( &myError, &isError, 1, MPI_INT, MPI_LOR, MPI_COMM_WORLD ); - MPI_Finalize(); + MPI::COMM_WORLD.Allreduce(&myError, &isError, 1, MPI::INT, MPI::LOR); + MPI::Finalize(); #endif exit(0); - } - + } return 1; } - + void errorCheckPoint( void ){ - + int myError = 0; int isError = 0; - + #ifdef IS_MPI - MPI_Allreduce( &myError, &isError, 1, MPI_INT, MPI_LOR, MPI_COMM_WORLD ); + MPI::COMM_WORLD.Allreduce(&myError, &isError, 1, MPI::INT, MPI::LOR); #else isError = myError; #endif - - if( isError ){ - + + if( isError ){ #ifdef IS_MPI - MPI_Finalize(); -#endif - + MPI::Finalize(); +#endif exit(0); } - + #ifdef CHECKPOINT_VERBOSE nChecks++;