--- trunk/OOPSE/libmdtools/InitializeFromFile.cpp 2003/04/01 16:49:17 440 +++ trunk/OOPSE/libmdtools/InitializeFromFile.cpp 2003/04/03 20:21:54 447 @@ -13,7 +13,6 @@ #ifdef IS_MPI #include -#include #include "mpiSimulation.hpp" #define TAKE_THIS_TAG_CHAR 0 #define TAKE_THIS_TAG_INT 1 @@ -154,7 +153,7 @@ void InitializeFromFile :: read_xyz( SimInfo* the_entr int myStatus; // 1 = wakeup & success; 0 = error; -1 = AllDone int haveError; - MPI::Status istatus; + MPI_Status istatus; int *AtomToProcMap = mpiSim->getAtomToProcMap(); @@ -228,20 +227,22 @@ void InitializeFromFile :: read_xyz( SimInfo* the_entr else { myStatus = 1; - MPI::COMM_WORLD.Send(&myStatus, 1, MPI_INT, which_node, - TAKE_THIS_TAG_INT); - MPI::COMM_WORLD.Send(read_buffer, BUFFERSIZE, MPI_CHAR, which_node, - TAKE_THIS_TAG_CHAR); - MPI::COMM_WORLD.Send(&i, 1, MPI_INT, which_node, TAKE_THIS_TAG_INT); - MPI::COMM_WORLD.Recv(&myStatus, 1, MPI_INT, which_node, TAKE_THIS_TAG_INT, istatus); + MPI_Send(&myStatus, 1, MPI_INT, which_node, + TAKE_THIS_TAG_INT, MPI_COMM_WORLD); + MPI_Send(read_buffer, BUFFERSIZE, MPI_CHAR, which_node, + TAKE_THIS_TAG_CHAR, MPI_COMM_WORLD); + MPI_Send(&i, 1, MPI_INT, which_node, TAKE_THIS_TAG_INT, + MPI_COMM_WORLD); + MPI_Recv(&myStatus, 1, MPI_INT, which_node, TAKE_THIS_TAG_INT, + MPI_COMM_WORLD, &istatus); if(!myStatus) nodeZeroError(); } } myStatus = -1; for (j = 0; j < mpiSim->getNumberProcessors(); j++) { - MPI::COMM_WORLD.Send( &myStatus, 1, MPI_INT, j, - TAKE_THIS_TAG_INT); + MPI_Send( &myStatus, 1, MPI_INT, j, + TAKE_THIS_TAG_INT, MPI_COMM_WORLD); } } else { @@ -249,17 +250,17 @@ void InitializeFromFile :: read_xyz( SimInfo* the_entr done = 0; while (!done) { - MPI::COMM_WORLD.Recv(&myStatus, 1, MPI_INT, 0, - TAKE_THIS_TAG_INT, istatus); + MPI_Recv(&myStatus, 1, MPI_INT, 0, + TAKE_THIS_TAG_INT, MPI_COMM_WORLD, &istatus); if(!myStatus) anonymousNodeDie(); if(myStatus < 0) break; - MPI::COMM_WORLD.Recv(read_buffer, BUFFERSIZE, MPI_CHAR, 0, - TAKE_THIS_TAG_CHAR, istatus); - MPI::COMM_WORLD.Recv(&which_atom, 1, MPI_INT, 0, - TAKE_THIS_TAG_INT, istatus); + MPI_Recv(read_buffer, BUFFERSIZE, MPI_CHAR, 0, + TAKE_THIS_TAG_CHAR, MPI_COMM_WORLD, &istatus); + MPI_Recv(&which_atom, 1, MPI_INT, 0, + TAKE_THIS_TAG_INT, MPI_COMM_WORLD, &istatus); myStatus = 1; parseErr = parseDumpLine( read_buffer, which_atom ); @@ -269,8 +270,8 @@ void InitializeFromFile :: read_xyz( SimInfo* the_entr simError(); } - MPI::COMM_WORLD.Send( &myStatus, 1, MPI_INT, 0, - TAKE_THIS_TAG_INT); + MPI_Send( &myStatus, 1, MPI_INT, 0, + TAKE_THIS_TAG_INT, MPI_COMM_WORLD); } } @@ -515,8 +516,8 @@ void initFile::nodeZeroError( void ){ myStatus = 0; for (j = 0; j < mpiSim->getNumberProcessors(); j++) { - MPI::COMM_WORLD.Send( &myStatus, 1, MPI_INT, j, - TAKE_THIS_TAG_INT); + MPI_Send( &myStatus, 1, MPI_INT, j, + TAKE_THIS_TAG_INT, MPI_COMM_WORLD); }