Commit bd8ab0d7 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Fix implicit conversions.

parent 3760e985
......@@ -39,6 +39,7 @@
*/
#include <stdlib.h>
#include <limits.h>
#include <assert.h>
#include <mpi.h>
......@@ -65,9 +66,7 @@ int main(void) {
check_idxlist(idxempty, NULL, 0);
size_t buffer_size;
buffer_size = xt_idxlist_get_pack_size(idxempty, MPI_COMM_WORLD);
size_t buffer_size = xt_idxlist_get_pack_size(idxempty, MPI_COMM_WORLD);
void* send_buffer, * recv_buffer;
......@@ -76,7 +75,8 @@ int main(void) {
int position = 0;
xt_idxlist_pack(idxempty, send_buffer, buffer_size, &position,
assert(buffer_size <= INT_MAX);
xt_idxlist_pack(idxempty, send_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// send the buffer
......@@ -87,13 +87,13 @@ int main(void) {
MPI_Request request;
xt_mpi_call(MPI_Isend(send_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Isend(send_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, &request), MPI_COMM_WORLD);
xt_mpi_call(MPI_Request_free(&request), MPI_COMM_WORLD);
// receive the buffer
xt_mpi_call(MPI_Recv(recv_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Recv(recv_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, MPI_STATUS_IGNORE),
MPI_COMM_WORLD);
......@@ -102,7 +102,7 @@ int main(void) {
Xt_idxlist idxempty_copy;
position = 0;
idxempty_copy = xt_idxlist_unpack(recv_buffer, buffer_size, &position,
idxempty_copy = xt_idxlist_unpack(recv_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// check the received index vector
......@@ -132,18 +132,18 @@ int main(void) {
// check the computation of a bounding box
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size[ndim];
Xt_int global_start_index = 0;
struct Xt_bounds bounds[ndim];
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
global_size[i] = 10;
xt_idxlist_get_bounding_box(idxempty, ndim, global_size,
global_start_index, bounds);
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 0)
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......
......@@ -44,6 +44,8 @@
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <assert.h>
#include <limits.h>
#include <stdlib.h>
#include <mpi.h>
......@@ -94,9 +96,8 @@ int main(void) {
// get the size of the index list
size_t buffer_size;
buffer_size = xt_idxlist_get_pack_size(collectionlist, MPI_COMM_WORLD);
size_t buffer_size
= xt_idxlist_get_pack_size(collectionlist, MPI_COMM_WORLD);
// allocate send buffers
......@@ -109,7 +110,8 @@ int main(void) {
int position = 0;
xt_idxlist_pack(collectionlist, send_buffer, buffer_size, &position,
assert(buffer_size <= INT_MAX);
xt_idxlist_pack(collectionlist, send_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// send the buffer
......@@ -120,13 +122,13 @@ int main(void) {
MPI_Request request;
xt_mpi_call(MPI_Isend(send_buffer, buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, &request), MPI_COMM_WORLD);
xt_mpi_call(MPI_Isend(send_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, &request), MPI_COMM_WORLD);
xt_mpi_call(MPI_Request_free(&request), MPI_COMM_WORLD);
// receive the buffer
xt_mpi_call(MPI_Recv(recv_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Recv(recv_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, MPI_STATUS_IGNORE), MPI_COMM_WORLD);
// unpack the buffer
......@@ -134,8 +136,8 @@ int main(void) {
Xt_idxlist collectionlist_copy;
position = 0;
collectionlist_copy = xt_idxlist_unpack(recv_buffer, buffer_size, &position,
MPI_COMM_WORLD);
collectionlist_copy = xt_idxlist_unpack(recv_buffer, (int)buffer_size,
&position, MPI_COMM_WORLD);
// check received collection list
......@@ -328,18 +330,18 @@ int main(void) {
xt_idxlist_delete(idxlists[0]);
xt_idxlist_delete(idxlists[1]);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size_bb[ndim];
Xt_int global_start_index = 0;
struct Xt_bounds bounds[ndim];
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
global_size_bb[i] = 4;
xt_idxlist_get_bounding_box(collectionlist, ndim, global_size_bb,
global_start_index, bounds);
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 0)
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......@@ -365,7 +367,7 @@ int main(void) {
xt_idxlist_delete(idxlists[0]);
xt_idxlist_delete(idxlists[1]);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size[ndim];
Xt_int global_start_index = 1;
struct Xt_bounds bounds[ndim];
......@@ -379,7 +381,7 @@ int main(void) {
Xt_int ref_start[3] = {2,2,1};
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 2 || bounds[i].start != ref_start[i])
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......
......@@ -44,6 +44,8 @@
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <assert.h>
#include <limits.h>
#include <stdlib.h>
#include <mpi.h>
......@@ -796,18 +798,18 @@ int main(void) {
idxsection = xt_idxsection_new(start, num_dimensions, global_size,
local_size, local_start);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size_bb[ndim];
Xt_int global_start_index = 0;
struct Xt_bounds bounds[ndim];
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
global_size_bb[i] = 4;
xt_idxlist_get_bounding_box(idxsection, ndim, global_size_bb,
global_start_index, bounds);
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 0)
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......@@ -829,7 +831,7 @@ int main(void) {
idxsection = xt_idxsection_new(start, num_dimensions, global_size,
local_size, local_start);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size_bb[ndim];
Xt_int global_start_index = 1;
struct Xt_bounds bounds[ndim];
......@@ -843,7 +845,7 @@ int main(void) {
Xt_int ref_start[3] = {2,2,1};
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 2 || bounds[i].start != ref_start[i])
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......@@ -865,7 +867,7 @@ int main(void) {
idxsection = xt_idxsection_new(start, num_dimensions, global_size,
local_size, local_start);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size_bb[ndim];
Xt_int global_start_index = 1;
struct Xt_bounds bounds[ndim];
......@@ -880,7 +882,7 @@ int main(void) {
Xt_int ref_start[3] = {2,1,1};
Xt_int ref_size[3] = {2,3,2};
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != ref_size[i] || bounds[i].start != ref_start[i])
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......@@ -909,9 +911,7 @@ do_tests(Xt_idxlist idxlist, Xt_int * ref_indices, Xt_int num_indices,
{ // test packing and unpacking
size_t buffer_size;
buffer_size = xt_idxlist_get_pack_size(idxlist, MPI_COMM_WORLD);
size_t buffer_size = xt_idxlist_get_pack_size(idxlist, MPI_COMM_WORLD);
// allocate send buffers
......@@ -923,8 +923,8 @@ do_tests(Xt_idxlist idxlist, Xt_int * ref_indices, Xt_int num_indices,
// pack the index vector
int position = 0;
xt_idxlist_pack(idxlist, send_buffer, buffer_size, &position,
assert(buffer_size <= INT_MAX);
xt_idxlist_pack(idxlist, send_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// send the buffer
......@@ -935,13 +935,13 @@ do_tests(Xt_idxlist idxlist, Xt_int * ref_indices, Xt_int num_indices,
MPI_Request request;
xt_mpi_call(MPI_Isend(send_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Isend(send_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, &request), MPI_COMM_WORLD);
xt_mpi_call(MPI_Request_free(&request), MPI_COMM_WORLD);
// receive the buffer
xt_mpi_call(MPI_Recv(recv_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Recv(recv_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, MPI_STATUS_IGNORE), MPI_COMM_WORLD);
// unpack the buffer
......@@ -950,7 +950,8 @@ do_tests(Xt_idxlist idxlist, Xt_int * ref_indices, Xt_int num_indices,
position = 0;
idxlist_copy
= xt_idxlist_unpack(recv_buffer, buffer_size, &position, MPI_COMM_WORLD);
= xt_idxlist_unpack(recv_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// check copy
......
......@@ -44,6 +44,8 @@
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <assert.h>
#include <limits.h>
#include <stdlib.h>
#include <mpi.h>
......@@ -690,18 +692,18 @@ int main(void) {
idxstripes = xt_idxstripes_new(stripes, num_stripes);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size[ndim];
Xt_int global_start_index = 0;
struct Xt_bounds bounds[ndim];
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
global_size[i] = 4;
xt_idxlist_get_bounding_box(idxstripes, ndim, global_size,
global_start_index, bounds);
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 0)
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......@@ -717,7 +719,7 @@ int main(void) {
idxstripes = xt_idxstripes_new(stripes, num_stripes);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size[ndim];
Xt_int global_start_index = 1;
struct Xt_bounds bounds[ndim];
......@@ -731,7 +733,7 @@ int main(void) {
Xt_int ref_start[3] = {2,2,1};
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 2 || bounds[i].start != ref_start[i])
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......@@ -778,7 +780,8 @@ do_tests(Xt_idxlist idxlist, Xt_int * ref_indices, Xt_int num_indices) {
int position = 0;
xt_idxlist_pack(idxlist, send_buffer, buffer_size, &position,
assert(buffer_size <= INT_MAX);
xt_idxlist_pack(idxlist, send_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// send the buffer
......@@ -789,13 +792,13 @@ do_tests(Xt_idxlist idxlist, Xt_int * ref_indices, Xt_int num_indices) {
MPI_Request request;
xt_mpi_call(MPI_Isend(send_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Isend(send_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, &request), MPI_COMM_WORLD);
xt_mpi_call(MPI_Request_free(&request), MPI_COMM_WORLD);
// receive the buffer
xt_mpi_call(MPI_Recv(recv_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Recv(recv_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, MPI_STATUS_IGNORE),
MPI_COMM_WORLD);
......@@ -804,7 +807,7 @@ do_tests(Xt_idxlist idxlist, Xt_int * ref_indices, Xt_int num_indices) {
Xt_idxlist idxlist_copy;
position = 0;
idxlist_copy = xt_idxlist_unpack(recv_buffer, buffer_size, &position,
idxlist_copy = xt_idxlist_unpack(recv_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// check copy
......
......@@ -44,8 +44,9 @@
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <stdlib.h>
#include <assert.h>
#include <limits.h>
#include <stdlib.h>
#include <mpi.h>
......@@ -101,7 +102,8 @@ int main(void) {
int position = 0;
xt_idxlist_pack(idxvector, send_buffer, buffer_size, &position,
assert(buffer_size <= INT_MAX);
xt_idxlist_pack(idxvector, send_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// send the buffer
......@@ -112,13 +114,13 @@ int main(void) {
MPI_Request request;
xt_mpi_call(MPI_Isend(send_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Isend(send_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, &request), MPI_COMM_WORLD);
xt_mpi_call(MPI_Request_free(&request), MPI_COMM_WORLD);
// receive the buffer
xt_mpi_call(MPI_Recv(recv_buffer, buffer_size, MPI_PACKED, rank, 0,
xt_mpi_call(MPI_Recv(recv_buffer, (int)buffer_size, MPI_PACKED, rank, 0,
MPI_COMM_WORLD, MPI_STATUS_IGNORE),
MPI_COMM_WORLD);
......@@ -127,7 +129,7 @@ int main(void) {
Xt_idxlist idxvector_copy;
position = 0;
idxvector_copy = xt_idxlist_unpack(recv_buffer, buffer_size, &position,
idxvector_copy = xt_idxlist_unpack(recv_buffer, (int)buffer_size, &position,
MPI_COMM_WORLD);
// check the received index vector
......@@ -232,7 +234,7 @@ int main(void) {
// create an index vector
idxvector = xt_idxvec_new(index_vector, index_num);
idxvector = xt_idxvec_new(index_vector, (Xt_int)index_num);
// get positions:
int retval;
......@@ -245,13 +247,13 @@ int main(void) {
retval = xt_idxlist_get_positions_of_indices(idxvector,
intersection_vector,
intersection_num,
(Xt_int)intersection_num,
intersection_pos,
single_match_only);
assert(retval == 0);
// check positions:
for(int i=0; i<intersection_num; i++)
for(size_t i=0; i<intersection_num; i++)
if (intersection_pos[i] != ref_intersection_pos[i])
PUT_ERR("unexpected results from"
" xt_idxlist_get_positions_of_indices\n");
......@@ -715,18 +717,18 @@ int main(void) {
Xt_idxlist idxvec = xt_idxvec_new(indices, num_indices);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size[ndim];
Xt_int global_start_index = 0;
struct Xt_bounds bounds[ndim];
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
global_size[i] = 4;
xt_idxlist_get_bounding_box(idxvec, ndim, global_size,
global_start_index, bounds);
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 2 || bounds[i].start != 1)
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......@@ -740,7 +742,7 @@ int main(void) {
Xt_idxlist idxvec = xt_idxvec_new(indices, num_indices);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size[ndim];
Xt_int global_start_index = 1;
struct Xt_bounds bounds[ndim];
......@@ -754,7 +756,7 @@ int main(void) {
Xt_int ref_start[3] = {2,2,1};
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 2 || bounds[i].start != ref_start[i])
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......@@ -768,18 +770,18 @@ int main(void) {
Xt_idxlist idxvec = xt_idxvec_new(indices, num_indices);
int ndim = 3;
unsigned ndim = 3;
Xt_int global_size[ndim];
Xt_int global_start_index = 0;
struct Xt_bounds bounds[ndim];
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
global_size[i] = 4;
xt_idxlist_get_bounding_box(idxvec, ndim, global_size,
global_start_index, bounds);
for (int i = 0; i < ndim; ++i)
for (unsigned i = 0; i < ndim; ++i)
if (bounds[i].size != 0)
PUT_ERR("ERROR: xt_idxlist_get_bounding_box\n");
......
......@@ -60,13 +60,13 @@ int main(void) {
{ // general test with one redist
// set up data
Xt_int src_index_list[] = {1,2,3,4,5};
unsigned src_num_indices
Xt_int src_num_indices
= sizeof(src_index_list) / sizeof(src_index_list[0]);
Xt_idxlist src_idxlist;
src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
src_idxlist = xt_idxvec_new(src_index_list, (Xt_int)src_num_indices);
Xt_int dst_index_list[] = {1,3,5};
unsigned dst_num_indices
Xt_int dst_num_indices
= sizeof(dst_index_list) / sizeof(dst_index_list[0]);
Xt_idxlist dst_idxlist;
dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
......@@ -118,16 +118,15 @@ int main(void) {
// displacements -> test of cache) (with default cache size)
// set up data
Xt_int src_index_list[] = {1,2,3,4,5};
unsigned src_num_indices
Xt_int src_num_indices
= sizeof(src_index_list) / sizeof(src_index_list[0]);
Xt_idxlist src_idxlist;
src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
Xt_int dst_index_list[] = {1,3,5};
unsigned dst_num_indices
Xt_int dst_num_indices
= sizeof(dst_index_list) / sizeof(dst_index_list[0]);
Xt_idxlist dst_idxlist;
dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_idxlist dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_xmap xmap;
xmap = xt_xmap_all2all_new(src_idxlist, dst_idxlist, MPI_COMM_WORLD);
......@@ -221,16 +220,14 @@ int main(void) {
// displacements -> test of cache) (with cache size == 0)
// set up data
Xt_int src_index_list[] = {1,2,3,4,5};
unsigned src_num_indices
Xt_int src_num_indices
= sizeof(src_index_list) / sizeof(src_index_list[0]);
Xt_idxlist src_idxlist;
src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
Xt_idxlist src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
Xt_int dst_index_list[] = {1,3,5};
unsigned dst_num_indices
Xt_int dst_num_indices
= sizeof(dst_index_list) / sizeof(dst_index_list[0]);
Xt_idxlist dst_idxlist;
dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_idxlist dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_xmap xmap;
xmap = xt_xmap_all2all_new(src_idxlist, dst_idxlist, MPI_COMM_WORLD);
......@@ -324,16 +321,14 @@ int main(void) {
// data displacements until the cache is full)
// set up data
Xt_int src_index_list[] = {1,2,3,4,5};
unsigned src_num_indices
Xt_int src_num_indices
= sizeof(src_index_list) / sizeof(src_index_list[0]);
Xt_idxlist src_idxlist;
src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
Xt_idxlist src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
Xt_int dst_index_list[] = {1,3,5};
unsigned dst_num_indices
Xt_int dst_num_indices
= sizeof(dst_index_list) / sizeof(dst_index_list[0]);
Xt_idxlist dst_idxlist;
dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_idxlist dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_xmap xmap;
xmap = xt_xmap_all2all_new(src_idxlist, dst_idxlist, MPI_COMM_WORLD);
......
......@@ -60,16 +60,14 @@ int main(void) {
{ // general test with one redist
// set up data
Xt_int src_index_list[] = {1,2,3,4,5};
unsigned src_num_indices
Xt_int src_num_indices
= sizeof(src_index_list) / sizeof(src_index_list[0]);
Xt_idxlist src_idxlist;
src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
Xt_idxlist src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
Xt_int dst_index_list[] = {1,3,5};
unsigned dst_num_indices
Xt_int dst_num_indices
= sizeof(dst_index_list) / sizeof(dst_index_list[0]);
Xt_idxlist dst_idxlist;
dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_idxlist dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_xmap xmap;
xmap = xt_xmap_all2all_new(src_idxlist, dst_idxlist, MPI_COMM_WORLD);
......@@ -117,16 +115,13 @@ int main(void) {
{ // test with one redist used three times (two exchanges)
// set up data
Xt_int src_index_list[] = {1,2,3,4,5};
unsigned src_num_indices
= sizeof(src_index_list) / sizeof(src_index_list[0]);
Xt_int src_num_indices = sizeof(src_index_list) / sizeof(src_index_list[0]);
Xt_idxlist src_idxlist;
src_idxlist = xt_idxvec_new(src_index_list, src_num_indices);
Xt_int dst_index_list[] = {1,3,5};
unsigned dst_num_indices
= sizeof(dst_index_list) / sizeof(dst_index_list[0]);
Xt_idxlist dst_idxlist;
dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_int dst_num_indices = sizeof(dst_index_list) / sizeof(dst_index_list[0]);
Xt_idxlist dst_idxlist = xt_idxvec_new(dst_index_list, dst_num_indices);
Xt_xmap xmap;
xmap = xt_xmap_all2all_new(src_idxlist, dst_idxlist, MPI_COMM_WORLD);
......
......@@ -131,13 +131,15 @@ int main(void) {
Xt_int results_1[2*size*size], results_2[2*size*size];
Xt_int results_3[2*size*size*size], results_4[2*size*size*size];
MPI_Aint src_displacements[4] = {0, (index_vector_b-index_vector_a)
* sizeof(Xt_int),
0, (index_vector_b-index_vector_a)
* sizeof(