| 46 |
|
|
| 47 |
|
#include "io/ZConsWriter.hpp" |
| 48 |
|
#include "utils/simError.h" |
| 49 |
+ |
#ifdef IS_MPI |
| 50 |
+ |
#include <mpi.h> |
| 51 |
+ |
#endif |
| 52 |
|
|
| 50 |
– |
|
| 53 |
|
namespace oopse { |
| 54 |
|
ZConsWriter::ZConsWriter(SimInfo* info, const std::string& filename) : info_(info) { |
| 55 |
|
//use master - slave mode, only master node writes to disk |
| 112 |
|
|
| 113 |
|
MPI_Status ierr; |
| 114 |
|
int zmolIndex; |
| 115 |
< |
double data[3]; |
| 115 |
> |
RealType data[3]; |
| 116 |
|
|
| 117 |
|
if (masterNode == 0) { |
| 118 |
|
|
| 132 |
|
} else { |
| 133 |
|
for(int k =0 ; k < nFixedZmolsInProc[i]; ++k) { |
| 134 |
|
MPI_Recv(&zmolIndex, 1, MPI_INT, i, 0, MPI_COMM_WORLD,&ierr); |
| 135 |
< |
MPI_Recv(data, 3, MPI_DOUBLE, i, 0, MPI_COMM_WORLD,&ierr); |
| 135 |
> |
MPI_Recv(data, 3, MPI_REALTYPE, i, 0, MPI_COMM_WORLD,&ierr); |
| 136 |
|
tmpData.zmolIndex = zmolIndex; |
| 137 |
|
tmpData.zforce= data[0]; |
| 138 |
|
tmpData.zpos = data[1]; |
| 161 |
|
data[1] = j->zpos; |
| 162 |
|
data[2] = j->param.zTargetPos; |
| 163 |
|
MPI_Send(&zmolIndex, 1, MPI_INT, masterNode, 0, MPI_COMM_WORLD); |
| 164 |
< |
MPI_Send(data, 3, MPI_DOUBLE, masterNode, 0, MPI_COMM_WORLD); |
| 164 |
> |
MPI_Send(data, 3, MPI_REALTYPE, masterNode, 0, MPI_COMM_WORLD); |
| 165 |
|
|
| 166 |
|
} |
| 167 |
|
} |
