| 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 |
|
} |