OilfieldToolsNet/LBPM
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More work on creating standalone test

Browse Source
This commit is contained in:
Mark Berrill 2022-02-09 17:52:05 -05:00
parent e21125901b
commit 9d7fccab63
1 changed files with 74 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
tests/TestCrusher2.cpp
View File

@ -260,43 +260,43 @@ public:
int recvCount_x, recvCount_y, recvCount_z, recvCount_X, recvCount_Y, recvCount_Z;
int recvCount_xy, recvCount_yz, recvCount_xz, recvCount_Xy, recvCount_Yz, recvCount_xZ;
int recvCount_xY, recvCount_yZ, recvCount_Xz, recvCount_XY, recvCount_YZ, recvCount_XZ;
MPI_Isend(&sendCount_x, 1, MPI_DOUBLE, rank_x(), 0, Comm, &req1[0] );
MPI_Irecv(&recvCount_X, 1, MPI_DOUBLE, rank_X(), 0, Comm, &req2[0] );
MPI_Isend(&sendCount_X, 1, MPI_DOUBLE, rank_X(), 1, Comm, &req1[1] );
MPI_Irecv(&recvCount_x, 1, MPI_DOUBLE, rank_x(), 1, Comm, &req2[1] );
MPI_Isend(&sendCount_y, 1, MPI_DOUBLE, rank_y(), 2, Comm, &req1[2] );
MPI_Irecv(&recvCount_Y, 1, MPI_DOUBLE, rank_Y(), 2, Comm, &req2[2] );
MPI_Isend(&sendCount_Y, 1, MPI_DOUBLE, rank_Y(), 3, Comm, &req1[3] );
MPI_Irecv(&recvCount_y, 1, MPI_DOUBLE, rank_y(), 3, Comm, &req2[3] );
MPI_Isend(&sendCount_z, 1, MPI_DOUBLE, rank_z(), 4, Comm, &req1[4] );
MPI_Irecv(&recvCount_Z, 1, MPI_DOUBLE, rank_Z(), 4, Comm, &req2[4] );
MPI_Isend(&sendCount_Z, 1, MPI_DOUBLE, rank_Z(), 5, Comm, &req1[5] );
MPI_Irecv(&recvCount_z, 1, MPI_DOUBLE, rank_z(), 5, Comm, &req2[5] );
MPI_Isend(&sendCount_xy, 1, MPI_DOUBLE, rank_xy(), 6, Comm, &req1[6] );
MPI_Irecv(&recvCount_XY, 1, MPI_DOUBLE, rank_XY(), 6, Comm, &req2[6] );
MPI_Isend(&sendCount_XY, 1, MPI_DOUBLE, rank_XY(), 7, Comm, &req1[7] );
MPI_Irecv(&recvCount_xy, 1, MPI_DOUBLE, rank_xy(), 7, Comm, &req2[7] );
MPI_Isend(&sendCount_Xy, 1, MPI_DOUBLE, rank_Xy(), 8, Comm, &req1[8] );
MPI_Irecv(&recvCount_xY, 1, MPI_DOUBLE, rank_xY(), 8, Comm, &req2[8] );
MPI_Isend(&sendCount_xY, 1, MPI_DOUBLE, rank_xY(), 9, Comm, &req1[9] );
MPI_Irecv(&recvCount_Xy, 1, MPI_DOUBLE, rank_Xy(), 9, Comm, &req2[9] );
MPI_Isend(&sendCount_xz, 1, MPI_DOUBLE, rank_xz(), 10, Comm, &req1[10] );
MPI_Irecv(&recvCount_XZ, 1, MPI_DOUBLE, rank_XZ(), 10, Comm, &req2[10] );
MPI_Isend(&sendCount_XZ, 1, MPI_DOUBLE, rank_XZ(), 11, Comm, &req1[11] );
MPI_Irecv(&recvCount_xz, 1, MPI_DOUBLE, rank_xz(), 11, Comm, &req2[11] );
MPI_Isend(&sendCount_Xz, 1, MPI_DOUBLE, rank_Xz(), 12, Comm, &req1[12] );
MPI_Irecv(&recvCount_xZ, 1, MPI_DOUBLE, rank_xZ(), 12, Comm, &req2[12] );
MPI_Isend(&sendCount_xZ, 1, MPI_DOUBLE, rank_xZ(), 13, Comm, &req1[13] );
MPI_Irecv(&recvCount_Xz, 1, MPI_DOUBLE, rank_Xz(), 13, Comm, &req2[13] );
MPI_Isend(&sendCount_yz, 1, MPI_DOUBLE, rank_yz(), 14, Comm, &req1[14] );
MPI_Irecv(&recvCount_YZ, 1, MPI_DOUBLE, rank_YZ(), 14, Comm, &req2[14] );
MPI_Isend(&sendCount_YZ, 1, MPI_DOUBLE, rank_YZ(), 15, Comm, &req1[15] );
MPI_Irecv(&recvCount_yz, 1, MPI_DOUBLE, rank_yz(), 15, Comm, &req2[15] );
MPI_Isend(&sendCount_Yz, 1, MPI_DOUBLE, rank_Yz(), 16, Comm, &req1[16] );
MPI_Irecv(&recvCount_yZ, 1, MPI_DOUBLE, rank_yZ(), 16, Comm, &req2[16] );
MPI_Isend(&sendCount_yZ, 1, MPI_DOUBLE, rank_yZ(), 17, Comm, &req1[17] );
MPI_Irecv(&recvCount_Yz, 1, MPI_DOUBLE, rank_Yz(), 17, Comm, &req2[17] );
MPI_Waitall( 18, req2, status );
MPI_Isend(&sendCount_x, 1, MPI_INT, rank_x(), 0, Comm, &req1[0] );
MPI_Irecv(&recvCount_X, 1, MPI_INT, rank_X(), 0, Comm, &req2[0] );
MPI_Isend(&sendCount_X, 1, MPI_INT, rank_X(), 1, Comm, &req1[1] );
MPI_Irecv(&recvCount_x, 1, MPI_INT, rank_x(), 1, Comm, &req2[1] );
MPI_Isend(&sendCount_y, 1, MPI_INT, rank_y(), 2, Comm, &req1[2] );
MPI_Irecv(&recvCount_Y, 1, MPI_INT, rank_Y(), 2, Comm, &req2[2] );
MPI_Isend(&sendCount_Y, 1, MPI_INT, rank_Y(), 3, Comm, &req1[3] );
MPI_Irecv(&recvCount_y, 1, MPI_INT, rank_y(), 3, Comm, &req2[3] );
MPI_Isend(&sendCount_z, 1, MPI_INT, rank_z(), 4, Comm, &req1[4] );
MPI_Irecv(&recvCount_Z, 1, MPI_INT, rank_Z(), 4, Comm, &req2[4] );
MPI_Isend(&sendCount_Z, 1, MPI_INT, rank_Z(), 5, Comm, &req1[5] );
MPI_Irecv(&recvCount_z, 1, MPI_INT, rank_z(), 5, Comm, &req2[5] );
MPI_Isend(&sendCount_xy, 1, MPI_INT, rank_xy(), 6, Comm, &req1[6] );
MPI_Irecv(&recvCount_XY, 1, MPI_INT, rank_XY(), 6, Comm, &req2[6] );
MPI_Isend(&sendCount_XY, 1, MPI_INT, rank_XY(), 7, Comm, &req1[7] );
MPI_Irecv(&recvCount_xy, 1, MPI_INT, rank_xy(), 7, Comm, &req2[7] );
MPI_Isend(&sendCount_Xy, 1, MPI_INT, rank_Xy(), 8, Comm, &req1[8] );
MPI_Irecv(&recvCount_xY, 1, MPI_INT, rank_xY(), 8, Comm, &req2[8] );
MPI_Isend(&sendCount_xY, 1, MPI_INT, rank_xY(), 9, Comm, &req1[9] );
MPI_Irecv(&recvCount_Xy, 1, MPI_INT, rank_Xy(), 9, Comm, &req2[9] );
MPI_Isend(&sendCount_xz, 1, MPI_INT, rank_xz(), 10, Comm, &req1[10] );
MPI_Irecv(&recvCount_XZ, 1, MPI_INT, rank_XZ(), 10, Comm, &req2[10] );
MPI_Isend(&sendCount_XZ, 1, MPI_INT, rank_XZ(), 11, Comm, &req1[11] );
MPI_Irecv(&recvCount_xz, 1, MPI_INT, rank_xz(), 11, Comm, &req2[11] );
MPI_Isend(&sendCount_Xz, 1, MPI_INT, rank_Xz(), 12, Comm, &req1[12] );
MPI_Irecv(&recvCount_xZ, 1, MPI_INT, rank_xZ(), 12, Comm, &req2[12] );
MPI_Isend(&sendCount_xZ, 1, MPI_INT, rank_xZ(), 13, Comm, &req1[13] );
MPI_Irecv(&recvCount_Xz, 1, MPI_INT, rank_Xz(), 13, Comm, &req2[13] );
MPI_Isend(&sendCount_yz, 1, MPI_INT, rank_yz(), 14, Comm, &req1[14] );
MPI_Irecv(&recvCount_YZ, 1, MPI_INT, rank_YZ(), 14, Comm, &req2[14] );
MPI_Isend(&sendCount_YZ, 1, MPI_INT, rank_YZ(), 15, Comm, &req1[15] );
MPI_Irecv(&recvCount_yz, 1, MPI_INT, rank_yz(), 15, Comm, &req2[15] );
MPI_Isend(&sendCount_Yz, 1, MPI_INT, rank_Yz(), 16, Comm, &req1[16] );
MPI_Irecv(&recvCount_yZ, 1, MPI_INT, rank_yZ(), 16, Comm, &req2[16] );
MPI_Isend(&sendCount_yZ, 1, MPI_INT, rank_yZ(), 17, Comm, &req1[17] );
MPI_Irecv(&recvCount_Yz, 1, MPI_INT, rank_Yz(), 17, Comm, &req2[17] );
MPI_Waitall( 18, req1, status );
MPI_Waitall( 18, req2, status );
MPI_Barrier( Comm );
// allocate recv lists
@ -319,43 +319,43 @@ public:
recvList_YZ.resize(recvCount_YZ, 0);
recvList_XZ.resize(recvCount_XZ, 0);
//......................................................................................
MPI_Isend(sendList_x.data(), MPI_DOUBLE, sendCount_x, rank_x(), 0, Comm, &req1[0] );
MPI_Irecv(recvList_X.data(), MPI_DOUBLE, recvCount_X, rank_X(), 0, Comm, &req2[0] );
MPI_Isend(sendList_X.data(), MPI_DOUBLE, sendCount_X, rank_X(), 1, Comm, &req1[1] );
MPI_Irecv(recvList_x.data(), MPI_DOUBLE, recvCount_x, rank_x(), 1, Comm, &req2[1] );
MPI_Isend(sendList_y.data(), MPI_DOUBLE, sendCount_y, rank_y(), 2, Comm, &req1[2] );
MPI_Irecv(recvList_Y.data(), MPI_DOUBLE, recvCount_Y, rank_Y(), 2, Comm, &req2[2] );
MPI_Isend(sendList_Y.data(), MPI_DOUBLE, sendCount_Y, rank_Y(), 3, Comm, &req1[3] );
MPI_Irecv(recvList_y.data(), MPI_DOUBLE, recvCount_y, rank_y(), 3, Comm, &req2[3] );
MPI_Isend(sendList_z.data(), MPI_DOUBLE, sendCount_z, rank_z(), 4, Comm, &req1[4] );
MPI_Irecv(recvList_Z.data(), MPI_DOUBLE, recvCount_Z, rank_Z(), 4, Comm, &req2[4] );
MPI_Isend(sendList_Z.data(), MPI_DOUBLE, sendCount_Z, rank_Z(), 5, Comm, &req1[5] );
MPI_Irecv(recvList_z.data(), MPI_DOUBLE, recvCount_z, rank_z(), 5, Comm, &req2[5] );
MPI_Isend(sendList_xy.data(), MPI_DOUBLE, sendCount_xy, rank_xy(), 6, Comm, &req1[6] );
MPI_Irecv(recvList_XY.data(), MPI_DOUBLE, recvCount_XY, rank_XY(), 6, Comm, &req2[6] );
MPI_Isend(sendList_XY.data(), MPI_DOUBLE, sendCount_XY, rank_XY(), 7, Comm, &req1[7] );
MPI_Irecv(recvList_xy.data(), MPI_DOUBLE, recvCount_xy, rank_xy(), 7, Comm, &req2[7] );
MPI_Isend(sendList_Xy.data(), MPI_DOUBLE, sendCount_Xy, rank_Xy(), 8, Comm, &req1[8] );
MPI_Irecv(recvList_xY.data(), MPI_DOUBLE, recvCount_xY, rank_xY(), 8, Comm, &req2[8] );
MPI_Isend(sendList_xY.data(), MPI_DOUBLE, sendCount_xY, rank_xY(), 9, Comm, &req1[9] );
MPI_Irecv(recvList_Xy.data(), MPI_DOUBLE, recvCount_Xy, rank_Xy(), 9, Comm, &req2[9] );
MPI_Isend(sendList_xz.data(), MPI_DOUBLE, sendCount_xz, rank_xz(), 10, Comm, &req1[10] );
MPI_Irecv(recvList_XZ.data(), MPI_DOUBLE, recvCount_XZ, rank_XZ(), 10, Comm, &req2[10] );
MPI_Isend(sendList_XZ.data(), MPI_DOUBLE, sendCount_XZ, rank_XZ(), 11, Comm, &req1[11] );
MPI_Irecv(recvList_xz.data(), MPI_DOUBLE, recvCount_xz, rank_xz(), 11, Comm, &req2[11] );
MPI_Isend(sendList_Xz.data(), MPI_DOUBLE, sendCount_Xz, rank_Xz(), 12, Comm, &req1[12] );
MPI_Irecv(recvList_xZ.data(), MPI_DOUBLE, recvCount_xZ, rank_xZ(), 12, Comm, &req2[12] );
MPI_Isend(sendList_xZ.data(), MPI_DOUBLE, sendCount_xZ, rank_xZ(), 13, Comm, &req1[13] );
MPI_Irecv(recvList_Xz.data(), MPI_DOUBLE, recvCount_Xz, rank_Xz(), 13, Comm, &req2[13] );
MPI_Isend(sendList_yz.data(), MPI_DOUBLE, sendCount_yz, rank_yz(), 14, Comm, &req1[14] );
MPI_Irecv(recvList_YZ.data(), MPI_DOUBLE, recvCount_YZ, rank_YZ(), 14, Comm, &req2[14] );
MPI_Isend(sendList_YZ.data(), MPI_DOUBLE, sendCount_YZ, rank_YZ(), 15, Comm, &req1[15] );
MPI_Irecv(recvList_yz.data(), MPI_DOUBLE, recvCount_yz, rank_yz(), 15, Comm, &req2[15] );
MPI_Isend(sendList_Yz.data(), MPI_DOUBLE, sendCount_Yz, rank_Yz(), 16, Comm, &req1[16] );
MPI_Irecv(recvList_yZ.data(), MPI_DOUBLE, recvCount_yZ, rank_yZ(), 16, Comm, &req2[16] );
MPI_Isend(sendList_yZ.data(), MPI_DOUBLE, sendCount_yZ, rank_yZ(), 17, Comm, &req1[17] );
MPI_Irecv(recvList_Yz.data(), MPI_DOUBLE, recvCount_Yz, rank_Yz(), 17, Comm, &req2[17] );
MPI_Waitall( 18, req2, status );
MPI_Isend(sendList_x.data(), sendCount_x, MPI_INT, rank_x(), 0, Comm, &req1[0] );
MPI_Irecv(recvList_X.data(), recvCount_X, MPI_INT, rank_X(), 0, Comm, &req2[0] );
MPI_Isend(sendList_X.data(), sendCount_X, MPI_INT, rank_X(), 1, Comm, &req1[1] );
MPI_Irecv(recvList_x.data(), recvCount_x, MPI_INT, rank_x(), 1, Comm, &req2[1] );
MPI_Isend(sendList_y.data(), sendCount_y, MPI_INT, rank_y(), 2, Comm, &req1[2] );
MPI_Irecv(recvList_Y.data(), recvCount_Y, MPI_INT, rank_Y(), 2, Comm, &req2[2] );
MPI_Isend(sendList_Y.data(), sendCount_Y, MPI_INT, rank_Y(), 3, Comm, &req1[3] );
MPI_Irecv(recvList_y.data(), recvCount_y, MPI_INT, rank_y(), 3, Comm, &req2[3] );
MPI_Isend(sendList_z.data(), sendCount_z, MPI_INT, rank_z(), 4, Comm, &req1[4] );
MPI_Irecv(recvList_Z.data(), recvCount_Z, MPI_INT, rank_Z(), 4, Comm, &req2[4] );
MPI_Isend(sendList_Z.data(), sendCount_Z, MPI_INT, rank_Z(), 5, Comm, &req1[5] );
MPI_Irecv(recvList_z.data(), recvCount_z, MPI_INT, rank_z(), 5, Comm, &req2[5] );
MPI_Isend(sendList_xy.data(), sendCount_xy, MPI_INT, rank_xy(), 6, Comm, &req1[6] );
MPI_Irecv(recvList_XY.data(), recvCount_XY, MPI_INT, rank_XY(), 6, Comm, &req2[6] );
MPI_Isend(sendList_XY.data(), sendCount_XY, MPI_INT, rank_XY(), 7, Comm, &req1[7] );
MPI_Irecv(recvList_xy.data(), recvCount_xy, MPI_INT, rank_xy(), 7, Comm, &req2[7] );
MPI_Isend(sendList_Xy.data(), sendCount_Xy, MPI_INT, rank_Xy(), 8, Comm, &req1[8] );
MPI_Irecv(recvList_xY.data(), recvCount_xY, MPI_INT, rank_xY(), 8, Comm, &req2[8] );
MPI_Isend(sendList_xY.data(), sendCount_xY, MPI_INT, rank_xY(), 9, Comm, &req1[9] );
MPI_Irecv(recvList_Xy.data(), recvCount_Xy, MPI_INT, rank_Xy(), 9, Comm, &req2[9] );
MPI_Isend(sendList_xz.data(), sendCount_xz, MPI_INT, rank_xz(), 10, Comm, &req1[10] );
MPI_Irecv(recvList_XZ.data(), recvCount_XZ, MPI_INT, rank_XZ(), 10, Comm, &req2[10] );
MPI_Isend(sendList_XZ.data(), sendCount_XZ, MPI_INT, rank_XZ(), 11, Comm, &req1[11] );
MPI_Irecv(recvList_xz.data(), recvCount_xz, MPI_INT, rank_xz(), 11, Comm, &req2[11] );
MPI_Isend(sendList_Xz.data(), sendCount_Xz, MPI_INT, rank_Xz(), 12, Comm, &req1[12] );
MPI_Irecv(recvList_xZ.data(), recvCount_xZ, MPI_INT, rank_xZ(), 12, Comm, &req2[12] );
MPI_Isend(sendList_xZ.data(), sendCount_xZ, MPI_INT, rank_xZ(), 13, Comm, &req1[13] );
MPI_Irecv(recvList_Xz.data(), recvCount_Xz, MPI_INT, rank_Xz(), 13, Comm, &req2[13] );
MPI_Isend(sendList_yz.data(), sendCount_yz, MPI_INT, rank_yz(), 14, Comm, &req1[14] );
MPI_Irecv(recvList_YZ.data(), recvCount_YZ, MPI_INT, rank_YZ(), 14, Comm, &req2[14] );
MPI_Isend(sendList_YZ.data(), sendCount_YZ, MPI_INT, rank_YZ(), 15, Comm, &req1[15] );
MPI_Irecv(recvList_yz.data(), recvCount_yz, MPI_INT, rank_yz(), 15, Comm, &req2[15] );
MPI_Isend(sendList_Yz.data(), sendCount_Yz, MPI_INT, rank_Yz(), 16, Comm, &req1[16] );
MPI_Irecv(recvList_yZ.data(), recvCount_yZ, MPI_INT, rank_yZ(), 16, Comm, &req2[16] );
MPI_Isend(sendList_yZ.data(), sendCount_yZ, MPI_INT, rank_yZ(), 17, Comm, &req1[17] );
MPI_Irecv(recvList_Yz.data(), recvCount_Yz, MPI_INT, rank_Yz(), 17, Comm, &req2[17] );
MPI_Waitall( 18, req1, status );
MPI_Waitall( 18, req2, status );
MPI_Barrier( Comm );
}