--- trunk/OOPSE/libmdtools/ZConsWriter.cpp 2003/09/02 14:30:12 738 +++ trunk/OOPSE/libmdtools/ZConsWriter.cpp 2003/10/28 16:20:28 830 @@ -86,7 +86,7 @@ void ZConsWriter::writeFZ(double time, int num, int* i int *MolToProcMap; MolToProcMap = mpiSim->getMolToProcMap(); - for(int i = 0; i < parameters->size(); i++){ + for(int i = 0; i < (int)(parameters->size()); i++){ globalIndexOfCurMol = (*parameters)[i].zconsIndex; whichNode = MolToProcMap[globalIndexOfCurMol]; @@ -107,8 +107,8 @@ void ZConsWriter::writeFZ(double time, int num, int* i status = RequesPosAndForce; MPI_Send(&status, 1, MPI_INT, whichNode, tag, MPI_COMM_WORLD); MPI_Send(&globalIndexOfCurMol, 1, MPI_INT, whichNode, tag, MPI_COMM_WORLD); - MPI_Recv(&force, 1, MPI_DOUBLE_PRECISION, whichNode, tag, MPI_COMM_WORLD, &ierr); - MPI_Recv(&pos, 1, MPI_DOUBLE_PRECISION, whichNode, tag, MPI_COMM_WORLD, &ierr); + MPI_Recv(&force, 1, MPI_DOUBLE, whichNode, tag, MPI_COMM_WORLD, &ierr); + MPI_Recv(&pos, 1, MPI_DOUBLE, whichNode, tag, MPI_COMM_WORLD, &ierr); } output << globalIndexOfCurMol << "\t" << force << "\t" << pos << endl; @@ -142,8 +142,8 @@ void ZConsWriter::writeFZ(double time, int num, int* i break; } - MPI_Send(&fz[localIndex], 1, MPI_DOUBLE_PRECISION, 0, tag, MPI_COMM_WORLD); - MPI_Send(&curZPos[localIndex], 1, MPI_DOUBLE_PRECISION, 0, tag, MPI_COMM_WORLD); + MPI_Send(&fz[localIndex], 1, MPI_DOUBLE, 0, tag, MPI_COMM_WORLD); + MPI_Send(&curZPos[localIndex], 1, MPI_DOUBLE, 0, tag, MPI_COMM_WORLD); break; case EndOfRequest : @@ -171,7 +171,7 @@ void ZConsWriter::writeZPos(){ output << parameters->size() << endl; - for(int i =0 ; i < parameters->size(); i++) + for(int i =0 ; i < (int)(parameters->size()); i++) output << (*parameters)[i].zconsIndex << "\t" << (*parameters)[i].zPos << endl; #ifdef IS_MPI