110 |
|
|
111 |
|
MPI_Status ierr; |
112 |
|
int zmolIndex; |
113 |
< |
double data[3]; |
113 |
> |
RealType data[3]; |
114 |
|
|
115 |
|
if (masterNode == 0) { |
116 |
|
|
130 |
|
} else { |
131 |
|
for(int k =0 ; k < nFixedZmolsInProc[i]; ++k) { |
132 |
|
MPI_Recv(&zmolIndex, 1, MPI_INT, i, 0, MPI_COMM_WORLD,&ierr); |
133 |
< |
MPI_Recv(data, 3, MPI_DOUBLE, i, 0, MPI_COMM_WORLD,&ierr); |
133 |
> |
MPI_Recv(data, 3, MPI_REALTYPE, i, 0, MPI_COMM_WORLD,&ierr); |
134 |
|
tmpData.zmolIndex = zmolIndex; |
135 |
|
tmpData.zforce= data[0]; |
136 |
|
tmpData.zpos = data[1]; |
159 |
|
data[1] = j->zpos; |
160 |
|
data[2] = j->param.zTargetPos; |
161 |
|
MPI_Send(&zmolIndex, 1, MPI_INT, masterNode, 0, MPI_COMM_WORLD); |
162 |
< |
MPI_Send(data, 3, MPI_DOUBLE, masterNode, 0, MPI_COMM_WORLD); |
162 |
> |
MPI_Send(data, 3, MPI_REALTYPE, masterNode, 0, MPI_COMM_WORLD); |
163 |
|
|
164 |
|
} |
165 |
|
} |