1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Description: Modify syntax in accordance with MPI >= 3
Author: Nilesh Patra <npatra974@gmail.com>
Last-Update: 2020-02-20
--- a/src/murasaki_mpi.cc
+++ b/src/murasaki_mpi.cc
@@ -104,12 +104,12 @@
int blocklen[3]={1,1,1};
MPI_Aint disp[3]; //displacement
MPI_Aint base;
- MPI_Address(&msg.key,disp);
- MPI_Address(&msg.seqno,disp+1);
- MPI_Address(&msg.pos,disp+1);
+ MPI_Get_address(&msg.key,disp);
+ MPI_Get_address(&msg.seqno,disp+1);
+ MPI_Get_address(&msg.pos,disp+1);
base=disp[0];
for(int i=0;i<3;i++)disp[i]-=base;
- MPI_Type_struct(3,blocklen,disp,type,&MPI_HashMessage_type);
+ MPI_Type_create_struct(3,blocklen,disp,type,&MPI_HashMessage_type);
MPI_Type_commit(&MPI_HashMessage_type); //make sure we can send with it
mpi_hashCount.resize(mpi_procs,0);
|
