#define EXIT_FAILURE 1
#endif
-//define MAXLEN 300000
-
int main(int argc, char *argv[])
{
- int rank, size;
+ int rank;
+ int size;
int i;
- int *sb;
- int *rb;
int status;
int mult=1;
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
MPI_Comm_size(MPI_COMM_WORLD, &size);
- if (maxlen>1)mult=size;
- sb = (int *) xbt_malloc(size *maxlen * sizeof(int));
- rb = (int *) xbt_malloc(size *maxlen * sizeof(int));
+ if (maxlen > 1)
+ mult = size;
+ int* sb = (int *) xbt_malloc(size *maxlen * sizeof(int));
+ int* rb = (int *) xbt_malloc(size *maxlen * sizeof(int));
for (i = 0; i < size *maxlen; ++i) {
sb[i] = rank*size + i;
printf("%d ", rb[i]);
printf("]\n");
-
if (rank == 0) {
if (status != MPI_SUCCESS) {
printf("all_to_all returned %d\n", status);
fflush(stdout);
}
}
- free(sb);
- free(rb);
+ xbt_free(sb);
+ xbt_free(rb);
MPI_Finalize();
return (EXIT_SUCCESS);
}